mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(add-log-file-name-function): New variable.

Browse source 
(add-change-log-entry): Call that function, if non-nil.
This commit is contained in:
Richard M. Stallman 1999-02-09 09:14:53 +00:00
parent 4315d68ee5
commit 666f405690
1 changed files with 17 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/add-log.el
View file

@ -111,6 +111,14 @@ this variable."
: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 @@ non-nil, otherwise in local time."
(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))))