Mercurial > emacs
comparison lisp/frame.el @ 8072:48c81a052cea
(auto-lower-mode, auto-raise-mode): Doc fixes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 28 Jun 1994 05:15:44 +0000 |
| parents | 1c5fd2cdfb36 |
| children | aa25c6ea397d |
comparison
equal
deleted
inserted
replaced
| 8071:184f2c23ff45 | 8072:48c81a052cea |
|---|---|
| 549 (modify-frame-parameters (selected-frame) | 549 (modify-frame-parameters (selected-frame) |
| 550 (list (cons 'border-color color-name)))) | 550 (list (cons 'border-color color-name)))) |
| 551 | 551 |
| 552 (defun auto-raise-mode (arg) | 552 (defun auto-raise-mode (arg) |
| 553 "Toggle whether or not the selected frame should auto-raise. | 553 "Toggle whether or not the selected frame should auto-raise. |
| 554 With arg, turn auto-raise mode on if and only if arg is positive." | 554 With arg, turn auto-raise mode on if and only if arg is positive. |
| 555 Note that this controls Emacs's own auto-raise feature. | |
| 556 Some window managers allow you to enable auto-raise for certain windows. | |
| 557 You can use that for Emacs windows if you wish, but if you do, | |
| 558 that is beyond the control of Emacs and this command has no effect on it." | |
| 555 (interactive "P") | 559 (interactive "P") |
| 556 (if (null arg) | 560 (if (null arg) |
| 557 (setq arg | 561 (setq arg |
| 558 (if (cdr (assq 'auto-raise (frame-parameters (selected-frame)))) | 562 (if (cdr (assq 'auto-raise (frame-parameters (selected-frame)))) |
| 559 -1 1))) | 563 -1 1))) |
| 560 (modify-frame-parameters (selected-frame) | 564 (modify-frame-parameters (selected-frame) |
| 561 (list (cons 'auto-raise (> arg 0))))) | 565 (list (cons 'auto-raise (> arg 0))))) |
| 562 | 566 |
| 563 (defun auto-lower-mode (arg) | 567 (defun auto-lower-mode (arg) |
| 564 "Toggle whether or not the selected frame should auto-lower. | 568 "Toggle whether or not the selected frame should auto-lower. |
| 565 With arg, turn auto-lower mode on if and only if arg is positive." | 569 With arg, turn auto-lower mode on if and only if arg is positive. |
| 570 Note that this controls Emacs's own auto-lower feature. | |
| 571 Some window managers allow you to enable auto-lower for certain windows. | |
| 572 You can use that for Emacs windows if you wish, but if you do, | |
| 573 that is beyond the control of Emacs and this command has no effect on it." | |
| 566 (interactive "P") | 574 (interactive "P") |
| 567 (if (null arg) | 575 (if (null arg) |
| 568 (setq arg | 576 (setq arg |
| 569 (if (cdr (assq 'auto-lower (frame-parameters (selected-frame)))) | 577 (if (cdr (assq 'auto-lower (frame-parameters (selected-frame)))) |
| 570 -1 1))) | 578 -1 1))) |