[Emacs-diffs] Changes to emacs/lisp/net/eudc-hotlist.el

[Richard M . Stallman]

Index: emacs/lisp/net/eudc-hotlist.el
diff -c emacs/lisp/net/eudc-hotlist.el:1.9 emacs/lisp/net/eudc-hotlist.el:1.10
*** emacs/lisp/net/eudc-hotlist.el:1.9  Mon Jul  4 17:10:37 2005
--- emacs/lisp/net/eudc-hotlist.el      Sat Jul 16 18:10:43 2005
***************
*** 51,61 ****
    (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)))))
    (setq buffer-read-only t)
    (run-mode-hooks 'eudc-hotlist-mode-hook))
  
--- 51,61 ----
    (setq major-mode 'eudc-hotlist-mode)
    (setq mode-name "EUDC-Servers")
    (use-local-map eudc-hotlist-mode-map)
!   (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))