XEmacs fix.

diff --git a/ChangeLog b/ChangeLog
index a4a9fdcc6277fd0b6e3c9a3c70b452760f49d208..5801b8d8721b331f7661025a1190ca8900475123 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,8 @@
 
        * lilypond-indent.el (LilyPond-comment-region): new function,
        (un)comments each line separately.
+
+       * lilypond-mode.el, lilypond-indent.el: fix XEmacs paren-match.
        
 2003-06-16  Heikki Junes  <hjunes@cc.hut.fi>
 

diff --git a/lilypond-indent.el b/lilypond-indent.el
index 814ffce0bb0cb5218dee4061c0f779794cceafec..7aa2e72e76f72c331f695580d1f25e631c0de668 100644 (file)
--- a/lilypond-indent.el
+++ b/lilypond-indent.el
@@ -680,6 +680,8 @@ in XEmacs' paren-highlight."
 ;;; From XEmacs' paren.el, with minimal changes (see "LilyPond"-lines)
 ;; Find the place to show, if there is one,
 ;; and show it until input arrives.
+(if (string-match "XEmacs\\|Lucid" emacs-version)
+    (paren-set-mode 'paren)) ; works if this is set here (, right place?)
 (defun paren-highlight ()
 ;;(defun LilyPond-paren-highlight () ; make paren-highlight local ??
   "This highlights matching parentheses.

diff --git a/lilypond-mode.el b/lilypond-mode.el
index 9fbe6dad1a96ed02010bd0ffb69dc83516506c8d..c4aa15a9dc1859559634ae0f6c353f348f4f373a 100644 (file)
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -1099,8 +1099,7 @@ LilyPond-xdvi-command\t\tcommand to display dvi files -- bit superfluous"
   (if (not (string-match "XEmacs\\|Lucid" emacs-version))
       (progn
        (make-local-variable 'show-paren-mode)
-       (setq show-paren-mode t))
-    (paren-set-mode 'paren))
+       (setq show-paren-mode t)))
 
   (if (not (string-match "XEmacs\\|Lucid" emacs-version))
       (progn