Mercurial > emacs
comparison lisp/window.el @ 91048:d38543a1c0f9
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 880-885)
- Remove RCS keywords from doc/misc/cc-mode.texi
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-264
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 13 Oct 2007 05:53:03 +0000 |
| parents | 14c4a6aac623 2accf461be62 |
| children | 53108e6cea98 |
comparison
equal
deleted
inserted
replaced
| 91047:1cf8ecbaa1dc | 91048:d38543a1c0f9 |
|---|---|
| 1017 (add-hook | 1017 (add-hook |
| 1018 'pre-command-hook 'mouse-autoselect-window-cancel)))) | 1018 'pre-command-hook 'mouse-autoselect-window-cancel)))) |
| 1019 (when mouse-autoselect-window | 1019 (when mouse-autoselect-window |
| 1020 ;; Reset state of delayed autoselection. | 1020 ;; Reset state of delayed autoselection. |
| 1021 (setq mouse-autoselect-window-state nil) | 1021 (setq mouse-autoselect-window-state nil) |
| 1022 ;; Set input focus to handle cross-frame movement. Bind | |
| 1023 ;; `focus-follows-mouse' to avoid moving the mouse cursor. | |
| 1024 (let (focus-follows-mouse) | |
| 1025 (select-frame-set-input-focus (window-frame window))) | |
| 1026 ;; Run `mouse-leave-buffer-hook' when autoselecting window. | 1022 ;; Run `mouse-leave-buffer-hook' when autoselecting window. |
| 1027 (run-hooks 'mouse-leave-buffer-hook)) | 1023 (run-hooks 'mouse-leave-buffer-hook)) |
| 1028 (select-window window)))) | 1024 (select-window window)))) |
| 1029 | 1025 |
| 1030 (define-key ctl-x-map "2" 'split-window-vertically) | 1026 (define-key ctl-x-map "2" 'split-window-vertically) |