diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-04-23 06:51:44 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-04-23 06:51:44 +0000 |
| commit | 31e1d9206b69676f624dd8ef2958afbbe6e32fd5 (patch) | |
| tree | 14eaeb57d9fd60dcdf1f1e247854a39689e35e31 /lisp/emacs-lisp/cust-print.el | |
| parent | f2a2c3d2e30b0b2acf404c80b53bb99c98920955 (diff) | |
| download | emacs-31e1d9206b69676f624dd8ef2958afbbe6e32fd5.tar.gz | |
All fsets changed to defaliases.
Diffstat (limited to 'lisp/emacs-lisp/cust-print.el')
| -rw-r--r-- | lisp/emacs-lisp/cust-print.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el index a4fe14d50e9..355b046b956 100644 --- a/lisp/emacs-lisp/cust-print.el +++ b/lisp/emacs-lisp/cust-print.el @@ -167,7 +167,7 @@ Any pair that has the same PREDICATE is first removed." ;; 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 @@ string argument will also work. The string is generated with (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 @@ string argument will also work. The string is generated with (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)) |