From aa705642e7a9754b1f6c954fa4e19da5b54928df Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 11 Jan 2000 15:40:41 +0000 Subject: (add-log-current-defun): Handle user-defined add-log-current-function returning nil, --- lisp/add-log.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/add-log.el') diff --git a/lisp/add-log.el b/lisp/add-log.el index bb911904ad6..92ee80a4f70 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -591,8 +591,8 @@ Has a preference of looking backwards." (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 -- cgit v1.2.1