Fix blinking in Emacs.

diff --git a/ChangeLog b/ChangeLog
index 2683fb55271e3b1e77457cec22dfbcf112d1b38c..8e4b9b4d30e4df2cdbfd5ad87c7ce2b81dd10471 100644 (file)
--- 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 ca463e838cb83f0fa525deba5d2a51d685b0cba6..3a10a11ed6912e7b1f878f552f7a56a7a37d23e0 100644 (file)
--- 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 6937de863a134f6e4d55e061013cda5476941446..9f5e626963d5208745c0c2d03a0405b5625355d9 100644 (file)
--- 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))