mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

* frame.el (new-frame): Doc fix.

Browse Source 
Use the term `scroll bar', instead of `scrollbar'.
	* term/x-win.el, frame.el, mouse.el: Terminology changed.
	* scrollbar.el: Renamed to scroll-bar.el.
This commit is contained in:
Jim Blandy 1993-03-02 07:25:44 +00:00
parent 4969329862
commit 0ca90494a9
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/frame.el
View File

@ -254,7 +254,7 @@ of the following forms:
be given.
\(minibuffer . t) - the frame should have a minibuffer
\(minibuffer . none) - the frame should have no minibuffer
\(minibuffer . nil) - the frame should have no minibuffer
\(minibuffer . only) - the frame should contain only a minibuffer
\(minibuffer . WINDOW) - the frame should use WINDOW as its minibuffer window.
@ -390,21 +390,21 @@ With arg, turn auto-lower mode on if and only if arg is positive."
(list (cons 'auto-lower (> arg 0)))))
(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."
"Toggle whether or not the selected frame has vertical scroll bars.
With arg, turn vertical scroll bars on if and only if arg is positive."
(interactive "P")
(if (null arg)
(setq arg
(if (cdr (assq 'vertical-scrollbars
(if (cdr (assq 'vertical-scroll-bars
(frame-parameters (selected-frame))))
-1 1)))
(modify-frame-parameters (selected-frame)
(list (cons 'vertical-scrollbars (> arg 0)))))
(list (cons 'vertical-scroll-bars (> arg 0)))))
(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."
"Toggle whether or not the selected frame has horizontal scroll bars.
With arg, turn horizontal scroll bars on if and only if arg is positive.
Horizontal scroll bars aren't implemented yet."
(interactive "P")
(error "Horizontal scroll bars aren't implemented yet"))