diff options
| author | Dan Nicolaescu | 2007-10-13 17:57:47 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2007-10-13 17:57:47 +0000 |
| commit | de30d842fcc95576648fe2b9ee7480e77f3737a5 (patch) | |
| tree | 9651a33a23500bf2932578ff33d51750ce510346 | |
| parent | 2b444e1f3080999e1acc9c362aa0a4cd54335767 (diff) | |
| download | emacs-de30d842fcc95576648fe2b9ee7480e77f3737a5.tar.gz emacs-de30d842fcc95576648fe2b9ee7480e77f3737a5.zip | |
Do not use a single clause cond.
| -rw-r--r-- | lisp/frame.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 95cddb5112e..30573db9e66 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -821,9 +821,9 @@ the user during startup." | |||
| 821 | (raise-frame frame) | 821 | (raise-frame frame) |
| 822 | ;; Ensure, if possible, that frame gets input focus. | 822 | ;; Ensure, if possible, that frame gets input focus. |
| 823 | (when (memq (window-system frame) '(x mac w32)) | 823 | (when (memq (window-system frame) '(x mac w32)) |
| 824 | (x-focus-frame frame)) | 824 | (x-focus-frame frame)) |
| 825 | (cond (focus-follows-mouse | 825 | (when focus-follows-mouse |
| 826 | (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) | 826 | (set-mouse-position (selected-frame) (1- (frame-width)) 0))) |
| 827 | 827 | ||
| 828 | (defun other-frame (arg) | 828 | (defun other-frame (arg) |
| 829 | "Select the ARGth different visible frame on current display, and raise it. | 829 | "Select the ARGth different visible frame on current display, and raise it. |