# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 947605188 0
# Node ID 8afd998ab3b2a2697e7ef3ad05dd514b18daec04
# Parent  99ca347cf9c532342af3a9cea12a86bd570c51a7
(add-log-current-defun): Handle user-defined
add-log-current-function returning nil,

diff -r 99ca347cf9c5 -r 8afd998ab3b2 lisp/add-log.el
--- 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