procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(scroll-bar-side): Variable deleted.

Browse source 
(toggle-scroll-bar, toggle-horizontal-scroll-bar):
Moved to scroll-bar.el.
This commit is contained in:
Richard M. Stallman 1997-06-28 00:45:31 +00:00
parent 1064fe3876
commit 4fd2a3af4c
1 changed files with 0 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lisp/frame.el
View file

@ -678,34 +678,6 @@ that is beyond the control of Emacs and this command has no effect on it."
-1 1)))
(modify-frame-parameters (selected-frame)
(list (cons 'auto-lower (> arg 0)))))
(defcustom scroll-bar-side 'left
"*Specify which side scroll bars should be on. Value is `left' or `right'."
:type '(choice (const left)
(const right))
:group 'frames)
(defun toggle-scroll-bar (arg)
"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-scroll-bars
(frame-parameters (selected-frame))))
-1 1)))
(modify-frame-parameters (selected-frame)
(list (cons 'vertical-scroll-bars
(if (> arg 0)
scroll-bar-side)))))
(defun toggle-horizontal-scroll-bar (arg)
"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"))
;;;; Aliases for backward compatibility with Emacs 18.
(defalias 'screen-height 'frame-height)