diff options
| author | Stefan Monnier | 2004-03-19 00:48:51 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-03-19 00:48:51 +0000 |
| commit | dd816e0df87d4eb5d7f2e5e6e2b0416588cb6df0 (patch) | |
| tree | 4c1224147f782103d06a5ac04c55e789895f5537 | |
| parent | da06e4d71b0b5f9522126f180bd4888771995608 (diff) | |
| download | emacs-dd816e0df87d4eb5d7f2e5e6e2b0416588cb6df0.tar.gz emacs-dd816e0df87d4eb5d7f2e5e6e2b0416588cb6df0.zip | |
(add-change-log-entry): Simplify.
| -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) |