All fsets changed to defaliases.

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