Re: Submitted for approval: new option: tramp-shell-output-noswitch

[Kai Großjohann]

Francis Litterio <address@hidden> writes:

> Submitted for your approval ...  This patch (against r2.240 of tramp.el)
> introduces a user option named tramp-shell-output-noswitch.  If this
> option is non-nil, the *Shell Command Output* buffer is displayed but
> not selected after a remote command executes.  This makes shell-command
> in a TRAMP buffer behave a bit more like it does in a non-TRAMP buffer.

Does this need to be an option?  How about this change?  (I'll commit
it.)

cvs server: Diffing .
cvs server: Diffing contrib
cvs server: Diffing lisp
Index: lisp/ChangeLog
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v
retrieving revision 2.232
diff -u -r2.232 ChangeLog
--- lisp/ChangeLog      6 Oct 2002 19:03:20 -0000       2.232
+++ lisp/ChangeLog      11 Oct 2002 07:54:17 -0000
@@ -1,3 +1,14 @@
+2002-10-11  Kai Großjohann  <address@hidden>
+
+       * tramp.el (tramp-handle-shell-command): Don't switch to the
+       output buffer, just display it.  From Francis Litterio
+       <address@hidden>.
+
+2002-10-10  Kai Großjohann  <address@hidden>
+
+       * tramp.el (tramp-handle-file-newer-than-file-p): Use
+       tramp-time-diff instead of subtract-time.  Reported by Angus Lees.
+
 2002-10-06  Kai Großjohann  <address@hidden>
 
        Version 2.0.25 released.
Index: lisp/tramp.el
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v
retrieving revision 2.240
diff -u -r2.240 tramp.el
--- lisp/tramp.el       6 Oct 2002 19:03:20 -0000       2.240
+++ lisp/tramp.el       11 Oct 2002 07:54:30 -0000
@@ -2213,7 +2213,7 @@
                 (fa2 (file-attributes file2)))
             (if (and (not (equal (nth 5 fa1) '(0 0)))
                      (not (equal (nth 5 fa2) '(0 0))))
-                (> 0 (car (subtract-time (nth 5 fa1) (nth 5 fa2))))
+                (> 0 (car (tramp-time-diff (nth 5 fa1) (nth 5 fa2))))
               ;; If one of them is the dont-know value, then we can
               ;; still try to run a shell command on the remote host.
               ;; However, this only works if both files are Tramp
@@ -2979,7 +2979,7 @@
            (skip-chars-forward "^ ")
            (setq status (read (current-buffer))))
          (unless (zerop (buffer-size))
-           (pop-to-buffer output-buffer))
+           (display-buffer output-buffer))
          status))
     ;; The following is only executed if something strange was
     ;; happening.  Emit a helpful message and do it anyway.
cvs server: Diffing test
cvs server: Diffing texi
cvs server: Diffing tramp2


kai
-- 
~/.signature is: umop ap!sdn    (Frank Nobis)