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 |
|
|