Mercurial > emacs

comparison lisp/net/eudc.el @ 105941:d1bb0f3aad35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/eudc.el (eudc-tools-menu): * international/mule-cmds.el (set-coding-system-map) (mule-menu-keymap): * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): * vc-hooks.el (vc-menu-map): Use menu-bar-separator.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 11 Nov 2009 06:06:43 +0000
parents df4934f25eef
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
105940:f7147d70f6ef 105941:d1bb0f3aad35
1244 `(menu-item ,(purecopy "Get Phone") eudc-get-phone 1244 `(menu-item ,(purecopy "Get Phone") eudc-get-phone
1245 :help ,(purecopy "Get the phone field of name from the directory server"))) 1245 :help ,(purecopy "Get the phone field of name from the directory server")))
1246 (define-key map [email] 1246 (define-key map [email]
1247 `(menu-item ,(purecopy "Get Email") eudc-get-email 1247 `(menu-item ,(purecopy "Get Email") eudc-get-email
1248 :help ,(purecopy "Get the email field of NAME from the directory server"))) 1248 :help ,(purecopy "Get the email field of NAME from the directory server")))
1249 (define-key map [separator-eudc-email] '("--")) 1249 (define-key map [separator-eudc-email] menu-bar-separator)
1250 (define-key map [expand-inline] 1250 (define-key map [expand-inline]
1251 `(menu-item ,(purecopy "Expand Inline Query") eudc-expand-inline 1251 `(menu-item ,(purecopy "Expand Inline Query") eudc-expand-inline
1252 :help ,(purecopy "Query the directory server, and expand the query string before point"))) 1252 :help ,(purecopy "Query the directory server, and expand the query string before point")))
1253 (define-key map [query] 1253 (define-key map [query]
1254 `(menu-item ,(purecopy "Query with Form") eudc-query-form 1254 `(menu-item ,(purecopy "Query with Form") eudc-query-form
1255 :help ,(purecopy "Display a form to query the directory server"))) 1255 :help ,(purecopy "Display a form to query the directory server")))
1256 (define-key map [separator-eudc-query] '("--")) 1256 (define-key map [separator-eudc-query] menu-bar-separator)
1257 (define-key map [new] 1257 (define-key map [new]
1258 `(menu-item ,(purecopy "New Server") eudc-set-server 1258 `(menu-item ,(purecopy "New Server") eudc-set-server
1259 :help ,(purecopy "Set the directory server to SERVER using PROTOCOL"))) 1259 :help ,(purecopy "Set the directory server to SERVER using PROTOCOL")))
1260 (define-key map [load] 1260 (define-key map [load]
1261 `(menu-item ,(purecopy "Load Hotlist of Servers") eudc-load-eudc 1261 `(menu-item ,(purecopy "Load Hotlist of Servers") eudc-load-eudc