From: Heikki Junes <heikki.junes@hut.fi>
Date: Fri, 16 May 2003 18:41:08 +0000 (+0000)
Subject: XEmacs-fix, current midi on region
X-Git-Tag: release/1.7.20~50
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0e4fd00db17187483e59e81af3c4719ae55ec2d1;p=lilypond.git

XEmacs-fix, current midi on region
---

diff --git a/ChangeLog b/ChangeLog
index 156831be2e..e3e0cd66fd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-16  Heikki Junes  <hjunes@cc.hut.fi>
+
+	* lilypond-mode.el: XEmacs-fix: Use (mark) to find active-mark.
+	Count \midi -keywords also for a region.
+
 2003-05-15  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* lily/lookup.cc (LY_DEFINE): new function
diff --git a/lilypond-mode.el b/lilypond-mode.el
index badfcbbea5..e8d56e14a6 100644
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -296,12 +296,16 @@ in LilyPond-include-path."
 (defun count-midi-words ()
   "Check number of midi-scores before the curser."
   (interactive)
-  (count-rexp (point-min) (point-max) "\\\\midi"))
+  (if (eq LilyPond-command-current 'LilyPond-command-region)
+      (count-rexp (mark t) (point) "\\\\midi")
+    (count-rexp (point-min) (point-max) "\\\\midi")))
  
 (defun count-midi-words-backwards ()
   "Check number of midi-scores before the curser."
   (interactive)
-  (count-rexp (point-min) (point) "\\\\midi"))
+  (if (eq LilyPond-command-current 'LilyPond-command-region)
+      (count-rexp (mark t) (point) "\\\\midi")
+    (count-rexp (point-min) (point) "\\\\midi")))
  
 (defun LilyPond-string-current-midi ()
   "Check the midi file of the following midi-score in the current document."
@@ -646,6 +650,11 @@ command."
       (require 'imenu)
     (error nil)))
 
+(defun LilyPond-mark-active ()
+  "Check if there is an active mark."
+  (interactive)
+  (and transient-mark-mode
+       (if (string-match "XEmacs\\|Lucid" emacs-version) (mark) mark-active)))
 
 ;;; Keymap
 
@@ -892,7 +901,7 @@ command."
 (defun LilyPond-insert-tag-notes ()
   "LilyPond notes tag."
   (interactive)
-  (setq begin (if (and transient-mark-mode mark-active) 
+  (setq begin (if (LilyPond-mark-active)
 		  (mark-marker) (point-marker)))
   (setq end (point-marker))
   (goto-char begin)
@@ -908,7 +917,7 @@ command."
 (defun LilyPond-insert-tag-score ()
   "LilyPond score tag."
   (interactive)
-  (setq begin (if (and transient-mark-mode mark-active) 
+  (setq begin (if (LilyPond-mark-active) 
 		  (mark-marker) (point-marker)))
   (setq end (point-marker))
   (goto-char begin)
@@ -1031,7 +1040,7 @@ command."
     (if (eq LilyPond-command-current 'LilyPond-command-region)
 	(if (eq (mark t) nil)
 	    (progn (message "The mark is not set now") (sit-for 0 500))
-	  (progn (if (not (not (and transient-mark-mode mark-active)))
+	  (progn (if (not (not (LilyPond-mark-active)))
 		     (progn (message "Region is not active, using region between inactive mark and current point.") (sit-for 0 500)))
 		 (LilyPond-command-region (mark t) (point))))
       (funcall LilyPond-command-current))))