Mercurial > emacs

comparison lisp/add-log.el @ 54430:b521d24f538a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-change-log-entry): Simplify.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 19 Mar 2004 00:48:51 +0000
parents 695cf19ef79e
children e6f8f4939bf6
comparison
equal deleted inserted replaced
54429:5b0aa631db90 54430:b521d24f538a
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
7 ;; Keywords: tools 7 ;; Keywords: tools
8 8
487 (change-log-version-number-search))) 487 (change-log-version-number-search)))
488 (buf-file-name (if add-log-buffer-file-name-function 488 (buf-file-name (if add-log-buffer-file-name-function
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)
497 496
498 (unless (equal file-name buffer-file-name) 497 (unless (equal file-name buffer-file-name)