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:
Lars Ingebrigtsen 2021-01-24 21:43:25 +01:00
parent 8f28a1b9da
commit 196be2bf12
2 changed files with 9 additions and 7 deletions

View file

@ -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.