Fix paren-mode

This commit is contained in:
nemunaire 2021-04-30 12:23:21 +02:00
parent af7c179407
commit 3d4f5550d9
1 changed files with 0 additions and 16 deletions

View File

@ -15,22 +15,6 @@
;; Show matching parentheses
(show-paren-mode t)
(defadvice show-paren-function
(after show-matching-paren-offscreen activate)
"If the matching paren is offscreen, show the matching line in the
echo area. Has no effect if the character before point is not of
the syntax class ')'."
(interactive)
(if (not (minibuffer-prompt))
(let ((matching-text nil))
;; Only call `blink-matching-open' if the character before point
;; is a close parentheses type character. Otherwise, there's not
;; really any point, and `blink-matching-open' would just echo
;; "Mismatched parentheses", which gets really annoying.
(if (char-equal (char-syntax (char-before (point))) ?\))
(setq matching-text (blink-matching-open)))
(if (not (null matching-text))
(message matching-text)))))
;; Enable usefull modes
(global-font-lock-mode t) ; syntax highlighting