From: Heikki Junes <heikki.junes@hut.fi>
Date: Mon, 16 Jun 2003 22:15:01 +0000 (+0000)
Subject: XEmacs fix.
X-Git-Tag: release/1.7.22~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cc13e6df4e55c3f7d3c76cb9a1f42aa3103debb5;p=lilypond.git

XEmacs fix.
---

diff --git a/ChangeLog b/ChangeLog
index a4a9fdcc62..5801b8d872 100644
--- 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 814ffce0bb..7aa2e72e76 100644
--- 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 9fbe6dad1a..c4aa15a9dc 100644
--- 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