[Emacs-diffs] trunk r117470: * net/tramp-adb.el (tramp-adb-sh-fix-ls-output): Use `bolp'.

[Michael Albinus]

------------------------------------------------------------
revno: 117470
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Thu 2014-07-03 11:27:02 +0200
message:
  * net/tramp-adb.el (tramp-adb-sh-fix-ls-output): Use `bolp'.
  
  * net/tramp-sh.el (tramp-sh-handle-set-visited-file-modtime)
  (tramp-sh-handle-verify-visited-file-modtime): Use `point-at-eol'.
  
  * net/tramp.el (tramp-call-process): Handle error strings.
  
  * net/trampver.el: Update release number.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/tramp-adb.el          trampadb.el-20121204164216-03wyr5miam215d7f-1
  lisp/net/tramp-sh.el           trampsh.el-20100913133439-a1faifh29eqoi4nh-1
  lisp/net/tramp.el              tramp.el-20091113204419-o5vbwnq5f7feedwu-2427
  lisp/net/trampver.el           
trampver.el-20091113204419-o5vbwnq5f7feedwu-2564

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-03 06:00:53 +0000
+++ b/lisp/ChangeLog    2014-07-03 09:27:02 +0000
@@ -1,3 +1,14 @@
+2014-07-03  Michael Albinus  <address@hidden>
+
+       * net/tramp.el (tramp-call-process): Handle error strings.
+
+       * net/tramp-adb.el (tramp-adb-sh-fix-ls-output): Use `bolp'.
+
+       * net/tramp-sh.el (tramp-sh-handle-set-visited-file-modtime)
+       (tramp-sh-handle-verify-visited-file-modtime): Use `point-at-eol'.
+
+       * net/trampver.el: Update release number.
+
 2014-07-03  Juri Linkov  <address@hidden>
 
        * desktop.el (desktop-save): Rename arg `auto-save' to

=== modified file 'lisp/net/tramp-adb.el'
--- a/lisp/net/tramp-adb.el     2014-06-24 07:15:26 +0000
+++ b/lisp/net/tramp-adb.el     2014-07-03 09:27:02 +0000
@@ -458,9 +458,7 @@
       (insert "  " (mapconcat 'identity sorted-lines "\n  ")))
     ;; Add final newline.
     (goto-char (point-max))
-    (unless (= (point) (line-beginning-position))
-      (insert "\n"))))
-
+    (unless (bolp) (insert "\n"))))
 
 (defun tramp-adb-ls-output-time-less-p (a b)
   "Sort \"ls\" output by time, descending."

=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el      2014-07-01 14:06:11 +0000
+++ b/lisp/net/tramp-sh.el      2014-07-03 09:27:02 +0000
@@ -1265,8 +1265,7 @@
               (format "%s -ild %s"
                       (tramp-get-ls-command v)
                       (tramp-shell-quote-argument localname)))
-             (setq attr (buffer-substring (point)
-                                          (progn (end-of-line) (point)))))
+             (setq attr (buffer-substring (point) (point-at-eol))))
            (tramp-set-file-property
             v localname "visited-file-modtime-ild" attr))
          (when (boundp 'last-coding-system-used)
@@ -1317,8 +1316,7 @@
                       (tramp-get-ls-command v)
                       (tramp-shell-quote-argument localname)))
              (with-current-buffer (tramp-get-buffer v)
-               (setq attr (buffer-substring
-                           (point) (progn (end-of-line) (point)))))
+               (setq attr (buffer-substring (point) (point-at-eol))))
              (equal
               attr
               (tramp-get-file-property

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2014-06-15 15:47:35 +0000
+++ b/lisp/net/tramp.el 2014-07-03 09:27:02 +0000
@@ -4127,10 +4127,9 @@
 (defun tramp-call-process
   (vec program &optional infile destination display &rest args)
   "Calls `call-process' on the local host.
-This is needed because for some Emacs flavors Tramp has
-defadvised `call-process' to behave like `process-file'.  The
-Lisp error raised when PROGRAM is nil is trapped also, returning 1.
-Furthermore, traces are written with verbosity of 6."
+It always returns a return code.  The Lisp error raised when
+PROGRAM is nil is trapped also, returning 1.  Furthermore, traces
+are written with verbosity of 6."
   (let ((v (or vec
               (vector tramp-current-method tramp-current-user
                       tramp-current-host nil nil)))
@@ -4144,6 +4143,9 @@
          (setq result
                (apply
                 'call-process program infile (or destination t) display args))
+         ;; `result' could also be an error string.
+         (when (stringp result)
+           (signal 'file-error (list result)))
          (with-current-buffer
              (if (bufferp destination) destination (current-buffer))
            (tramp-message v 6 "%d\n%s" result (buffer-string))))

=== modified file 'lisp/net/trampver.el'
--- a/lisp/net/trampver.el      2014-06-15 15:47:35 +0000
+++ b/lisp/net/trampver.el      2014-07-03 09:27:02 +0000
@@ -24,14 +24,14 @@
 
 ;;; Code:
 
-;; In the Tramp CVS repository, the version number and the bug report
+;; In the Tramp GIT repository, the version number and the bug report
 ;; address are auto-frobbed from configure.ac, so you should edit that
 ;; file and run "autoconf && ./configure" to change them.  (X)Emacs
 ;; version check is defined in macro AC_EMACS_INFO of aclocal.m4;
 ;; should be changed only there.
 
 ;;;###tramp-autoload
-(defconst tramp-version "2.2.10"
+(defconst tramp-version "2.2.11-pre"
   "This version of Tramp.")
 
 ;;;###tramp-autoload
@@ -44,7 +44,7 @@
                      (= emacs-major-version 21)
                      (>= emacs-minor-version 4)))
             "ok"
-          (format "Tramp 2.2.10 is not fit for %s"
+          (format "Tramp 2.2.11-pre is not fit for %s"
                   (when (string-match "^.*$" (emacs-version))
                     (match-string 0 (emacs-version)))))))
   (unless (string-match "\\`ok\\'" x) (error "%s" x)))