[Emacs-diffs] Changes to emacs/lisp/net/tramp.el,v

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       08/06/15 13:36:31

Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.200
retrieving revision 1.201
diff -u -b -r1.200 -r1.201
--- tramp.el    8 Jun 2008 10:47:43 -0000       1.200
+++ tramp.el    15 Jun 2008 13:36:30 -0000      1.201
@@ -3681,7 +3681,10 @@
           ;; BUFFER can be nil.
           (get-buffer-create (or buffer (current-buffer))))
          ;; Activate narrowing in order to save BUFFER contents.
+         ;; Clear also the modification time; otherwise we might be
+         ;; interrupted by `verify-visited-file-modtime'.
          (with-current-buffer (tramp-get-connection-buffer v)
+           (clear-visited-file-modtime)
            (narrow-to-region (point-max) (point-max)))
          ;; Goto working directory.  `tramp-send-command' opens a new
          ;; connection.
@@ -4564,6 +4567,7 @@
   "Invoke remote-shell Tramp file name handler.
 Fall back to normal file name handler if no Tramp handler exists."
   (when (and tramp-locked (not tramp-locker))
+    (setq tramp-locked nil)
     (signal 'file-error (list "Forbidden reentrant call of Tramp")))
   (let ((tl tramp-locked))
     (unwind-protect
@@ -7515,6 +7519,8 @@
 ;; * Make `tramp-default-user' obsolete.
 ;; * Tramp shall reconnect automatically to its ssh connection when it
 ;;   detects that the process "has died". (David Reitter)
+;; * How can I interrupt the remote process with a signal
+;;   (interrupt-process seems not to work)? (Markus Triska)
 
 ;; Functions for file-name-handler-alist:
 ;; diff-latest-backup-file -- in diff.el