Mercurial > emacs
comparison lisp/frame.el @ 4784:8878c40bc7bd
(other-frame): Warp the mouse so that the other
frame actually stays selected.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 24 Sep 1993 04:10:11 +0000 |
| parents | e39967101d8b |
| children | 78a52ca82a71 |
comparison
equal
deleted
inserted
replaced
| 4783:7c75802f5a8b | 4784:8878c40bc7bd |
|---|---|
| 369 (setq frame (previous-frame frame)) | 369 (setq frame (previous-frame frame)) |
| 370 (while (not (eq (frame-visible-p frame) t)) | 370 (while (not (eq (frame-visible-p frame) t)) |
| 371 (setq frame (previous-frame frame))) | 371 (setq frame (previous-frame frame))) |
| 372 (setq arg (1+ arg))) | 372 (setq arg (1+ arg))) |
| 373 (raise-frame frame) | 373 (raise-frame frame) |
| 374 (select-frame frame))) | 374 (select-frame frame) |
| 375 (set-mouse-position (selected-frame) (frame-width) 0) | |
| 376 (unfocus-frame))) | |
| 375 | 377 |
| 376 ;;;; Frame configurations | 378 ;;;; Frame configurations |
| 377 | 379 |
| 378 (defun current-frame-configuration () | 380 (defun current-frame-configuration () |
| 379 "Return a list describing the positions and states of all frames. | 381 "Return a list describing the positions and states of all frames. |