Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-dired.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-dired.el 4 ;; File: efs-dired.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: #Revision: 1.31 $ 6 ;; Version: #Revision: 1.32 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Extends much of Dired to work under efs. 8 ;; Description: Extends much of Dired to work under efs.
9 ;; Authors: Sebastian Kremer <sk@thp.uni-koeln.de>, 9 ;; Authors: Sebastian Kremer <sk@thp.uni-koeln.de>,
10 ;; Andy Norman <ange@hplb.hpl.hp.com>, 10 ;; Andy Norman <ange@hplb.hpl.hp.com>,
11 ;; Sandy Rutherford <sandy@ibm550.sissa.it> 11 ;; Sandy Rutherford <sandy@ibm550.sissa.it>
12 ;; Created: Throughout the ages. 12 ;; Created: Throughout the ages.
13 ;; Modified: Sun Nov 27 12:19:46 1994 by sandy on gandalf
14 ;; Language: Emacs-Lisp 13 ;; Language: Emacs-Lisp
15 ;; 14 ;;
16 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 15 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
17 16
18 ;;; Provisions and requirements 17 ;;; Provisions and requirements
23 (autoload 'dired-shell-call-process "dired-shell") 22 (autoload 'dired-shell-call-process "dired-shell")
24 23
25 (defconst efs-dired-version 24 (defconst efs-dired-version
26 (concat (substring "$efs release: 1.15 $" 14 -2) 25 (concat (substring "$efs release: 1.15 $" 14 -2)
27 "/" 26 "/"
28 (substring "#Revision: 1.31 $" 11 -2))) 27 (substring "#Revision: 1.32 $" 11 -2)))
29 28
30 ;;;; ---------------------------------------------------------------- 29 ;;;; ----------------------------------------------------------------
31 ;;;; User Configuration Variables 30 ;;;; User Configuration Variables
32 ;;;; ---------------------------------------------------------------- 31 ;;;; ----------------------------------------------------------------
33 32
34 (defvar efs-dired-verify-modtime-host-regexp nil 33 (defvar efs-dired-verify-modtime-host-regexp nil
35 "Regular expression determining on which hosts dired modtimes are checked.") 34 "Regular expression determining on which hosts dired modtimes are checked.")
36 35
37 (defvar efs-dired-verify-anonymous-modtime nil 36 (defvar efs-dired-verify-anonymous-modtime nil
38 "If non-nil, dired modtimes are checked for anonymous logins.") 37 "If non-nil, dired modtimes are checked for anonymous logins.")
39
40 (defvar efs-remote-shell-file-name
41 (if (memq system-type '(hpux usg-unix-v)) ; hope that's right
42 "remsh"
43 "rsh")
44 "Remote shell used by efs.")
45
46 (defvar efs-remote-shell-takes-user
47 (null (null (memq system-type '(aix-v3 hpux silicon-graphics-unix
48 berkeley-unix))))
49 ;; Complete? Doubt it.
50 "Set to non-nil if your remote shell command takes \"-l USER\".")
51 38
52 ;;; Internal Variables 39 ;;; Internal Variables
53 40
54 (make-variable-buffer-local 'dired-ls-F-marks-symlinks) 41 (make-variable-buffer-local 'dired-ls-F-marks-symlinks)
55 42
1528 (user (nth 1 parsed)) 1515 (user (nth 1 parsed))
1529 (path (efs-quote-string 1516 (path (efs-quote-string
1530 (efs-host-type host user) (nth 2 parsed))) 1517 (efs-host-type host user) (nth 2 parsed)))
1531 (abbr (efs-relativize-filename file)) 1518 (abbr (efs-relativize-filename file))
1532 (result (efs-send-cmd host user 1519 (result (efs-send-cmd host user
1533 (list 'quote 'site 'chmod 1520 (list 'quote 'site 'chmod
1534 mode path) 1521 mode path)
1535 (format "doing chmod %s" 1522 (format "doing chmod %s"
1536 abbr)))) 1523 abbr))))
1537 (efs-del-from-ls-cache file t) 1524
1538 (if (car result) 1525 (if (car result)
1539 (efs-error host user (format "chmod: %s: \"%s\"" file 1526 (efs-dired-shell-call-process
1540 (nth 1 result))))) 1527 (concat "chmod " mode " " (file-name-nondirectory file))
1528 (file-name-directory file)))
1529
1530 (efs-del-from-ls-cache file t))
1541 (error (setq bombed t))))))) 1531 (error (setq bombed t)))))))
1542 (cdr args)) 1532 (cdr args))
1543 (if bombed 1 0))) ; return code 1533 (if bombed 1 0))) ; return code
1544 1534
1545 (defun efs-call-lpr (file command-format) 1535 (defun efs-call-lpr (file command-format)