Fix macro fontification in `condition-case' handler bodies
* lisp/emacs-lisp/lisp-mode.el (lisp--el-non-funcall-position-p): Fontify macros in the BODY of HANDLERS in `condition-case' correctly (bug#43265).
This commit is contained in:
parent
8f28a1b9da
commit
196be2bf12
2 changed files with 9 additions and 7 deletions
|
@ -233,12 +233,15 @@
|
|||
(forward-sexp 1)
|
||||
(< pos (point))))
|
||||
(and (eq parent 'condition-case)
|
||||
(progn
|
||||
(forward-sexp 1)
|
||||
;; If we're in the second form, then we're in
|
||||
;; a funcall position.
|
||||
(not (< (point) pos (progn (forward-sexp 1)
|
||||
(point)))))))))))))
|
||||
;; If (cdr paren-posns), then we're in the BODY
|
||||
;; of HANDLERS.
|
||||
(and (not (cdr paren-posns))
|
||||
(progn
|
||||
(forward-sexp 1)
|
||||
;; If we're in the second form, then we're in
|
||||
;; a funcall position.
|
||||
(not (< (point) pos (progn (forward-sexp 1)
|
||||
(point))))))))))))))
|
||||
|
||||
(defun lisp--el-match-keyword (limit)
|
||||
;; FIXME: Move to elisp-mode.el.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue