Mercurial > emacs
comparison lisp/dired.el @ 2584:55e18ce6e98a
Changed fsets to defaliases.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Mon, 26 Apr 1993 04:19:48 +0000 |
| parents | de8b66eb78cf |
| children | 29fe3ea604a2 |
comparison
equal
deleted
inserted
replaced
| 2583:308da27928f2 | 2584:55e18ce6e98a |
|---|---|
| 624 | 624 |
| 625 (defvar dired-mode-map nil "Local keymap for dired-mode buffers.") | 625 (defvar dired-mode-map nil "Local keymap for dired-mode buffers.") |
| 626 (if dired-mode-map | 626 (if dired-mode-map |
| 627 nil | 627 nil |
| 628 ;; Force `f' rather than `e' in the mode doc: | 628 ;; Force `f' rather than `e' in the mode doc: |
| 629 (fset 'dired-advertised-find-file 'dired-find-file) | 629 (defalias 'dired-advertised-find-file 'dired-find-file) |
| 630 ;; This looks ugly when substitute-command-keys uses C-d instead d: | 630 ;; This looks ugly when substitute-command-keys uses C-d instead d: |
| 631 ;; (define-key dired-mode-map "\C-d" 'dired-flag-file-deletion) | 631 ;; (define-key dired-mode-map "\C-d" 'dired-flag-file-deletion) |
| 632 | 632 |
| 633 (setq dired-mode-map (make-keymap)) | 633 (setq dired-mode-map (make-keymap)) |
| 634 (suppress-keymap dired-mode-map) | 634 (suppress-keymap dired-mode-map) |
| 665 (define-key dired-mode-map "\M-\C-p" 'dired-prev-subdir) | 665 (define-key dired-mode-map "\M-\C-p" 'dired-prev-subdir) |
| 666 ;; move to marked files | 666 ;; move to marked files |
| 667 (define-key dired-mode-map "\M-{" 'dired-prev-marked-file) | 667 (define-key dired-mode-map "\M-{" 'dired-prev-marked-file) |
| 668 (define-key dired-mode-map "\M-}" 'dired-next-marked-file) | 668 (define-key dired-mode-map "\M-}" 'dired-next-marked-file) |
| 669 ;; Make all regexp commands share a `%' prefix: | 669 ;; Make all regexp commands share a `%' prefix: |
| 670 (fset 'dired-regexp-prefix (make-sparse-keymap)) | 670 (defalias 'dired-regexp-prefix (make-sparse-keymap)) |
| 671 (define-key dired-mode-map "%" 'dired-regexp-prefix) | 671 (define-key dired-mode-map "%" 'dired-regexp-prefix) |
| 672 (define-key dired-mode-map "%u" 'dired-upcase) | 672 (define-key dired-mode-map "%u" 'dired-upcase) |
| 673 (define-key dired-mode-map "%l" 'dired-downcase) | 673 (define-key dired-mode-map "%l" 'dired-downcase) |
| 674 (define-key dired-mode-map "%d" 'dired-flag-files-regexp) | 674 (define-key dired-mode-map "%d" 'dired-flag-files-regexp) |
| 675 (define-key dired-mode-map "%m" 'dired-mark-files-regexp) | 675 (define-key dired-mode-map "%m" 'dired-mark-files-regexp) |
| 1145 cur-dir)))) | 1145 cur-dir)))) |
| 1146 | 1146 |
| 1147 ;(defun dired-get-subdir-min (elt) | 1147 ;(defun dired-get-subdir-min (elt) |
| 1148 ; (cdr elt)) | 1148 ; (cdr elt)) |
| 1149 ;; can't use macro, must be redefinable for other alist format in dired-nstd. | 1149 ;; can't use macro, must be redefinable for other alist format in dired-nstd. |
| 1150 (fset 'dired-get-subdir-min 'cdr) | 1150 (defalias 'dired-get-subdir-min 'cdr) |
| 1151 | 1151 |
| 1152 (defun dired-get-subdir-max (elt) | 1152 (defun dired-get-subdir-max (elt) |
| 1153 (save-excursion | 1153 (save-excursion |
| 1154 (goto-char (dired-get-subdir-min elt)) | 1154 (goto-char (dired-get-subdir-min elt)) |
| 1155 (dired-subdir-max))) | 1155 (dired-subdir-max))) |