Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(show-paren-command-hook): Cope if matching-paren gives nil.

Browse source
This commit is contained in:
Richard M. Stallman 1994-08-11 02:42:22 +00:00
parent 9d591df883
commit 080d320dce
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/paren.el
View file

@ -71,8 +71,9 @@
(let ((beg (min pos oldpos)) (end (max pos oldpos)))
(and (/= (char-syntax (char-after beg)) ?\$)
(setq mismatch
(/= (char-after (1- end))
(matching-paren (char-after beg)))))))
(not (eq (char-after (1- end))
;; This can give nil.
(matching-paren (char-after beg))))))))
;; If they don't properly match, use a different face,
;; or print a message.
(if mismatch