Commit 7944eaa3 authored by Thierry Volpiatto's avatar Thierry Volpiatto Committed by Stefan Monnier
Browse files

* lisp/net/net-utils.el (net-utils-run-simple): Don't display-buffer

when reverting.

Fixes: debbugs:13831
parent 325b66a6
2013-03-01 Thierry Volpiatto <thierry.volpiatto@gmail.com>
* net/net-utils.el (net-utils-run-simple): Don't display-buffer
when reverting (bug#13831).
2013-03-01 Agustín Martín Domingo <agustin.martin@hispalinux.es>
 
* textmodes/ispell.el (ispell-find-hunspell-dictionaries):
* textmodes/ispell.el (ispell-find-hunspell-dictionaries):
Always expand affix-file before storing to protect against changed
`default-directory'.
(ispell-print-if-debug): Make sure message is printed at the end
......
......@@ -358,7 +358,7 @@ This variable is only used if the variable
;; Todo: This data could be saved in a bookmark.
(defvar net-utils--revert-cmd nil)
(defun net-utils-run-simple (buffer program-name args)
(defun net-utils-run-simple (buffer program-name args &optional nodisplay)
"Run a network utility for diagnostic output only."
(with-current-buffer (if (stringp buffer) (get-buffer-create buffer) buffer)
(let ((proc (get-buffer-process (current-buffer))))
......@@ -369,13 +369,14 @@ This variable is only used if the variable
(erase-buffer))
(net-utils-mode)
(setq-local net-utils--revert-cmd
`(net-utils-run-simple ,(current-buffer) ,program-name ,args))
`(net-utils-run-simple ,(current-buffer)
,program-name ,args nodisplay))
(set-process-filter
(apply 'start-process program-name
(current-buffer) program-name args)
'net-utils-remove-ctrl-m-filter)
(goto-char (point-min))
(display-buffer (current-buffer))))
(unless nodisplay (display-buffer (current-buffer)))))
(defun net-utils--revert-function (&optional ignore-auto noconfirm)
(message "Reverting `%s'..." (buffer-name))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment