Mercurial > emacs

diff lisp/net/eudc.el @ 47566:65c4cd99d916

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eudc-install-menu): Use `define-key' and `easy-menu-create-menu' to avoid duplication of menu.
author John Paul Wallington <jpw@pobox.com>
date Fri, 20 Sep 2002 23:51:44 +0000
parents 036e57c15cdc
children 5f47d61ffbdc
line wrap: on
line diff
--- a/lisp/net/eudc.el	Fri Sep 20 20:38:18 2002 +0000
+++ b/lisp/net/eudc.el	Fri Sep 20 23:51:44 2002 +0000
@@ -1185,6 +1185,12 @@
     (add-submenu '("Tools") (eudc-menu)))
    (eudc-emacs-p
     (cond
+     ((fboundp 'easy-menu-create-menu)
+      (define-key
+	global-map
+	[menu-bar tools directory-search]
+	(cons "Directory Search"
+	      (easy-menu-create-menu "Directory Search" (cdr (eudc-menu))))))
      ((fboundp 'easy-menu-add-item)
       (let ((menu (eudc-menu)))
 	(easy-menu-add-item nil '("tools") (easy-menu-create-menu (car menu)