[Emacs-diffs] /srv/bzr/emacs/trunk r102179: Silence gnus-util.el compilation.

[Glenn Morris]

------------------------------------------------------------
revno: 102179
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-31 18:34:55 -0700
message:
  Silence gnus-util.el compilation.
  
  * lisp/gnu/gnus-util.el (iswitchb-read-buffer): Declare rather than autoload.
  (gnus-iswitchb-completing-read): Require iswitchb.
  (gnus-select-frame-set-input-focus): Silence compiler.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-util.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-31 22:49:28 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-01 01:34:55 +0000
@@ -1,3 +1,9 @@
+2010-11-01  Glenn Morris  <address@hidden>
+
+       * gnus-util.el (iswitchb-read-buffer): Declare rather than autoload.
+       (gnus-iswitchb-completing-read): Require iswitchb.
+       (gnus-select-frame-set-input-focus): Silence compiler.
+
 2010-10-31  Lars Magne Ingebrigtsen  <address@hidden>
 
        * message.el (message-subject-trailing-was-query): Change default to t,

=== modified file 'lisp/gnus/gnus-util.el'
--- a/lisp/gnus/gnus-util.el    2010-10-31 22:31:24 +0000
+++ b/lisp/gnus/gnus-util.el    2010-11-01 01:34:55 +0000
@@ -1651,10 +1651,14 @@
                       initial-input history def))
 
 
-(autoload 'iswitchb-read-buffer "iswitchb")
+(declare-function iswitchb-read-buffer "iswitchb"
+                 (prompt &optional default require-match start matches-set))
+(defvar iswitchb-temp-buflist)
+
 (defun gnus-iswitchb-completing-read (prompt collection &optional require-match
                                             initial-input history def)
   "`iswitchb' based completing-read function."
+  (require 'iswitchb)
   (let ((iswitchb-make-buflist-hook
          (lambda ()
            (setq iswitchb-temp-buflist
@@ -1667,11 +1671,11 @@
                    (nreverse filtered-choices))))))
     (unwind-protect
         (progn
-          (when (not iswitchb-mode)
-            (add-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup))
+          (or iswitchb-mode
+             (add-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup))
           (iswitchb-read-buffer prompt def require-match))
-      (when (not iswitchb-mode)
-        (remove-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup)))))
+      (or iswitchb-mode
+         (remove-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup)))))
 
 (defun gnus-graphic-display-p ()
   (if (featurep 'xemacs)
@@ -1758,14 +1762,16 @@
        (kill-buffer buf))
     tchar))
 
-(if (fboundp 'select-frame-set-input-focus)
+(if (featurep 'emacs)
     (defalias 'gnus-select-frame-set-input-focus 'select-frame-set-input-focus)
-  ;; XEmacs 21.4, SXEmacs
-  (defun gnus-select-frame-set-input-focus (frame)
-    "Select FRAME, raise it, and set input focus, if possible."
-    (raise-frame frame)
-    (select-frame frame)
-    (focus-frame frame)))
+  (if (fboundp 'select-frame-set-input-focus)
+      (defalias 'gnus-select-frame-set-input-focus 
'select-frame-set-input-focus)
+    ;; XEmacs 21.4, SXEmacs
+    (defun gnus-select-frame-set-input-focus (frame)
+      "Select FRAME, raise it, and set input focus, if possible."
+      (raise-frame frame)
+      (select-frame frame)
+      (focus-frame frame))))
 
 (defun gnus-frame-or-window-display-name (object)
   "Given a frame or window, return the associated display name.