Mercurial > emacs

comparison lisp/net/tramp-vc.el @ 60763:3ba8f94e9cfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sync with Tramp 2.0.48.
author Michael Albinus <michael.albinus@gmx.de>
date Sun, 20 Mar 2005 20:00:20 +0000
parents aac0a33f5772
children df55e63482c4 13796b0653c7
comparison
equal deleted inserted replaced
60762:9d474a03949a 60763:3ba8f94e9cfa
1 ;;; tramp-vc.el --- Version control integration for TRAMP.el 1 ;;; tramp-vc.el --- Version control integration for TRAMP.el
2 2
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004 by Free Software Foundation, Inc. 3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 by Free Software Foundation, Inc.
4 4
5 ;; Author: Daniel Pittman <daniel@danann.net> 5 ;; Author: Daniel Pittman <daniel@danann.net>
6 ;; Keywords: comm, processes 6 ;; Keywords: comm, processes
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
407 ;; Pacify byte-compiler; this symbol is bound in the calling 407 ;; Pacify byte-compiler; this symbol is bound in the calling
408 ;; function. CCC: Maybe it would be better to move the 408 ;; function. CCC: Maybe it would be better to move the
409 ;; boundness-checking into this function? 409 ;; boundness-checking into this function?
410 (let* ((file (symbol-value 'file)) 410 (let* ((file (symbol-value 'file))
411 (remote-uid 411 (remote-uid
412 ;; With Emacs 22.1, `file-attributes' has got an optional parameter 412 ;; With Emacs 22, `file-attributes' has got an optional parameter
413 ;; ID-FORMAT. Handle this case backwards compatible. 413 ;; ID-FORMAT. Handle this case backwards compatible.
414 (if (and (functionp 'subr-arity) 414 (if (and (functionp 'subr-arity)
415 (= 2 (cdr (funcall (symbol-function 'subr-arity) 415 (= 2 (cdr (funcall (symbol-function 'subr-arity)
416 (symbol-function 'file-attributes))))) 416 (symbol-function 'file-attributes)))))
417 (nth 2 (file-attributes file 'integer)) 417 (nth 2 (file-attributes file 'integer))