allow multiple viewps processes.

diff --git a/ChangeLog b/ChangeLog
index 7fab0276ba67d378f552fafd96c2137aae2ab8a9..6fe90534dde9a8a0f3eeb3fc8cd7c810a3f752ce 100644 (file)
--- 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 468f042bc2ae11b619935f1fe889a50fbcd7c669..3e5053befd75c142d1f226ccb09cfd8b92cbc980 100644 (file)
--- 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 7820210dc35ce1247e452cf69604a5e64aeba1f5..dd591d7f671ff72b030070c26fa5566ff53b242f 100644 (file)
--- 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