/[emacs]/emacs/lisp/net/eudc-hotlist.el
ViewVC logotype

Diff of /emacs/lisp/net/eudc-hotlist.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by lute, Mon Jul 4 17:10:37 2005 UTC revision 1.10 by rms, Sat Jul 16 18:10:43 2005 UTC
# Line 51  These are the special commands of this m Line 51  These are the special commands of this m
51    (setq major-mode 'eudc-hotlist-mode)    (setq major-mode 'eudc-hotlist-mode)
52    (setq mode-name "EUDC-Servers")    (setq mode-name "EUDC-Servers")
53    (use-local-map eudc-hotlist-mode-map)    (use-local-map eudc-hotlist-mode-map)
54    (setq mode-popup-menu eudc-hotlist-menu)    (when (featurep 'xemacs)
55    (when (and eudc-xemacs-p      (setq mode-popup-menu eudc-hotlist-menu)
56               (featurep 'menubar))      (when (featurep 'menubar)
57      (set-buffer-menubar current-menubar)        (set-buffer-menubar current-menubar)
58      (add-submenu nil (cons "EUDC-Hotlist" (cdr (cdr eudc-hotlist-menu)))))        (add-submenu nil (cons "EUDC-Hotlist" (cdr (cdr eudc-hotlist-menu))))))
59    (setq buffer-read-only t)    (setq buffer-read-only t)
60    (run-mode-hooks 'eudc-hotlist-mode-hook))    (run-mode-hooks 'eudc-hotlist-mode-hook))
61    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26