# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 735797988 0
# Node ID 55e18ce6e98a487468ece899c87d91c8d6d54b9a
# Parent  308da27928f28e3681745339d5b5ce35caa53fb7
Changed fsets to defaliases.

diff -r 308da27928f2 -r 55e18ce6e98a lisp/dired.el
--- 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