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

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

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

revision 1.7 by jpw, Mon Sep 16 02:49:21 2002 UTC revision 1.8 by jpw, Fri Sep 20 23:51:44 2002 UTC
# Line 1185  queries the server for the existing fiel Line 1185  queries the server for the existing fiel
1185      (add-submenu '("Tools") (eudc-menu)))      (add-submenu '("Tools") (eudc-menu)))
1186     (eudc-emacs-p     (eudc-emacs-p
1187      (cond      (cond
1188         ((fboundp 'easy-menu-create-menu)
1189          (define-key
1190            global-map
1191            [menu-bar tools directory-search]
1192            (cons "Directory Search"
1193                  (easy-menu-create-menu "Directory Search" (cdr (eudc-menu))))))
1194       ((fboundp 'easy-menu-add-item)       ((fboundp 'easy-menu-add-item)
1195        (let ((menu (eudc-menu)))        (let ((menu (eudc-menu)))
1196          (easy-menu-add-item nil '("tools") (easy-menu-create-menu (car menu)          (easy-menu-add-item nil '("tools") (easy-menu-create-menu (car menu)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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