Nice bracket matching function.

2014-09-09 10:06:45 +02:00 · 2014-09-09 10:06:45 +02:00 · 1ee9533167
parent efd6adf667
commit 1ee9533167
1 changed files with 7 additions and 0 deletions
--- a/7
+++ b/7
@ -231,3 +231,10 @@
            nil)))
    nil))
 (add-to-list 'find-file-hook 'konix/find-file-hook)
+
+(defadvice show-paren-function (after my-echo-paren-matching-line activate)
+  "If a matching paren is off-screen, echo the matching line."
+  (when (char-equal (char-syntax (char-before (point))) ?\))
+    (let ((matching-text (blink-matching-open)))
+      (when matching-text
+        (message matching-text)))))