Mercurial > emacs

diff lisp/add-log.el @ 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 300415d17473
children ed290e5a5b17
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