mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki 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
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))