diff options
| author | Jim Blandy | 1993-03-02 07:25:44 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-03-02 07:25:44 +0000 |
| commit | 0ca90494a9251f0e225acd757d84dc5ce1d30b97 (patch) | |
| tree | 49194b01871cc00de37c26ccb5cf5b0e4be09a72 | |
| parent | 4969329862d4c89997a8c9b326660fa7d0a607b9 (diff) | |
| download | emacs-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.el | 16 |
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. |
| 394 | With arg, turn vertical scrollbars on if and only if arg is positive." | 394 | With 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. |
| 406 | With arg, turn horizontal scrollbars on if and only if arg is positive. | 406 | With arg, turn horizontal scroll bars on if and only if arg is positive. |
| 407 | Horizontal scrollbars aren't implemented yet." | 407 | Horizontal 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 | ||