Mercurial > hg > xemacs-beta

comparison lisp/efs/dired-xemacs.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 0132846995bd
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ;; 2 ;;
3 ;; File: dired-xemacs.el 3 ;; File: dired-xemacs.el
4 ;; Dired Version: $Revision: 1.3 $ 4 ;; Dired Version: #Revision: 7.9 $
5 ;; RCS: 5 ;; RCS:
6 ;; Description: dired functions for XEmacs 6 ;; Description: dired functions for XEmacs
7 ;; Author: Mike Sperber <sperber@informatik.uni-tuebingen.de> 7 ;; Author: Mike Sperber <sperber@informatik.uni-tuebingen.de>
8 ;; 8 ;;
9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
43 (defvar dired-re-raw-setgid 43 (defvar dired-re-raw-setgid
44 (concat "^" dired-re-inode-size 44 (concat "^" dired-re-inode-size
45 "-[-r][-w][-x][-r][-w][sS][-r][-w][xst]") 45 "-[-r][-w][-x][-r][-w][sS][-r][-w][xst]")
46 "setgid plain file (even if not executable)") 46 "setgid plain file (even if not executable)")
47 47
48 (defvar dired-re-pre-permissions "^.? ?[0-9 ]*[-d]" 48 (defvar dired-re-pre-permissions "^[^-d]? ?[0-9 ]*[-d]"
49 "Regexp matching the preamble to file permissions part of a dired line. 49 "Regexp matching the preamble to file permissions part of a dired line.
50 This shouldn't match socket or symbolic link lines (which aren't editable).") 50 This shouldn't match socket or symbolic link lines (which aren't editable).")
51 51
52 (defvar dired-re-permissions "[-r][-w][-Ssx][-r][-w][-Ssx][-r][-w][-xst]" 52 (defvar dired-re-permissions "[-r][-w][-Ssx][-r][-w][-Ssx][-r][-w][-xstT]"
53 "Regexp matching the file permissions part of a dired line.") 53 "Regexp matching the file permissions part of a dired line.")
54 54
55 ;;; Setup 55 ;;; Setup
56 56
57 (setq dired-modeline-tracking-cmds '(mouse-track)) 57 (setq dired-modeline-tracking-cmds '(mouse-track))
688 688
689 (defun dired-setup-chmod-keymaps () 689 (defun dired-setup-chmod-keymaps ()
690 (setq 690 (setq
691 dired-u-r-keymap (dired-setup-chmod-keymap ?u ?r '(?r)) 691 dired-u-r-keymap (dired-setup-chmod-keymap ?u ?r '(?r))
692 dired-u-w-keymap (dired-setup-chmod-keymap ?u ?w '(?w)) 692 dired-u-w-keymap (dired-setup-chmod-keymap ?u ?w '(?w))
693 dired-u-x-keymap (dired-setup-chmod-keymap ?u ?x '(?x ?s ?S) '(?x)) 693 dired-u-x-keymap (dired-setup-chmod-keymap ?u ?x '(?x ?s) '(?x))
694 dired-g-r-keymap (dired-setup-chmod-keymap ?g ?r '(?r)) 694 dired-g-r-keymap (dired-setup-chmod-keymap ?g ?r '(?r))
695 dired-g-w-keymap (dired-setup-chmod-keymap ?g ?w '(?w)) 695 dired-g-w-keymap (dired-setup-chmod-keymap ?g ?w '(?w))
696 dired-g-x-keymap (dired-setup-chmod-keymap ?g ?x '(?x ?s ?S) '(?x)) 696 dired-g-x-keymap (dired-setup-chmod-keymap ?g ?x '(?x ?s) '(?x))
697 dired-o-r-keymap (dired-setup-chmod-keymap ?o ?r '(?r)) 697 dired-o-r-keymap (dired-setup-chmod-keymap ?o ?r '(?r))
698 dired-o-w-keymap (dired-setup-chmod-keymap ?o ?w '(?w)) 698 dired-o-w-keymap (dired-setup-chmod-keymap ?o ?w '(?w))
699 dired-o-x-keymap (dired-setup-chmod-keymap ?o ?x '(?x ?s ?t) '(?x)))) 699 dired-o-x-keymap (dired-setup-chmod-keymap ?o ?x '(?x ?s ?t) '(?x))))
700 700
701 (defun dired-make-permissions-interactive (beg) 701 (defun dired-make-permissions-interactive (beg)