Mercurial > hg > xemacs-beta

comparison lisp/efs/dired.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children 7e54bd776075
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
3 ;; Copyright (C) 1985, 1986, 1991 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1991 Free Software Foundation, Inc.
4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5 ;; 5 ;;
6 ;; File: dired.el 6 ;; File: dired.el
7 ;; RCS: 7 ;; RCS:
8 ;; Dired Version: $Revision: 1.1 $ 8 ;; Dired Version: $Revision: 7.9 $
9 ;; Description: The DIRectory EDitor is for manipulating, and running 9 ;; Description: The DIRectory EDitor is for manipulating, and running
10 ;; commands on files in a directory. 10 ;; commands on files in a directory.
11 ;; Authors: FSF, 11 ;; Authors: FSF,
12 ;; Sebastian Kremer <sk@thp.uni-koeln.de>, 12 ;; Sebastian Kremer <sk@thp.uni-koeln.de>,
13 ;; Sandy Rutherford <sandy@ibm550.sissa.it> 13 ;; Sandy Rutherford <sandy@ibm550.sissa.it>
34 ;; 7-1993: Added special features for efs interaction and upgraded to Emacs 19. 34 ;; 7-1993: Added special features for efs interaction and upgraded to Emacs 19.
35 ;; Sandy Rutherford <sandy@ibm550.sissa.it> 35 ;; Sandy Rutherford <sandy@ibm550.sissa.it>
36 36
37 ;;; Dired Version 37 ;;; Dired Version
38 38
39 (defconst dired-version (substring "$Revision: 1.1 $" 11 -2) 39 (defconst dired-version (substring "$Revision: 7.9 $" 11 -2)
40 "The revision number of Tree Dired (as a string). 40 "The revision number of Tree Dired (as a string).
41 41
42 Don't forget to mention this when reporting bugs to: 42 Don't forget to mention this when reporting bugs to:
43 43
44 efs-bugs@cuckoo.hpl.hp.com") 44 efs-bugs@cuckoo.hpl.hp.com")
1252 (define-key dired-mode-map "\C-p" 'dired-previous-line) 1252 (define-key dired-mode-map "\C-p" 'dired-previous-line)
1253 (define-key dired-mode-map "\C-v" 'dired-scroll-up) 1253 (define-key dired-mode-map "\C-v" 'dired-scroll-up)
1254 (define-key dired-mode-map "\M-v" 'dired-scroll-down) 1254 (define-key dired-mode-map "\M-v" 'dired-scroll-down)
1255 (define-key dired-mode-map "\M-<" 'dired-beginning-of-buffer) 1255 (define-key dired-mode-map "\M-<" 'dired-beginning-of-buffer)
1256 (define-key dired-mode-map "\M->" 'dired-end-of-buffer) 1256 (define-key dired-mode-map "\M->" 'dired-end-of-buffer)
1257 ;; This is silly, I'm changing it. -sb
1258 ;; (define-key dired-mode-map "\C-m" 'dired-goto-file)
1259 (define-key dired-mode-map "\C-m" 'dired-advertised-find-file) 1257 (define-key dired-mode-map "\C-m" 'dired-advertised-find-file)
1260 ;; motion by subdirectories 1258 ;; motion by subdirectories
1261 (define-key dired-mode-map "^" 'dired-up-directory) 1259 (define-key dired-mode-map "^" 'dired-up-directory)
1262 (define-key dired-mode-map "\M-\C-u" 'dired-up-directory) 1260 (define-key dired-mode-map "\M-\C-u" 'dired-up-directory)
1263 (define-key dired-mode-map "\M-\C-d" 'dired-down-directory) 1261 (define-key dired-mode-map "\M-\C-d" 'dired-down-directory)