[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/07/21 17:21:25

Index: gnus-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-util.el,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -b -r1.66 -r1.67
--- gnus-util.el        16 Jul 2008 02:26:07 -0000      1.66
+++ gnus-util.el        21 Jul 2008 17:21:24 -0000      1.67
@@ -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)))))