diff options
author | Richard M. Stallman <[email protected]> | 2005-07-16 18:10:43 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2005-07-16 18:10:43 +0000 |
commit | 5ba583d104d37eb7a8549c59ebe7fe9b7f55c9e7 (patch) | |
tree | ac29ab6df41d3be68b2977804b2e9ce7d09844cb /lisp/net | |
parent | 8d25cef7cc5bdab004010e03c494243038d07fb6 (diff) |
(eudc-hotlist-mode): Avoid warnings.
Diffstat (limited to 'lisp/net')
-rw-r--r-- | lisp/net/eudc-hotlist.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el index f892bd6058..a13606e8f4 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)) |