# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1079657331 0
# Node ID b521d24f538a2bcfb14d2b49683155ac7820ee45
# Parent  5b0aa631db902475173a97d3b2028eb6ca0eb7c7
(add-change-log-entry): Simplify.

diff -r 5b0aa631db90 -r b521d24f538a lisp/add-log.el
--- a/lisp/add-log.el	Fri Mar 19 00:43:16 2004 +0000
+++ b/lisp/add-log.el	Fri Mar 19 00:48:51 2004 +0000
@@ -1,6 +1,6 @@
 ;;; 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 @@
 			    (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)