Mercurial > emacs

comparison lisp/add-log.el @ 34576:372841b7a5ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-change-log-entry): Only expand-file-name if non-nil.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 14 Dec 2000 17:29:47 +0000
parents 534b5a76bf8a
children 61d0887bbd4e
comparison
equal deleted inserted replaced
34575:7b311c205762 34576:372841b7a5ad
430 (read-input "Mailing address: " add-log-mailing-address)))) 430 (read-input "Mailing address: " add-log-mailing-address))))
431 431
432 (let* ((defun (add-log-current-defun)) 432 (let* ((defun (add-log-current-defun))
433 (version (and change-log-version-info-enabled 433 (version (and change-log-version-info-enabled
434 (change-log-version-number-search))) 434 (change-log-version-number-search)))
435 (buffer-file 435 (buf-file-name (if add-log-buffer-file-name-function
436 (expand-file-name (if add-log-buffer-file-name-function 436 (funcall add-log-buffer-file-name-function)
437 (funcall add-log-buffer-file-name-function) 437 buffer-file-name))
438 buffer-file-name))) 438 (buffer-file (if buf-file-name (expand-file-name buf-file-name)))
439 (file-name (expand-file-name 439 (file-name (expand-file-name
440 (or file-name (find-change-log file-name buffer-file)))) 440 (or file-name (find-change-log file-name buffer-file))))
441 ;; Set ENTRY to the file name to use in the new entry. 441 ;; Set ENTRY to the file name to use in the new entry.
442 (entry (add-log-file-name buffer-file file-name)) 442 (entry (add-log-file-name buffer-file file-name))
443 bound) 443 bound)