All fsets changed to defaliases.

3 files changed, 57 insertions, 57 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))
diff --git a/lisp/emacs-lisp/lselect.el b/lisp/emacs-lisp/lselect.el
index df2b8d65d86..98e726bb0fc 100644
--- a/lisp/emacs-lisp/lselect.el
+++ b/lisp/emacs-lisp/lselect.el
@@ -28,8 +28,8 @@
 ;;; all upper-case; this may seem tasteless, but it makes there be a 1:1
 ;;; correspondence between these symbols and X Atoms (which are upcased.)
 
-(fset 'x-get-cutbuffer 'x-get-cut-buffer)
-(fset 'x-store-cutbuffer 'x-set-cut-buffer)
+(defalias 'x-get-cutbuffer 'x-get-cut-buffer)
+(defalias 'x-store-cutbuffer 'x-set-cut-buffer)
 
 (or (find-face 'primary-selection)
     (make-face 'primary-selection))
diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 5ff77c5b01e..2138c13bf65 100644
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -37,7 +37,7 @@
 	  new)
       tree)))
 
-(fset 'current-time-seconds 'current-time)
+(defalias 'current-time-seconds 'current-time)
 
 (defun keymap-parent (keymap)
   (let ((tail (cdr keymap)))
@@ -119,58 +119,58 @@ bottom of the buffer stack."
    (if (<= arg 1) (other-buffer (current-buffer))
      (nth (1+ arg) (buffer-list)))))
 
-(fset 'find-face 'internal-find-face)
-(fset 'get-face 'internal-get-face)
-(fset 'try-face-font 'internal-try-face-font)
+(defalias 'find-face 'internal-find-face)
+(defalias 'get-face 'internal-get-face)
+(defalias 'try-face-font 'internal-try-face-font)
 
 ;; Support the Lucid names with `screen' instead of `frame'.
 
-(fset 'current-screen-configuration 'current-frame-configuration)
-(fset 'delete-screen 'delete-frame)
-(fset 'find-file-new-screen 'find-file-other-frame)
-(fset 'find-file-read-only-new-screen 'find-file-read-only-other-frame)
-(fset 'find-tag-new-screen 'find-tag-other-frame)
-;;(fset 'focus-screen 'focus-frame)
-(fset 'iconify-screen 'iconify-frame)
-(fset 'mail-new-screen 'mail-other-frame)
-(fset 'make-screen-invisible 'make-frame-invisible)
-(fset 'make-screen-visible 'make-frame-visible)
-;; (fset 'minibuffer-screen-list 'minibuffer-frame-list)
-(fset 'modify-screen-parameters 'modify-frame-parameters)
-(fset 'next-screen 'next-frame)
-;; (fset 'next-multiscreen-window 'next-multiframe-window)
-;; (fset 'previous-multiscreen-window 'previous-multiframe-window)
-;; (fset 'redirect-screen-focus 'redirect-frame-focus)
-(fset 'redraw-screen 'redraw-frame)
-;; (fset 'screen-char-height 'frame-char-height)
-;; (fset 'screen-char-width 'frame-char-width)
-;; (fset 'screen-configuration-to-register 'frame-configuration-to-register)
-;; (fset 'screen-focus 'frame-focus)
-(fset 'screen-height 'frame-height)
-(fset 'screen-list 'frame-list)
-;; (fset 'screen-live-p 'frame-live-p)
-(fset 'screen-parameters 'frame-parameters)
-(fset 'screen-pixel-height 'frame-pixel-height)
-(fset 'screen-pixel-width 'frame-pixel-width)
-(fset 'screen-root-window 'frame-root-window)
-(fset 'screen-selected-window 'frame-selected-window)
-(fset 'lower-screen 'lower-frame)
-(fset 'raise-screen 'raise-frame)
-(fset 'screen-visible-p 'frame-visible-p)
-(fset 'screen-width 'frame-width)
-(fset 'screenp 'framep)
-(fset 'select-screen 'select-frame)
-(fset 'selected-screen 'selected-frame)
-;; (fset 'set-screen-configuration 'set-frame-configuration)
-;; (fset 'set-screen-height 'set-frame-height)
-(fset 'set-screen-position 'set-frame-position)
-(fset 'set-screen-size 'set-frame-size)
-ll (fset 'set-screen-width 'set-frame-width)
-(fset 'switch-to-buffer-new-screen 'switch-to-buffer-other-frame)
-;; (fset 'unfocus-screen 'unfocus-frame)
-(fset 'visible-screen-list 'visible-frame-list)
-(fset 'window-screen 'window-frame)
-(fset 'x-create-screen 'x-create-frame)
-(fset 'x-new-screen 'new-frame)
+(defalias 'current-screen-configuration 'current-frame-configuration)
+(defalias 'delete-screen 'delete-frame)
+(defalias 'find-file-new-screen 'find-file-other-frame)
+(defalias 'find-file-read-only-new-screen 'find-file-read-only-other-frame)
+(defalias 'find-tag-new-screen 'find-tag-other-frame)
+;;(defalias 'focus-screen 'focus-frame)
+(defalias 'iconify-screen 'iconify-frame)
+(defalias 'mail-new-screen 'mail-other-frame)
+(defalias 'make-screen-invisible 'make-frame-invisible)
+(defalias 'make-screen-visible 'make-frame-visible)
+;; (defalias 'minibuffer-screen-list 'minibuffer-frame-list)
+(defalias 'modify-screen-parameters 'modify-frame-parameters)
+(defalias 'next-screen 'next-frame)
+;; (defalias 'next-multiscreen-window 'next-multiframe-window)
+;; (defalias 'previous-multiscreen-window 'previous-multiframe-window)
+;; (defalias 'redirect-screen-focus 'redirect-frame-focus)
+(defalias 'redraw-screen 'redraw-frame)
+;; (defalias 'screen-char-height 'frame-char-height)
+;; (defalias 'screen-char-width 'frame-char-width)
+;; (defalias 'screen-configuration-to-register 'frame-configuration-to-register)
+;; (defalias 'screen-focus 'frame-focus)
+(defalias 'screen-height 'frame-height)
+(defalias 'screen-list 'frame-list)
+;; (defalias 'screen-live-p 'frame-live-p)
+(defalias 'screen-parameters 'frame-parameters)
+(defalias 'screen-pixel-height 'frame-pixel-height)
+(defalias 'screen-pixel-width 'frame-pixel-width)
+(defalias 'screen-root-window 'frame-root-window)
+(defalias 'screen-selected-window 'frame-selected-window)
+(defalias 'lower-screen 'lower-frame)
+(defalias 'raise-screen 'raise-frame)
+(defalias 'screen-visible-p 'frame-visible-p)
+(defalias 'screen-width 'frame-width)
+(defalias 'screenp 'framep)
+(defalias 'select-screen 'select-frame)
+(defalias 'selected-screen 'selected-frame)
+;; (defalias 'set-screen-configuration 'set-frame-configuration)
+;; (defalias 'set-screen-height 'set-frame-height)
+(defalias 'set-screen-position 'set-frame-position)
+(defalias 'set-screen-size 'set-frame-size)
+ll (defalias 'set-screen-width 'set-frame-width)
+(defalias 'switch-to-buffer-new-screen 'switch-to-buffer-other-frame)
+;; (defalias 'unfocus-screen 'unfocus-frame)
+(defalias 'visible-screen-list 'visible-frame-list)
+(defalias 'window-screen 'window-frame)
+(defalias 'x-create-screen 'x-create-frame)
+(defalias 'x-new-screen 'new-frame)
 
 ;;; end of lucid.el