Mercurial > emacs

comparison lisp/frame.el @ 2846:c36e7ad524d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(toggle-scroll-bar): Renamed from toggle-vertical-scroll...
author Richard M. Stallman <rms@gnu.org>
date Mon, 17 May 1993 04:37:22 +0000
parents a93e407bf41c
children cd270fa53052
comparison
equal deleted inserted replaced
2845:7a48e4a67e8c 2846:c36e7ad524d3
406 (if (cdr (assq 'auto-lower (frame-parameters (selected-frame)))) 406 (if (cdr (assq 'auto-lower (frame-parameters (selected-frame))))
407 -1 1))) 407 -1 1)))
408 (modify-frame-parameters (selected-frame) 408 (modify-frame-parameters (selected-frame)
409 (list (cons 'auto-lower (> arg 0))))) 409 (list (cons 'auto-lower (> arg 0)))))
410 410
411 (defun toggle-vertical-scroll-bar (arg) 411 (defun toggle-scroll-bar (arg)
412 "Toggle whether or not the selected frame has vertical scroll bars. 412 "Toggle whether or not the selected frame has vertical scroll bars.
413 With arg, turn vertical scroll bars on if and only if arg is positive." 413 With arg, turn vertical scroll bars on if and only if arg is positive."
414 (interactive "P") 414 (interactive "P")
415 (if (null arg) 415 (if (null arg)
416 (setq arg 416 (setq arg