Mercurial > emacs
comparison lisp/add-log.el @ 8313:589abdc989e1
(add-log-current-defun): Skip doc string
correctly even if it ends with line that starts space.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Jul 1994 02:50:50 +0000 |
| parents | 3eab4db14a5d |
| children | b307091cdf97 |
comparison
equal
deleted
inserted
replaced
| 8312:ff0139dfba53 | 8313:589abdc989e1 |
|---|---|
| 356 (forward-line -1)) | 356 (forward-line -1)) |
| 357 ;; See if this is using the DEFUN macro used in Emacs, | 357 ;; See if this is using the DEFUN macro used in Emacs, |
| 358 ;; or the DEFUN macro used by the C library. | 358 ;; or the DEFUN macro used by the C library. |
| 359 (if (condition-case nil | 359 (if (condition-case nil |
| 360 (and (save-excursion | 360 (and (save-excursion |
| 361 (forward-line 1) | 361 (end-of-line) |
| 362 (while (= (preceding-char) ?\\) | |
| 363 (end-of-line 2)) | |
| 362 (backward-sexp 1) | 364 (backward-sexp 1) |
| 363 (beginning-of-line) | 365 (beginning-of-line) |
| 364 (setq tem (point)) | 366 (setq tem (point)) |
| 365 (looking-at "DEFUN\\b")) | 367 (looking-at "DEFUN\\b")) |
| 366 (>= location tem)) | 368 (>= location tem)) |