diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-08-27 04:22:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-08-27 04:22:31 +0000 |
| commit | 5dae79e6ac764364e9db25c24a2dc38fc6dcf8c3 (patch) | |
| tree | 72be6a34cb1650aed4f84ffb1697339cdf414f8e /lisp/add-log.el | |
| parent | bd49aa12ad057ab6b6f3d7108d265763c457ddbd (diff) | |
| download | emacs-5dae79e6ac764364e9db25c24a2dc38fc6dcf8c3.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 09bcc05a389..ea781aca915 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -276,9 +276,15 @@ Has a preference of looking backwards." (forward-line -1)) ;; See if this is using the DEFUN macro used in Emacs, ;; or the DEFUN macro used by the C library. - (if (and (looking-at "DEFUN\\b") + (if (and (save-excursion + (forward-line 1) + (backward-sexp 1) + (beginning-of-line) + (setq tem (point)) + (looking-at "DEFUN\\b")) (>= location (point))) (progn + (goto-char tem) (down-list 1) (if (= (char-after (point)) ?\") (progn |