diff options
| author | Richard M. Stallman | 2005-07-16 18:10:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-07-16 18:10:43 +0000 |
| commit | 5ba583d104d37eb7a8549c59ebe7fe9b7f55c9e7 (patch) | |
| tree | ac29ab6df41d3be68b2977804b2e9ce7d09844cb | |
| parent | 8d25cef7cc5bdab004010e03c494243038d07fb6 (diff) | |
| download | emacs-5ba583d104d37eb7a8549c59ebe7fe9b7f55c9e7.tar.gz emacs-5ba583d104d37eb7a8549c59ebe7fe9b7f55c9e7.zip | |
(eudc-hotlist-mode): Avoid warnings.
| -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 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: | |||
| 51 | (setq major-mode 'eudc-hotlist-mode) | 51 | (setq major-mode 'eudc-hotlist-mode) |
| 52 | (setq mode-name "EUDC-Servers") | 52 | (setq mode-name "EUDC-Servers") |
| 53 | (use-local-map eudc-hotlist-mode-map) | 53 | (use-local-map eudc-hotlist-mode-map) |
| 54 | (setq mode-popup-menu eudc-hotlist-menu) | 54 | (when (featurep 'xemacs) |
| 55 | (when (and eudc-xemacs-p | 55 | (setq mode-popup-menu eudc-hotlist-menu) |
| 56 | (featurep 'menubar)) | 56 | (when (featurep 'menubar) |
| 57 | (set-buffer-menubar current-menubar) | 57 | (set-buffer-menubar current-menubar) |
| 58 | (add-submenu nil (cons "EUDC-Hotlist" (cdr (cdr eudc-hotlist-menu))))) | 58 | (add-submenu nil (cons "EUDC-Hotlist" (cdr (cdr eudc-hotlist-menu)))))) |
| 59 | (setq buffer-read-only t) | 59 | (setq buffer-read-only t) |
| 60 | (run-mode-hooks 'eudc-hotlist-mode-hook)) | 60 | (run-mode-hooks 'eudc-hotlist-mode-hook)) |
| 61 | 61 | ||