branch: elpa/gnuplot
commit cbd123028a5570f8454b19b953bb00f2463db6da
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Improve comint initialization
---
gnuplot.el | 18 +++++++-----------
1 file changed, 7 insertions(+), 11 deletions(-)
diff --git a/gnuplot.el b/gnuplot.el
index 898ef90e33..4f0ba77ce2 100644
--- a/gnuplot.el
+++ b/gnuplot.el
@@ -214,7 +214,7 @@ These messages are shown after menu insertion of gnuplot
commands."
:group 'gnuplot-insertions
:type 'boolean)
-(defcustom gnuplot-delay 0.01
+(defcustom gnuplot-delay 0.02
"Amount of time to delay before sending a new line to gnuplot.
This is needed so that the the line is not written in the gnuplot
buffer in advance of its prompt. Increase this number if the
@@ -1107,7 +1107,7 @@ called by this function after all of STRING is sent to
gnuplot."
(goto-char (point-max))
;; bruce asks: what is this next line for?
(set-marker (process-mark gnuplot-process) (point-marker))
- (sleep-for (* 20 gnuplot-delay))
+ (sleep-for (* 10 gnuplot-delay))
(while list
(insert (car list))
(comint-send-input)
@@ -1376,19 +1376,15 @@ buffer."
"Switch to the gnuplot program buffer or create one if none exists."
(unless (and gnuplot-process (eq (process-status gnuplot-process) 'run)
gnuplot-buffer (buffer-live-p gnuplot-buffer))
- (message "Starting gnuplot plotting program...")
- (let ((gnuplot-cmd (list #'make-comint gnuplot-process-name
gnuplot-program)))
- (when gnuplot-program-args
- (setq gnuplot-cmd (append gnuplot-cmd '(nil) (split-string
gnuplot-program-args))))
- (setq gnuplot-buffer (eval gnuplot-cmd t)
- gnuplot-process (get-buffer-process gnuplot-buffer)))
+ (setq gnuplot-buffer (apply #'make-comint gnuplot-process-name
gnuplot-program nil
+ (and gnuplot-program-args (split-string
gnuplot-program-args)))
+ gnuplot-process (get-buffer-process gnuplot-buffer))
(set-process-query-on-exit-flag gnuplot-process nil)
(with-current-buffer gnuplot-buffer
(gnuplot-comint-mode)
(when gnuplot-inline-image-mode
- (sleep-for gnuplot-delay)
- (gnuplot--setup-comint-for-image-mode)))
- (message "Starting gnuplot plotting program...Done")))
+ (sleep-for (* 10 gnuplot-delay))
+ (gnuplot--setup-comint-for-image-mode)))))
(defvar gnuplot-prompt-regexp
(regexp-opt '("gnuplot> " "multiplot> "))
