[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3fd0e7f: ; * lisp/emacs-lisp/lisp-mode.el: Restore one check in f
From: |
Lars Ingebrigtsen |
Subject: |
master 3fd0e7f: ; * lisp/emacs-lisp/lisp-mode.el: Restore one check in flet handling |
Date: |
Mon, 8 Nov 2021 22:26:11 -0500 (EST) |
branch: master
commit 3fd0e7fba6fed9f7e5e30d2d31102b210291993a
Author: akater <nuclearspace@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
; * 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).
---
lisp/emacs-lisp/lisp-mode.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index a5613e7..d90d0f5 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'.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3fd0e7f: ; * lisp/emacs-lisp/lisp-mode.el: Restore one check in flet handling,
Lars Ingebrigtsen <=