From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Jul 2005 18:10:43 +0000 (+0000)
Subject: (eudc-hotlist-mode): Avoid warnings.
X-Git-Tag: emacs-pretest-22.0.90~8089
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ba583d104d37eb7a8549c59ebe7fe9b7f55c9e7;p=emacs.git

(eudc-hotlist-mode): Avoid warnings.
---

diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index f892bd6058e..a13606e8f43 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -51,11 +51,11 @@ These are the special commands of this mode:
   (setq major-mode 'eudc-hotlist-mode)
   (setq mode-name "EUDC-Servers")
   (use-local-map eudc-hotlist-mode-map)
-  (setq mode-popup-menu eudc-hotlist-menu)
-  (when (and eudc-xemacs-p
-	     (featurep 'menubar))
-    (set-buffer-menubar current-menubar)
-    (add-submenu nil (cons "EUDC-Hotlist" (cdr (cdr eudc-hotlist-menu)))))
+  (when (featurep 'xemacs)
+    (setq mode-popup-menu eudc-hotlist-menu)
+    (when (featurep 'menubar)
+      (set-buffer-menubar current-menubar)
+      (add-submenu nil (cons "EUDC-Hotlist" (cdr (cdr eudc-hotlist-menu))))))
   (setq buffer-read-only t)
   (run-mode-hooks 'eudc-hotlist-mode-hook))