Mercurial > emacs

comparison lisp/net/eudc-hotlist.el @ 64388:2b4cb2b750b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eudc-hotlist-mode): Avoid warnings.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 Jul 2005 18:10:43 +0000
parents 18a818a2ee7c
children 34bd8e434dd7 187d6a1f84f7
comparison
equal deleted inserted replaced
64387:fea47ebca4ae 64388:2b4cb2b750b1
49 (interactive) 49 (interactive)
50 (kill-all-local-variables) 50 (kill-all-local-variables)
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
62 ;;;###autoload 62 ;;;###autoload
63 (defun eudc-edit-hotlist () 63 (defun eudc-edit-hotlist ()