X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lilypond-mode.el;h=7df2546a5a68b1b29414e071a25d8d1b67d02076;hb=d145acbbd1250d861b3e8559d40c342273b2bb63;hp=468f042bc2ae11b619935f1fe889a50fbcd7c669;hpb=f07aa11356d6fd48713214870efcbd7bd269e252;p=lilypond.git

diff --git a/lilypond-mode.el b/lilypond-mode.el
index 468f042bc2..7df2546a5a 100644
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -5,7 +5,7 @@
 ;;;  
 ;;; (c) 1999--2001 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;; 
-;;; Changed 2001--2002 Heikki Junes <heikki.junes@hut.fi>
+;;; Changed 2001--2003 Heikki Junes <heikki.junes@hut.fi>
 ;;;    * Add PS-compilation, PS-viewing and MIDI-play (29th Aug 2001)
 ;;;    * Keyboard shortcuts (12th Sep 2001)
 ;;;    * Inserting tags, inspired on sgml-mode (11th Oct 2001)
@@ -20,13 +20,14 @@
 ;;; for installing instructions.
 
 ;;; TODO:
+;;;    * sensible error if lilypond.words not found. 
 ;;;    * XEmacs, broken ?
 ;;;    * parenthesis matching
 
 (require 'easymenu)
 (require 'compile)
 
-(defconst LilyPond-version "1.7.9"
+(defconst LilyPond-version "1.7.12"
   "`LilyPond-mode' version number.")
 
 (defconst LilyPond-help-address "bug-lilypond@gnu.org"
@@ -574,8 +575,9 @@ command."
 						(apply file nil)))
 	      (jobs nil)
 	      (job-string "no jobs"))
-	  (if (string-equal name "View")
-	      (let ((buffer-xdvi (get-buffer-create "*view*")))
+	  (if (member name (list "View" "ViewPS"))
+	      ;; is USR1 a right signal for viewps?
+	      (let ((buffer-xdvi (get-buffer-create (concat "*" name "*"))))
 		(if LilyPond-kick-xdvi
 		  (let ((process-xdvi (get-buffer-process buffer-xdvi)))
 		    (if process-xdvi