# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 823892962 0
# Node ID 09351147da04c8097083ed5eeef261f7cdbc5da7
# Parent  3938a0350eea15e9349c4c480b7eddaf8723f7c5
(add-log-current-defun): In Lisp, if we don't find a
real defun, return nil, not "".

diff -r 3938a0350eea -r 09351147da04 lisp/add-log.el
--- a/lisp/add-log.el	Fri Feb 09 19:08:26 1996 +0000
+++ b/lisp/add-log.el	Fri Feb 09 19:09:22 1996 +0000
@@ -340,7 +340,8 @@
 		 (or (eobp) (forward-char 1))
 		 (beginning-of-defun)
 		 ;; Make sure we are really inside the defun found, not after it.
-		 (if (and (progn (end-of-defun)
+		 (if (and (looking-at "\\s(")
+			  (progn (end-of-defun)
 				 (< location (point)))
 			  (progn (forward-sexp -1)
 				 (>= location (point))))