Mercurial > emacs
comparison lisp/add-log.el @ 1351:e7bc20e1b2b9
(add-log-current-defun): Catch errors checking for DEFUN.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 06 Oct 1992 05:12:54 +0000 |
parents | 1aea52712a31 |
children | e5cb5060bb51 |
comparison
equal
deleted
inserted
replaced
1350:b74d9663f9a6 | 1351:e7bc20e1b2b9 |
---|---|
271 (while (and (not (bobp)) | 271 (while (and (not (bobp)) |
272 (looking-at "[ \t\n]")) | 272 (looking-at "[ \t\n]")) |
273 (forward-line -1)) | 273 (forward-line -1)) |
274 ;; See if this is using the DEFUN macro used in Emacs, | 274 ;; See if this is using the DEFUN macro used in Emacs, |
275 ;; or the DEFUN macro used by the C library. | 275 ;; or the DEFUN macro used by the C library. |
276 (if (and (save-excursion | 276 (if (condition-case nil |
277 (forward-line 1) | 277 (and (save-excursion |
278 (backward-sexp 1) | 278 (forward-line 1) |
279 (beginning-of-line) | 279 (backward-sexp 1) |
280 (setq tem (point)) | 280 (beginning-of-line) |
281 (looking-at "DEFUN\\b")) | 281 (setq tem (point)) |
282 (>= location tem)) | 282 (looking-at "DEFUN\\b")) |
283 (>= location tem)) | |
284 (error nil)) | |
283 (progn | 285 (progn |
284 (goto-char tem) | 286 (goto-char tem) |
285 (down-list 1) | 287 (down-list 1) |
286 (if (= (char-after (point)) ?\") | 288 (if (= (char-after (point)) ?\") |
287 (progn | 289 (progn |