[Emacs-diffs] /srv/bzr/emacs/trunk r111907: * lisp/net/net-utils.el (net-utils-run-simple): Don't display-buffer

[Stefan Monnier]

------------------------------------------------------------
revno: 111907
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13831
author: Thierry Volpiatto <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-03-01 12:27:57 -0500
message:
  * lisp/net/net-utils.el (net-utils-run-simple): Don't display-buffer
  when reverting.
modified:
  lisp/ChangeLog
  lisp/net/net-utils.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-01 17:13:04 +0000
+++ b/lisp/ChangeLog    2013-03-01 17:27:57 +0000
@@ -1,6 +1,11 @@
+2013-03-01  Thierry Volpiatto  <address@hidden>
+
+       * net/net-utils.el (net-utils-run-simple): Don't display-buffer
+       when reverting (bug#13831).
+
 2013-03-01  Agustín Martín Domingo  <address@hidden>
 
-       * 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

=== modified file 'lisp/net/net-utils.el'
--- a/lisp/net/net-utils.el     2013-02-28 14:51:03 +0000
+++ b/lisp/net/net-utils.el     2013-03-01 17:27:57 +0000
@@ -358,7 +358,7 @@
 ;; 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 @@
       (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))