Mercurial > emacs
diff lisp/frame.el @ 2571:b65cf676a09b
All fsets changed to defaliases.
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Fri, 23 Apr 1993 06:51:44 +0000 |
parents | 1f0d48f7e583 |
children | a93e407bf41c |
line wrap: on
line diff
--- a/lisp/frame.el Fri Apr 23 06:50:51 1993 +0000 +++ b/lisp/frame.el Fri Apr 23 06:51:44 1993 +0000 @@ -237,7 +237,7 @@ t))) ;; Alias, kept temporarily. -(fset 'new-frame 'make-frame) +(defalias 'new-frame 'make-frame) (defun make-frame (&optional parameters) "Create a new frame, displaying the current buffer. @@ -426,8 +426,8 @@ ;;;; Aliases for backward compatibility with Emacs 18. -(fset 'screen-height 'frame-height) -(fset 'screen-width 'frame-width) +(defalias 'screen-height 'frame-height) +(defalias 'screen-width 'frame-width) (defun set-screen-width (cols &optional pretend) "Obsolete function to change the size of the screen to COLS columns.\n\ @@ -454,7 +454,7 @@ ;;;; Key bindings (defvar ctl-x-5-map (make-sparse-keymap) "Keymap for frame commands.") -(fset 'ctl-x-5-prefix ctl-x-5-map) +(defalias 'ctl-x-5-prefix ctl-x-5-map) (define-key ctl-x-map "5" 'ctl-x-5-prefix) (define-key ctl-x-5-map "2" 'new-frame)