From: Heikki Junes <heikki.junes@hut.fi>
Date: Tue, 14 Jan 2003 22:17:31 +0000 (+0000)
Subject: allow multiple viewps processes.
X-Git-Tag: release/1.7.13~36
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2d5a4b487ecd03a42aa72d3466ba9539a405f007;p=lilypond.git

allow multiple viewps processes.
---

diff --git a/ChangeLog b/ChangeLog
index 7fab0276ba..6fe90534dd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-01-15  Heikki Junes  <hjunes@cc.hut.fi>
+
+	* lilypond-mode.el: allow launching multiple ViewPS processes.
+	
+	* lilypond.words: add from Text markup.
+
 2003-01-14  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* mf/feta-toevallig.mf: make flat heavier.
diff --git a/lilypond-mode.el b/lilypond-mode.el
index 468f042bc2..3e5053befd 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)
@@ -26,7 +26,7 @@
 (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 +574,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
diff --git a/lilypond.words b/lilypond.words
index 7820210dc3..dd591d7f67 100644
--- a/lilypond.words
+++ b/lilypond.words
@@ -138,6 +138,7 @@ Hairpin
 \\HaraKiriStaffContext
 \\header
 \\hideStaffSwitch
+\\hspace
 \\huge
 \\Huge
 \\hsize
@@ -165,6 +166,7 @@ InnerStaffGroup
 \\legniGroup
 \\lheel
 Ligature_bracket_engraver
+\\line
 \\linebreak
 \\lineprall
 \\locrian
@@ -224,6 +226,7 @@ NoteHead
 NoteNames
 \\NoteNamesContext
 \\notes
+\\number
 \\nt
 \\oboi
 \\oboiStaff