Mercurial > emacs
comparison lisp/frame.el @ 21215:2702850b72d6
(focus-follows-mouse): Make it defcustom.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 18 Mar 1998 20:03:48 +0000 |
parents | 7a873226ee07 |
children | 54c89f745c5d |
comparison
equal
deleted
inserted
replaced
21214:7a873226ee07 | 21215:2702850b72d6 |
---|---|
495 (setq frame-initial-geometry-arguments | 495 (setq frame-initial-geometry-arguments |
496 (nreverse frame-initial-geometry-arguments)) | 496 (nreverse frame-initial-geometry-arguments)) |
497 (cdr param-list)) | 497 (cdr param-list)) |
498 | 498 |
499 | 499 |
500 (defvar focus-follows-mouse t | 500 (defcustom focus-follows-mouse t |
501 "*Non-nil if window system changes focus when you move the mouse.") | 501 "*Non-nil if window system changes focus when you move the mouse." |
502 :type 'boolean | |
503 :group 'frames) | |
502 | 504 |
503 (defun other-frame (arg) | 505 (defun other-frame (arg) |
504 "Select the ARG'th different visible frame, and raise it. | 506 "Select the ARG'th different visible frame, and raise it. |
505 All frames are arranged in a cyclic order. | 507 All frames are arranged in a cyclic order. |
506 This command selects the frame ARG steps away in that order. | 508 This command selects the frame ARG steps away in that order. |