aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1993-03-02 07:25:44 +0000
committerJim Blandy1993-03-02 07:25:44 +0000
commit0ca90494a9251f0e225acd757d84dc5ce1d30b97 (patch)
tree49194b01871cc00de37c26ccb5cf5b0e4be09a72
parent4969329862d4c89997a8c9b326660fa7d0a607b9 (diff)
downloademacs-0ca90494a9251f0e225acd757d84dc5ce1d30b97.tar.gz
emacs-0ca90494a9251f0e225acd757d84dc5ce1d30b97.zip
* frame.el (new-frame): Doc fix.
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.
-rw-r--r--lisp/frame.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index 498d1a2f1c0..b4a403fb550 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -254,7 +254,7 @@ of the following forms:
254 be given. 254 be given.
255 255
256\(minibuffer . t) - the frame should have a minibuffer 256\(minibuffer . t) - the frame should have a minibuffer
257\(minibuffer . none) - the frame should have no minibuffer 257\(minibuffer . nil) - the frame should have no minibuffer
258\(minibuffer . only) - the frame should contain only a minibuffer 258\(minibuffer . only) - the frame should contain only a minibuffer
259\(minibuffer . WINDOW) - the frame should use WINDOW as its minibuffer window. 259\(minibuffer . WINDOW) - the frame should use WINDOW as its minibuffer window.
260 260
@@ -390,21 +390,21 @@ With arg, turn auto-lower mode on if and only if arg is positive."
390 (list (cons 'auto-lower (> arg 0))))) 390 (list (cons 'auto-lower (> arg 0)))))
391 391
392(defun toggle-vertical-scroll-bar (arg) 392(defun toggle-vertical-scroll-bar (arg)
393 "Toggle whether or not the selected frame has vertical scrollbars. 393 "Toggle whether or not the selected frame has vertical scroll bars.
394With arg, turn vertical scrollbars on if and only if arg is positive." 394With arg, turn vertical scroll bars on if and only if arg is positive."
395 (interactive "P") 395 (interactive "P")
396 (if (null arg) 396 (if (null arg)
397 (setq arg 397 (setq arg
398 (if (cdr (assq 'vertical-scrollbars 398 (if (cdr (assq 'vertical-scroll-bars
399 (frame-parameters (selected-frame)))) 399 (frame-parameters (selected-frame))))
400 -1 1))) 400 -1 1)))
401 (modify-frame-parameters (selected-frame) 401 (modify-frame-parameters (selected-frame)
402 (list (cons 'vertical-scrollbars (> arg 0))))) 402 (list (cons 'vertical-scroll-bars (> arg 0)))))
403 403
404(defun toggle-horizontal-scroll-bar (arg) 404(defun toggle-horizontal-scroll-bar (arg)
405 "Toggle whether or not the selected frame has horizontal scrollbars. 405 "Toggle whether or not the selected frame has horizontal scroll bars.
406With arg, turn horizontal scrollbars on if and only if arg is positive. 406With arg, turn horizontal scroll bars on if and only if arg is positive.
407Horizontal scrollbars aren't implemented yet." 407Horizontal scroll bars aren't implemented yet."
408 (interactive "P") 408 (interactive "P")
409 (error "Horizontal scroll bars aren't implemented yet")) 409 (error "Horizontal scroll bars aren't implemented yet"))
410 410