[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 36d17ef 2/4: EUDC: Shorten eudc-tools-menu autoload
From: |
Thomas Fitzsimmons |
Subject: |
[Emacs-diffs] master 36d17ef 2/4: EUDC: Shorten eudc-tools-menu autoload |
Date: |
Wed, 15 Aug 2018 22:15:04 -0400 (EDT) |
branch: master
commit 36d17ef44a2c9f034992e921b350664dddffb58f
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>
EUDC: Shorten eudc-tools-menu autoload
* lisp/net/eudc.el: Remove XEmacs support from eudc-tools-menu
autoload.
---
lisp/net/eudc.el | 31 +------------------------------
1 file changed, 1 insertion(+), 30 deletions(-)
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 00d8c60..ff8ed2c 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1196,8 +1196,7 @@ This does nothing except loading eudc by autoload
side-effect."
nil)
;;;###autoload
-(cond
- ((not (featurep 'xemacs))
+(progn
(defvar eudc-tools-menu
(let ((map (make-sparse-keymap "Directory Servers")))
(define-key map [phone]
@@ -1222,34 +1221,6 @@ This does nothing except loading eudc by autoload
side-effect."
:help ,(purecopy "Load the Emacs Unified Directory
Client")))
map))
(fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu)))
- (t
- (let ((menu '("Directory Servers"
- ["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 'eudc-autoloads))
- (if (featurep 'xemacs)
- (if (and (featurep 'menubar)
- (not (featurep 'infodock)))
- (add-submenu '("Tools") menu))
- (require 'easymenu)
- (cond
- ((fboundp 'easy-menu-add-item)
- (easy-menu-add-item nil '("tools")
- (easy-menu-create-menu (car menu)
- (cdr menu))))
- ((fboundp 'easy-menu-create-keymaps)
- (define-key
- global-map
- [menu-bar tools eudc]
- (cons "Directory Servers"
- (easy-menu-create-keymaps "Directory Servers"
- (cdr menu)))))))))))
;;}}}