From f017b6d1866a570f1234fabcc54e02e434d51cce Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Wed, 13 Oct 2004 08:12:59 +0000 Subject: [PATCH] (LilyPond-command): Set XEDITOR. Cool feature nicked from jEdit. --- ChangeLog | 5 +++++ elisp/lilypond-mode.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 936473486d..55c55191bd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-10-13 Jan Nieuwenhuizen + + * elisp/lilypond-mode.el (LilyPond-command): Set XEDITOR. Cool + feature nicked from jEdit. + 2004-10-12 Pedro Kroger * Documentation/user/introduction.itely: Minor corrections. diff --git a/elisp/lilypond-mode.el b/elisp/lilypond-mode.el index c6c174bde6..9e11820557 100644 --- 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 -- 2.39.2