Mercurial > emacs
changeset 1881:436edc3e74f6
(frame-initialize): Fix error syntax.
(toggle-horizontal-scroll-bar): Likewise.
(toggle-horizontal-scroll-bar): Renamed from set-horizontal-bar
(toggle-vertical-scroll-bar): Likewise.
(toggle-auto-lower, toggle-auto-raise): Likewise.
(set-foreground-color, set-background-color):
Renamed from set-frame-{fore,back}ground.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 16 Feb 1993 06:36:30 +0000 |
| parents | 36ec0bfbb2c2 |
| children | 83fc53d66a31 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Tue Feb 16 00:23:06 1993 +0000 +++ b/lisp/frame.el Tue Feb 16 06:36:30 1993 +0000 @@ -103,7 +103,7 @@ (function (lambda (parameters) (error - "Can't create multiple frames without a window system.")))))) + "Can't create multiple frames without a window system")))))) ;;; startup.el calls this function after loading the user's init ;;; file. Now default-frame-alist and initial-frame-alist contain @@ -335,14 +335,14 @@ (modify-frame-parameters (selected-frame) (list (cons 'font font-name)))) -(defun set-frame-background (color-name) +(defun set-background-color (color-name) "Set the background color of the selected frame to COLOR. When called interactively, prompt for the name of the color to use." (interactive "sColor: ") (modify-frame-parameters (selected-frame) (list (cons 'background-color color-name)))) -(defun set-frame-foreground (color-name) +(defun set-foreground-color (color-name) "Set the foreground color of the selected frame to COLOR. When called interactively, prompt for the name of the color to use." (interactive "sColor: ") @@ -363,7 +363,7 @@ (modify-frame-parameters (selected-frame) (list (cons 'mouse-color color-name)))) -(defun set-auto-raise (arg) +(defun toggle-auto-raise (arg) "Toggle whether or not the selected frame should auto-raise. With arg, turn auto-raise mode on if and only if arg is positive." (interactive "P") @@ -374,7 +374,7 @@ (modify-frame-parameters (selected-frame) (list (cons 'auto-raise (> arg 0))))) -(defun set-auto-lower (arg) +(defun toggle-auto-lower (arg) "Toggle whether or not the selected frame should auto-lower. With arg, turn auto-lower mode on if and only if arg is positive." (interactive "P") @@ -385,7 +385,7 @@ (modify-frame-parameters (selected-frame) (list (cons 'auto-lower (> arg 0))))) -(defun set-vertical-bar (arg) +(defun toggle-vertical-scroll-bar (arg) "Toggle whether or not the selected frame has vertical scrollbars. With arg, turn vertical scrollbars on if and only if arg is positive." (interactive "P") @@ -397,12 +397,12 @@ (modify-frame-parameters (selected-frame) (list (cons 'vertical-scrollbars (> arg 0))))) -(defun set-horizontal-bar (arg) +(defun toggle-horizontal-scroll-bar (arg) "Toggle whether or not the selected frame has horizontal scrollbars. With arg, turn horizontal scrollbars on if and only if arg is positive. Horizontal scrollbars aren't implemented yet." (interactive "P") - (error "Horizontal scrollbars aren't implemented yet.")) + (error "Horizontal scroll bars aren't implemented yet")) ;;;; Aliases for backward compatibility with Emacs 18.