Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
2570:a880046a1a67 | 2571:b65cf676a09b |
---|---|
235 (select-window (previous-window (selected-window) | 235 (select-window (previous-window (selected-window) |
236 (> (minibuffer-depth) 0) | 236 (> (minibuffer-depth) 0) |
237 t))) | 237 t))) |
238 | 238 |
239 ;; Alias, kept temporarily. | 239 ;; Alias, kept temporarily. |
240 (fset 'new-frame 'make-frame) | 240 (defalias 'new-frame 'make-frame) |
241 (defun make-frame (&optional parameters) | 241 (defun make-frame (&optional parameters) |
242 "Create a new frame, displaying the current buffer. | 242 "Create a new frame, displaying the current buffer. |
243 | 243 |
244 Optional argument PARAMETERS is an alist of parameters for the new | 244 Optional argument PARAMETERS is an alist of parameters for the new |
245 frame. Specifically, PARAMETERS is a list of pairs, each having one | 245 frame. Specifically, PARAMETERS is a list of pairs, each having one |
424 (interactive "P") | 424 (interactive "P") |
425 (error "Horizontal scroll bars aren't implemented yet")) | 425 (error "Horizontal scroll bars aren't implemented yet")) |
426 | 426 |
427 | 427 |
428 ;;;; Aliases for backward compatibility with Emacs 18. | 428 ;;;; Aliases for backward compatibility with Emacs 18. |
429 (fset 'screen-height 'frame-height) | 429 (defalias 'screen-height 'frame-height) |
430 (fset 'screen-width 'frame-width) | 430 (defalias 'screen-width 'frame-width) |
431 | 431 |
432 (defun set-screen-width (cols &optional pretend) | 432 (defun set-screen-width (cols &optional pretend) |
433 "Obsolete function to change the size of the screen to COLS columns.\n\ | 433 "Obsolete function to change the size of the screen to COLS columns.\n\ |
434 Optional second arg non-nil means that redisplay should use COLS columns\n\ | 434 Optional second arg non-nil means that redisplay should use COLS columns\n\ |
435 but that the idea of the actual width of the frame should not be changed.\n\ | 435 but that the idea of the actual width of the frame should not be changed.\n\ |
452 | 452 |
453 | 453 |
454 ;;;; Key bindings | 454 ;;;; Key bindings |
455 (defvar ctl-x-5-map (make-sparse-keymap) | 455 (defvar ctl-x-5-map (make-sparse-keymap) |
456 "Keymap for frame commands.") | 456 "Keymap for frame commands.") |
457 (fset 'ctl-x-5-prefix ctl-x-5-map) | 457 (defalias 'ctl-x-5-prefix ctl-x-5-map) |
458 (define-key ctl-x-map "5" 'ctl-x-5-prefix) | 458 (define-key ctl-x-map "5" 'ctl-x-5-prefix) |
459 | 459 |
460 (define-key ctl-x-5-map "2" 'new-frame) | 460 (define-key ctl-x-5-map "2" 'new-frame) |
461 (define-key ctl-x-5-map "0" 'delete-frame) | 461 (define-key ctl-x-5-map "0" 'delete-frame) |
462 | 462 |