Mercurial > emacs

changeset 27281:8afd998ab3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-log-current-defun): Handle user-defined add-log-current-function returning nil,
author Gerd Moellmann <gerd@gnu.org>
date Tue, 11 Jan 2000 15:39:48 +0000
parents 99ca347cf9c5
children 82cfeffad208
files lisp/add-log.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Tue Jan 11 15:36:02 2000 +0000
+++ b/lisp/add-log.el	Tue Jan 11 15:39:48 2000 +0000
@@ -591,8 +591,8 @@
   (condition-case nil
       (save-excursion
 	(let ((location (point)))
-	  (cond ((functionp add-log-current-defun-function)
-		 (funcall add-log-current-defun-function))
+	  (cond ((and (functionp add-log-current-defun-function)
+		      (funcall add-log-current-defun-function)))
 		((memq major-mode add-log-lisp-like-modes)
 		 ;; If we are now precisely at the beginning of a defun,
 		 ;; make sure beginning-of-defun finds that one