Mercurial > emacs
changeset 96867:fe4950880bae
(ns-focus-frame): Remove declaration.
(gnus-select-frame-set-input-focus): Undo previous change. Treat ns
like x.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 21 Jul 2008 17:21:24 +0000 |
| parents | bd00a0ec4b19 |
| children | 0b20e535e319 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-util.el |
| diffstat | 2 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Mon Jul 21 17:19:47 2008 +0000 +++ b/lisp/gnus/ChangeLog Mon Jul 21 17:21:24 2008 +0000 @@ -1,3 +1,9 @@ +2008-07-21 Dan Nicolaescu <dann@ics.uci.edu> + + * gnus-util.el (ns-focus-frame): Remove declaration. + (gnus-select-frame-set-input-focus): Undo previous change. Treat ns + like x. + 2008-07-21 Thien-Thi Nguyen <ttn@gnuvola.org> * rfc2104.el (rfc2104-zero): Delete defconst.
--- a/lisp/gnus/gnus-util.el Mon Jul 21 17:19:47 2008 +0000 +++ b/lisp/gnus/gnus-util.el Mon Jul 21 17:21:24 2008 +0000 @@ -1593,7 +1593,6 @@ (declare-function x-focus-frame "xfns.c" (frame)) (declare-function w32-focus-frame "../term/w32-win" (frame)) -(declare-function ns-focus-frame "nsfns.m" (frame)) (defun gnus-select-frame-set-input-focus (frame) "Select FRAME, raise it, and set input focus, if possible." @@ -1610,12 +1609,10 @@ (t (raise-frame frame) (select-frame frame) - (cond ((memq window-system '(x mac)) + (cond ((memq window-system '(x ns mac)) (x-focus-frame frame)) ((eq window-system 'w32) - (w32-focus-frame frame)) - ((eq window-system 'ns) - (ns-focus-frame frame))) + (w32-focus-frame frame))) (when focus-follows-mouse (set-mouse-position frame (1- (frame-width frame)) 0)))))