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

when reverting.

Fixes: debbugs:13831

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b9f7436f6f1cf7f38fb76e1add3ff079d48c345..3183743db3e47e33642bf36c5fd21a680b3c38a6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index cc28bab733f2b58420576f8254aca8886e76b6fb..82c1ce010b8547a98d9e7b28ced16a72f530f20e 100644 (file)
--- a/lisp/net/net-utils.el
+++ b/lisp/net/net-utils.el
@@ -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))