From cc13e6df4e55c3f7d3c76cb9a1f42aa3103debb5 Mon Sep 17 00:00:00 2001 From: Heikki Junes Date: Mon, 16 Jun 2003 22:15:01 +0000 Subject: [PATCH] XEmacs fix. --- ChangeLog | 2 ++ lilypond-indent.el | 2 ++ lilypond-mode.el | 3 +-- 3 files changed, 5 insertions(+), 2 deletions(-) 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 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 -- 2.39.5