diff lisp/emacs-lisp/cust-print.el @ 2571:b65cf676a09b

All fsets changed to defaliases.

--- a/lisp/emacs-lisp/cust-print.el	Fri Apr 23 06:50:51 1993 +0000
+++ b/lisp/emacs-lisp/cust-print.el	Fri Apr 23 06:51:44 1993 +0000
@@ -167,7 +167,7 @@
 ;; Saving and restoring internal printing routines.
 
 (defun cust-print-set-function-cell (symbol-pair)
-  (fset (car symbol-pair) 
+  (defalias (car symbol-pair) 
 	(symbol-function (car (cdr symbol-pair)))))
 
 
@@ -300,8 +300,8 @@
 	(circle-level (or print-level -1))
 	)
 
-    (fset 'cust-print-internal-printer internal-printer)
-    (fset 'cust-print-low-level-prin 
+    (defalias 'cust-print-internal-printer internal-printer)
+    (defalias 'cust-print-low-level-prin 
 	  (cond
 	   ((or custom-print-list
 		custom-print-vector
@@ -311,7 +311,7 @@
 	   (circle-table
 	    'cust-print-object)
 	   (t 'cust-print-internal-printer)))
-    (fset 'cust-print-prin (if circle-table 'cust-print-circular 'cust-print-low-level-prin))
+    (defalias 'cust-print-prin (if circle-table 'cust-print-circular 'cust-print-low-level-prin))
 
     (cust-print-prin object)
     object))