Fix paren-mode
This commit is contained in:
parent
af7c179407
commit
3d4f5550d9
@ -15,22 +15,6 @@
|
|||||||
|
|
||||||
;; Show matching parentheses
|
;; Show matching parentheses
|
||||||
(show-paren-mode t)
|
(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
|
;; Enable usefull modes
|
||||||
(global-font-lock-mode t) ; syntax highlighting
|
(global-font-lock-mode t) ; syntax highlighting
|
||||||
|
Loading…
Reference in New Issue
Block a user