diff lisp/add-log.el @ 4154:20a0593431b7

(add-log-current-defun-function): New defvar. (add-change-log-entry): Call its value if non-nil instead of add-log-current-defun. (add-change-log-entry-other-window): Doc fix.

--- a/lisp/add-log.el	Sun Jul 18 20:41:08 1993 +0000
+++ b/lisp/add-log.el	Sun Jul 18 22:23:44 1993 +0000
@@ -30,6 +30,13 @@
 (defvar change-log-default-name nil
   "*Name of a change log file for \\[add-change-log-entry].")
 
+;;;###autoload
+(defvar add-log-current-defun-function nil
+  "\
+*If non-nil, function to guess name of current function from surrounding text.
+\\[add-change-log-entry] calls this function (if nil, `add-log-current-defun'
+instead) with no arguments.  It returns a string or nil if it cannot guess.")
+
 (defun change-log-name ()
   (or change-log-default-name
       (if (eq system-type 'vax-vms) "$CHANGE_LOG$.TXT" "ChangeLog")))
@@ -113,7 +120,8 @@
 	 (site-name (if whoami
 			(read-input "Site name: " (system-name))
 		      (system-name)))
-	 (defun (add-log-current-defun))
+	 (defun (funcall (or add-log-current-defun-function
+			     'add-log-current-defun)))
 	 paragraph-end entry)
 
     (setq file-name (find-change-log file-name))
@@ -202,9 +210,9 @@
 ;;;###autoload
 (defun add-change-log-entry-other-window (&optional whoami file-name)
   "Find change log file in other window and add an entry for today.
-First arg (interactive prefix) non-nil means prompt for user name and site.
-Second arg is file name of change log.
-Interactively, with a prefix argument, the file name is prompted for."
+Optional arg (interactive prefix) non-nil means prompt for user name and site.
+Second arg is file name of change log.  \
+If nil, uses `change-log-default-name'."
   (interactive (if current-prefix-arg
 		   (list current-prefix-arg
 			 (prompt-for-change-log-name))))