Mercurial > emacs
changeset 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.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sun, 18 Jul 1993 22:23:44 +0000 |
| parents | 787df5416fba |
| children | 9f0a271fa24f |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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))))