diff options
| author | akater <nuclearspace@gmail.com> | 2021-11-09 04:25:24 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-09 04:26:05 +0100 |
| commit | 3fd0e7fba6fed9f7e5e30d2d31102b210291993a (patch) | |
| tree | 9c5498e8d6ecec0eec96f4aa09ebc520c1cd7d75 /lisp/emacs-lisp/lisp-mode.el | |
| parent | 032969e8c65ba1ccda8466f6c61f20e0c7293ebf (diff) | |
| download | emacs-3fd0e7fba6fed9f7e5e30d2d31102b210291993a.tar.gz | |
; * lisp/emacs-lisp/lisp-mode.el: Restore one check in flet handling
* lisp/emacs-lisp/lisp-mode.el (lisp--local-defform-body-p):
Do check backward-up-list executing without errors (bug#9622).
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index a5613e70e0a..d90d0f5f6ac 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -1149,12 +1149,12 @@ STATE is the `parse-partial-sexp' state for current position." t) (point)))))) (save-excursion - (ignore-errors - ;; We rely on `backward-up-list' working - ;; even when sexp is incomplete “to the right”. - (backward-up-list 2) - t) - (= local-definitions-starting-point (point))))))))) + (when (ignore-errors + ;; We rely on `backward-up-list' working + ;; even when sexp is incomplete “to the right”. + (backward-up-list 2) + t) + (= local-definitions-starting-point (point)))))))))) (defun lisp-indent-function (indent-point state) "This function is the normal value of the variable `lisp-indent-function'. |