mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

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

Browse Source 
when reverting.

Fixes: debbugs:13831
This commit is contained in:
Thierry Volpiatto 2013-03-01 12:27:57 -05:00 committed by Stefan Monnier
parent 325b66a6d1
commit 7944eaa336
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,6 +1,11 @@
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

7
lisp/net/net-utils.el
View File

@ -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))