From 7aafefd252df6ff13b93ad388e767c771f56e916 Mon Sep 17 00:00:00 2001 From: Pierre Courtieu Date: Mon, 12 Dec 2016 11:27:24 +0100 Subject: remove default absolute name from coq-prog-name, but keep dipsplaying it when asking for it. --- generic/proof-shell.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'generic') diff --git a/generic/proof-shell.el b/generic/proof-shell.el index 64eee4c8..7b19fded 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -293,8 +293,10 @@ process command." (apply proof-guess-command-line (list name))))) (if proof-prog-name-ask - (setq proof-prog-name (read-shell-command "Run process: " - proof-prog-name))) + ;; if this option is set, an absolute file name is better to show if possible + (let ((prog-name (locate-file proof-prog-name exec-path exec-suffixes 1))) + (setq proof-prog-name (read-shell-command "Run process: " + prog-name)))) (let ((proc (downcase proof-assistant))) -- cgit v1.2.3