mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-09 15:50:21 +00:00
Code Issues Releases Activity

(add-log-current-defun): Skip doc string

Browse Source 
correctly even if it ends with line that starts space.
This commit is contained in:
Richard M. Stallman 1994-07-24 02:50:50 +00:00
parent cd6446282d
commit 019644eeaa
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/add-log.el
View File

@ -358,7 +358,9 @@ Has a preference of looking backwards."
;; or the DEFUN macro used by the C library.
(if (condition-case nil
(and (save-excursion
(forward-line 1)
(end-of-line)
(while (= (preceding-char) ?\\)
(end-of-line 2))
(backward-sexp 1)
(beginning-of-line)
(setq tem (point))