diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/add-log.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index c0f0bf8d38d..3400d93d985 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -273,13 +273,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 (save-excursion - (forward-line 1) - (backward-sexp 1) - (beginning-of-line) - (setq tem (point)) - (looking-at "DEFUN\\b")) - (>= location tem)) + (if (condition-case nil + (and (save-excursion + (forward-line 1) + (backward-sexp 1) + (beginning-of-line) + (setq tem (point)) + (looking-at "DEFUN\\b")) + (>= location tem)) + (error nil)) (progn (goto-char tem) (down-list 1) |