Commit dd816e0d authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(add-change-log-entry): Simplify.

parent da06e4d7
;;; add-log.el --- change log maintenance commands for Emacs
;; Copyright (C) 1985, 86, 88, 93, 94, 97, 98, 2000, 2003
;; Copyright (C) 1985, 86, 88, 93, 94, 97, 98, 2000, 03, 2004
;; Free Software Foundation, Inc.
;; Maintainer: FSF
......@@ -489,8 +489,7 @@ non-nil, otherwise in local time."
(funcall add-log-buffer-file-name-function)
buffer-file-name))
(buffer-file (if buf-file-name (expand-file-name buf-file-name)))
(file-name (expand-file-name
(or file-name (find-change-log file-name buffer-file))))
(file-name (expand-file-name (find-change-log file-name buffer-file)))
;; Set ITEM to the file name to use in the new item.
(item (add-log-file-name buffer-file file-name))
bound)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment