Mercurial > emacs
comparison lisp/frame.el @ 4911:bc4636cdaf01
(other-frame): Subtract 1 from hpos for new mouse position.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 03 Nov 1993 20:56:29 +0000 |
| parents | 78a52ca82a71 |
| children | 3963d8a9f342 |
comparison
equal
deleted
inserted
replaced
| 4910:435032be7b12 | 4911:bc4636cdaf01 |
|---|---|
| 374 (while (not (eq (frame-visible-p frame) t)) | 374 (while (not (eq (frame-visible-p frame) t)) |
| 375 (setq frame (previous-frame frame))) | 375 (setq frame (previous-frame frame))) |
| 376 (setq arg (1+ arg))) | 376 (setq arg (1+ arg))) |
| 377 (raise-frame frame) | 377 (raise-frame frame) |
| 378 (select-frame frame) | 378 (select-frame frame) |
| 379 (set-mouse-position (selected-frame) (frame-width) 0) | 379 (set-mouse-position (selected-frame) (1- (frame-width)) 0) |
| 380 (unfocus-frame))) | 380 (unfocus-frame))) |
| 381 | 381 |
| 382 ;;;; Frame configurations | 382 ;;;; Frame configurations |
| 383 | 383 |
| 384 (defun current-frame-configuration () | 384 (defun current-frame-configuration () |