Mercurial > emacs
changeset 14528:09351147da04
(add-log-current-defun): In Lisp, if we don't find a
real defun, return nil, not "".
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 09 Feb 1996 19:09:22 +0000 |
| parents | 3938a0350eea |
| children | 6c886dde14b8 |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))))