Fix paren-mode
This commit is contained in:
parent
af7c179407
commit
3d4f5550d9
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user