Mercurial > emacs
changeset 2584:55e18ce6e98a
Changed fsets to defaliases.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Mon, 26 Apr 1993 04:19:48 +0000 |
| parents | 308da27928f2 |
| children | d22e01f5ab0c |
| files | lisp/dired.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Sun Apr 25 22:26:51 1993 +0000 +++ b/lisp/dired.el Mon Apr 26 04:19:48 1993 +0000 @@ -626,7 +626,7 @@ (if dired-mode-map nil ;; Force `f' rather than `e' in the mode doc: - (fset 'dired-advertised-find-file 'dired-find-file) + (defalias 'dired-advertised-find-file 'dired-find-file) ;; This looks ugly when substitute-command-keys uses C-d instead d: ;; (define-key dired-mode-map "\C-d" 'dired-flag-file-deletion) @@ -667,7 +667,7 @@ (define-key dired-mode-map "\M-{" 'dired-prev-marked-file) (define-key dired-mode-map "\M-}" 'dired-next-marked-file) ;; Make all regexp commands share a `%' prefix: - (fset 'dired-regexp-prefix (make-sparse-keymap)) + (defalias 'dired-regexp-prefix (make-sparse-keymap)) (define-key dired-mode-map "%" 'dired-regexp-prefix) (define-key dired-mode-map "%u" 'dired-upcase) (define-key dired-mode-map "%l" 'dired-downcase) @@ -1147,7 +1147,7 @@ ;(defun dired-get-subdir-min (elt) ; (cdr elt)) ;; can't use macro, must be redefinable for other alist format in dired-nstd. -(fset 'dired-get-subdir-min 'cdr) +(defalias 'dired-get-subdir-min 'cdr) (defun dired-get-subdir-max (elt) (save-excursion