Mercurial > emacs
changeset 18481:c41c3f9ff745
(scroll-bar-side): Variable deleted.
(toggle-scroll-bar, toggle-horizontal-scroll-bar):
Moved to scroll-bar.el.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 28 Jun 1997 00:45:31 +0000 |
| parents | f0c705a82dca |
| children | 9c5e6b1dafc5 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 0 insertions(+), 28 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Sat Jun 28 00:44:52 1997 +0000 +++ b/lisp/frame.el Sat Jun 28 00:45:31 1997 +0000 @@ -678,34 +678,6 @@ -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)