From: Heikki Junes <heikki.junes@hut.fi>
Date: Mon, 5 May 2003 22:00:38 +0000 (+0000)
Subject: Fix blinking in Emacs.
X-Git-Tag: release/1.7.20~66
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f7133fb1c001b9ba924d2cdc0ed3765193b66245;p=lilypond.git

Fix blinking in Emacs.
---

diff --git a/ChangeLog b/ChangeLog
index 2683fb5527..8e4b9b4d30 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,11 +1,12 @@
 2003-05-05  Heikki Junes  <hjunes@cc.hut.fi>
 
-	* lilypond-mode.el: Move comments of parenthesis matching below.
+	* lilypond-mode.el: Move comments of parenthesis matching away,
+	(blink-matching-paren-on-screen) fix blinking in Emacs.
 
 	* lilypond-font-lock.el: Fix parent-matching for Emacs:
-	Emacs knows only "13"-style, XEmacs knows also "1b3b", etc.
+	Emacs syntax-table knows only "13"-style, XEmacs knows also "1b3b".
 
-	* lilypond-indent.el: Add TODO.
+	* lilypond-indent.el: Add TODO for parenthesis matching.
 
 2003-05-03  Heikki Junes  <hjunes@cc.hut.fi>
 
diff --git a/lilypond-indent.el b/lilypond-indent.el
index ca463e838c..3a10a11ed6 100644
--- a/lilypond-indent.el
+++ b/lilypond-indent.el
@@ -7,8 +7,7 @@
 
 ;;; TODO:
 ;;;    * emulate show-paren-mode 
-;;;    * separate slurs '(' and ')' from '\(' and '\)'
-;;;    * blinking is not shonw in Emacs, but is shown in XEmacs
+;;;    * separate '('- and ')'-slurs from '\('- and '\)'-slurs.
 
 (defcustom LilyPond-indent-level 4
   "*Indentation of lilypond statements with respect to containing block.")
diff --git a/lilypond-mode.el b/lilypond-mode.el
index 6937de863a..9f5e626963 100644
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -1073,12 +1073,17 @@ LilyPond-xdvi-command\t\tcommand to display dvi files -- bit superfluous"
   (setq local-abbrev-table LilyPond-mode-abbrev-table)
   (use-local-map LilyPond-mode-map)
 
+  ;; In Emacs blink-...-on-screen needs to be declared (, not in XEmacs).
+  (make-local-variable 'blink-matching-paren-on-screen)
+  (setq blink-matching-paren-on-screen t)
+
   (make-local-variable 'imenu-generic-expression)
   (setq imenu-generic-expression LilyPond-imenu-generic-expression)
   (imenu-add-to-menubar "Index")
 
-  (easy-menu-add LilyPond-mode-menu)    ; automatically added in Emacs, but
-  (easy-menu-add LilyPond-command-menu) ; explicitly added in XEmacs
+  ;; In XEmacs one needs to use 'easy-menu-add' (, not in Emacs).
+  (easy-menu-add LilyPond-mode-menu)
+  (easy-menu-add LilyPond-command-menu)
 
   ;; run the mode hook. LilyPond-mode-hook use is deprecated
   (run-hooks 'LilyPond-mode-hook))