/[tramp]/tramp/lisp/tramp-vc.el
ViewVC logotype

Diff of /tramp/lisp/tramp-vc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.7 by kai, Thu Jul 3 11:51:54 2003 UTC revision 2.8 by albinus, Tue Nov 25 21:57:50 2003 UTC
# Line 391  filename we are thinking about..." Line 391  filename we are thinking about..."
391    ;; Pacify byte-compiler; this symbol is bound in the calling    ;; Pacify byte-compiler; this symbol is bound in the calling
392    ;; function.  CCC: Maybe it would be better to move the    ;; function.  CCC: Maybe it would be better to move the
393    ;; boundness-checking into this function?    ;; boundness-checking into this function?
394    (let ((file (symbol-value 'file)))    (let ((file (symbol-value 'file))
395      (if (and uid (/= uid (nth 2 (file-attributes file))))          (remote-uid
396             ;; With Emacs 21.4, `file-attributes' has got an optional parameter
397             ;; ID-FORMAT. Handle this case backwards compatible.
398             (if (and (functionp 'subr-arity)
399                      (= 2 (cdr (subr-arity (symbol-function 'file-attributes)))))
400                 (nth 2 (file-attributes file 'integer))
401               (nth 2 (file-attributes file)))))
402        (if (and uid (/= uid remote-uid))
403          (error "tramp-handle-vc-user-login-name cannot map a uid to a name")          (error "tramp-handle-vc-user-login-name cannot map a uid to a name")
404        (let* ((v (tramp-dissect-file-name (tramp-handle-expand-file-name file)))        (let* ((v (tramp-dissect-file-name (tramp-handle-expand-file-name file)))
405               (u (tramp-file-name-user v)))               (u (tramp-file-name-user v)))

Legend:
Removed from v.2.7  
changed lines
  Added in v.2.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26