Bind help-echo-owns-message to avoid a compiler warning on XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2cde44..eb488b8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-03-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * dgnushack.el: Bind help-echo-owns-message to avoid a compiler warning
+       on XEmacs.
+
        * gnus-art.el: Require mouse, which the build bot seems to say is
        needed.
 

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 9fa42d3..a8783cd 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -137,14 +137,16 @@
     (autoload 'iswitchb-read-buffer "iswitchb")
     (autoload 'netrc-credentials "netrc")
     (defalias 'x-defined-colors 'ignore)
-    (unless (fboundp 'url-retrieve-synchronously)
-      (defalias 'url-retrieve-synchronously 'url-retrieve))
     (defalias 'read-color 'ignore)))
 
 (eval-and-compile
   (when (featurep 'xemacs)
     (unless (fboundp 'defadvice)
       (autoload 'defadvice "advice" nil nil 'macro))
+    (unless (boundp 'help-echo-owns-message)
+      (defvar help-echo-owns-message))
+    (unless (fboundp 'url-retrieve-synchronously)
+      (defalias 'url-retrieve-synchronously 'url-retrieve))
     (autoload 'Info-directory "info" nil t)
     (autoload 'Info-index "info" nil t)
     (autoload 'Info-index-next "info" nil t)