Mercurial > emacs
changeset 27326:25ebadb8e258
*** empty log message ***
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 14 Jan 2000 12:05:52 +0000 |
| parents | 6d84505f3b35 |
| children | c7597f93c50d |
| files | lisp/ChangeLog lisp/loaddefs.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jan 14 12:03:53 2000 +0000 +++ b/lisp/ChangeLog Fri Jan 14 12:05:52 2000 +0000 @@ -1,3 +1,9 @@ +2000-01-14 Gerd Moellmann <gerd@gnu.org> + + * menu-bar.el (menu-bar-tools-menu): Add EUDC submenu. + + * net/eudc.el (toplevel): Define EUDC menu for Emacs. + 2000-01-13 Dave Love <fx@gnu.org> * ph.el: Removed. (Obsoleted by EUDC.)
--- a/lisp/loaddefs.el Fri Jan 14 12:03:53 2000 +0000 +++ b/lisp/loaddefs.el Fri Jan 14 12:05:52 2000 +0000 @@ -5586,7 +5586,7 @@ ;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline ;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el" -;;;;;; (14461 58260)) +;;;;;; (14463 3149)) ;;; Generated autoloads from net/eudc.el (autoload (quote eudc-set-server) "eudc" "\ @@ -5622,6 +5622,8 @@ Load the Emacs Unified Directory Client. This does nothing except loading eudc by autoload side-effect." t nil) +(cond ((not (string-match "XEmacs" emacs-version)) (defvar eudc-tools-menu (make-sparse-keymap "Directory Search")) (fset (quote eudc-tools-menu) (symbol-value (quote eudc-tools-menu))) (define-key eudc-tools-menu [phone] (quote ("Get Phone" . eudc-get-phone))) (define-key eudc-tools-menu [email] (quote ("Get Email" . eudc-get-email))) (define-key eudc-tools-menu [separator-eudc-email] (quote ("--"))) (define-key eudc-tools-menu [expand-inline] (quote ("Expand Inline Query" . eudc-expand-inline))) (define-key eudc-tools-menu [query] (quote ("Query with Form" . eudc-query-form))) (define-key eudc-tools-menu [separator-eudc-query] (quote ("--"))) (define-key eudc-tools-menu [new] (quote ("New Server" . eudc-set-server))) (define-key eudc-tools-menu [load] (quote ("Load Hotlist of Servers" . eudc-load-eudc)))) (t (let ((menu (quote ("Directory Search" ["Load Hotlist of Servers" eudc-load-eudc t] ["New Server" eudc-set-server t] ["---" nil nil] ["Query with Form" eudc-query-form t] ["Expand Inline Query" eudc-expand-inline t] ["---" nil nil] ["Get Email" eudc-get-email t] ["Get Phone" eudc-get-phone t])))) (if (not (featurep (quote eudc-autoloads))) (if (string-match "XEmacs" emacs-version) (if (and (featurep (quote menubar)) (not (featurep (quote infodock)))) (add-submenu (quote ("Tools")) menu)) (require (quote easymenu)) (cond ((fboundp (quote easy-menu-add-item)) (easy-menu-add-item nil (quote ("tools")) (easy-menu-create-menu (car menu) (cdr menu)))) ((fboundp (quote easy-menu-create-keymaps)) (define-key global-map [menu-bar tools eudc] (cons "Directory Search" (easy-menu-create-keymaps "Directory Search" (cdr menu))))))))))) + ;;;*** ;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline