(LilyPond-command): Set XEDITOR. Cool

feature nicked from jEdit.

diff --git a/ChangeLog b/ChangeLog
index 936473486d9e4f5c40d84806d41ade2af011bcd9..55c55191bd8ebadc45d2c4a6349034576fa748c8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-13  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+       * elisp/lilypond-mode.el (LilyPond-command): Set XEDITOR.  Cool
+       feature nicked from jEdit.
+
 2004-10-12  Pedro Kroger  <kroeger@pedrokroeger.net>
 
        * Documentation/user/introduction.itely: Minor corrections.

diff --git a/elisp/lilypond-mode.el b/elisp/lilypond-mode.el
index c6c174bde6f1f60caae35e012f02ac80a0945433..9e11820557d4fc51793bce2a2103ca7082aa7c97 100644 (file)
--- a/elisp/lilypond-mode.el
+++ b/elisp/lilypond-mode.el
@@ -647,7 +647,7 @@ the extension to use on the file.
 
 Use the information in LilyPond-command-alist to determine how to run the
 command."
-  
+
   (let ((entry (assoc name LilyPond-command-alist)))
     (if entry
        (let ((command (LilyPond-command-expand (cadr entry)
@@ -657,6 +657,9 @@ command."
          (if (member name (list "View" "ViewPS"))
              ;; is USR1 a right signal for viewps?
              (let ((buffer-xdvi (get-buffer-create (concat "*" name "*"))))
+               ;; what if XEDITOR is set to gedit or so, should we steal it?
+               (if (not (getenv "XEDITOR"))
+                   (setenv "XEDITOR" "emacsclient --no-wait +%l:%c %f"))
                (if LilyPond-kick-xdvi
                  (let ((process-xdvi (get-buffer-process buffer-xdvi)))
                    (if process-xdvi