mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

Fix macro fontification in `condition-case' handler bodies

Browse source 
* 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
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/lisp-mode.el
View file

@ -233,12 +233,15 @@
(forward-sexp 1)
(< pos (point))))
(and (eq parent 'condition-case)
;; 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)))))))))))))
(point))))))))))))))
(defun lisp--el-match-keyword (limit)
;; FIXME: Move to elisp-mode.el.

1
test/lisp/progmodes/elisp-mode-tests.el
View file

@ -864,7 +864,6 @@ to (xref-elisp-test-descr-to-target xref)."
'nil)))
(ert-deftest test-elisp-font-keywords-2 ()
:expected-result :failed ; FIXME bug#43265
(should (eq (test--font '(condition-case nil
(foo)
(error (when a b)))