mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1992-08-27 04:22:31 +00:00
parent 38c132a96c
commit c017c14393
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/add-log.el
View File

@ -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