Mercurial > emacs
changeset 24289:7917ac967ee5
(add-log-file-name-function): New variable.
(add-change-log-entry): Call that function, if non-nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Feb 1999 09:14:53 +0000 |
| parents | b563359187fd |
| children | 8f4f410490af |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 17 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Tue Feb 09 09:14:34 1999 +0000 +++ b/lisp/add-log.el Tue Feb 09 09:14:53 1999 +0000 @@ -111,6 +111,14 @@ :type 'boolean :group 'change-log) +(defcustom add-log-file-name-function nil + "*If non-nil, function to call to identify the filename for a ChangeLog entry. +This function is called with one argument, `buffer-file-name' in that buffer. +If this is nil, the default is to use the file's name +relative to the directory of the change log file." + :type 'function + :group 'change-log) + (defvar change-log-font-lock-keywords '(;; ;; Date lines, new and old styles. @@ -305,12 +313,15 @@ (and buffer-file-name ;; Never want to add a change log entry for the ChangeLog file itself. (not (string= buffer-file-name file-name)) - (setq entry (if (string-match - (concat "^" (regexp-quote (file-name-directory - file-name))) - buffer-file-name) - (substring buffer-file-name (match-end 0)) - (file-name-nondirectory buffer-file-name)))) + (setq entry + (if add-log-file-name-function + (funcall add-log-file-name-function buffer-file-name) + (if (string-match + (concat "^" (regexp-quote (file-name-directory + file-name))) + buffer-file-name) + (substring buffer-file-name (match-end 0)) + (file-name-nondirectory buffer-file-name))))) (let ((buffer (find-buffer-visiting file-name))) (setq add-log-debugging (list (gap-position) (gap-size))))