[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111088: * net/tramp-sh.el (tramp-set-file-uid-gid): Convert UID and GID to

[Michael Albinus]

------------------------------------------------------------
revno: 111088
committer: Michael Albinus <address@hidden>
branch nick: emacs-24
timestamp: Fri 2012-12-28 18:42:11 +0100
message:
  * net/tramp-sh.el (tramp-set-file-uid-gid): Convert UID and GID to
  integers, if they are real numbers.  (Bug#13282)
modified:
  lisp/ChangeLog
  lisp/net/tramp-sh.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-26 16:45:19 +0000
+++ b/lisp/ChangeLog    2012-12-28 17:42:11 +0000
@@ -1,3 +1,8 @@
+2012-12-28  Michael Albinus  <address@hidden>
+
+       * net/tramp-sh.el (tramp-set-file-uid-gid): Convert UID and GID to
+       integers, if they are real numbers.  (Bug#13282)
+
 2012-12-26  Dmitry Gutov  <address@hidden>
 
        * progmodes/ruby-mode.el (ruby-indent-beg-re): Only allow "class",

=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el      2012-11-27 14:55:25 +0000
+++ b/lisp/net/tramp-sh.el      2012-12-28 17:42:11 +0000
@@ -1455,7 +1455,9 @@
   ;; working with su(do)? when it is needed, so it shall succeed in
   ;; the majority of cases.
   ;; Don't modify `last-coding-system-used' by accident.
-  (let ((last-coding-system-used last-coding-system-used))
+  (let ((last-coding-system-used last-coding-system-used)
+       (uid (and (numberp uid) (round uid)))
+       (gid (and (numberp gid) (round gid))))
     (if (file-remote-p filename)
        (with-parsed-tramp-file-name filename nil
          (if (and (zerop (user-uid)) (tramp-local-host-p v))