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

(add-change-log-entry): Call that function, if non-nil.

1 files changed, 17 insertions, 6 deletions

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 63a758dd2ce..0c8c36dc51c 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -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))))