diff options
| -rw-r--r-- | lisp/add-log.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index e6ec96baa74..609dfde5f65 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; add-log.el --- change log maintenance commands for Emacs | 1 | ;;; add-log.el --- change log maintenance commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 86, 88, 93, 94, 97, 98, 2000, 2003 | 3 | ;; Copyright (C) 1985, 86, 88, 93, 94, 97, 98, 2000, 03, 2004 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| @@ -489,8 +489,7 @@ non-nil, otherwise in local time." | |||
| 489 | (funcall add-log-buffer-file-name-function) | 489 | (funcall add-log-buffer-file-name-function) |
| 490 | buffer-file-name)) | 490 | buffer-file-name)) |
| 491 | (buffer-file (if buf-file-name (expand-file-name buf-file-name))) | 491 | (buffer-file (if buf-file-name (expand-file-name buf-file-name))) |
| 492 | (file-name (expand-file-name | 492 | (file-name (expand-file-name (find-change-log file-name buffer-file))) |
| 493 | (or file-name (find-change-log file-name buffer-file)))) | ||
| 494 | ;; Set ITEM to the file name to use in the new item. | 493 | ;; Set ITEM to the file name to use in the new item. |
| 495 | (item (add-log-file-name buffer-file file-name)) | 494 | (item (add-log-file-name buffer-file file-name)) |
| 496 | bound) | 495 | bound) |