Mercurial > emacs

comparison lisp/net/eudc.el @ 105715:6b8dce5c4461

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* puresize.h (BASE_PURESIZE): Increase to 1430000. * term/tty-colors.el (msdos-color-values): Remove declaration, unused. (color-name-rgb-alist, tty-standard-colors) (tty-color-mode-alist): Change to defconst. * simple.el (mark-inactive): Purecopy message. * menu-bar.el (menu-bar-make-mm-toggle, menu-bar-make-toggle): Fix macro. (global-map, yank-menu): * textmodes/ispell.el (ispell-menu-map): * net/eudc.el (eudc-tools-menu): * international/mule-cmds.el (describe-language-environment-map) (setup-language-environment-map, set-coding-system-map) (mule-menu-keymap): * vc-hooks.el (vc-menu-entry, vc-menu-map): * replace.el (occur-mode-map): * pcvs-defs.el (cvs-global-menu): Purecopy names and tooltips. * bindings.el (propertized-buffer-identification): Purecopy tooltip text.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 23 Oct 2009 05:15:26 +0000
parents bd2966850aac
children df4934f25eef
comparison
equal deleted inserted replaced
105714:f7cff45183ee 105715:6b8dce5c4461
1240 (cond 1240 (cond
1241 ((not (featurep 'xemacs)) 1241 ((not (featurep 'xemacs))
1242 (defvar eudc-tools-menu 1242 (defvar eudc-tools-menu
1243 (let ((map (make-sparse-keymap "Directory Search"))) 1243 (let ((map (make-sparse-keymap "Directory Search")))
1244 (define-key map [phone] 1244 (define-key map [phone]
1245 '(menu-item "Get Phone" eudc-get-phone 1245 `(menu-item ,(purecopy "Get Phone") eudc-get-phone
1246 :help "Get the phone field of name from the directory server")) 1246 :help ,(purecopy "Get the phone field of name from the directory server")))
1247 (define-key map [email] 1247 (define-key map [email]
1248 '(menu-item "Get Email" eudc-get-email 1248 `(menu-item ,(purecopy "Get Email") eudc-get-email
1249 :help "Get the email field of NAME from the directory server")) 1249 :help ,(purecopy "Get the email field of NAME from the directory server")))
1250 (define-key map [separator-eudc-email] '("--")) 1250 (define-key map [separator-eudc-email] '("--"))
1251 (define-key map [expand-inline] 1251 (define-key map [expand-inline]
1252 '(menu-item "Expand Inline Query" eudc-expand-inline 1252 `(menu-item ,(purecopy "Expand Inline Query") eudc-expand-inline
1253 :help "Query the directory server, and expand the query string before point")) 1253 :help ,(purecopy "Query the directory server, and expand the query string before point")))
1254 (define-key map [query] 1254 (define-key map [query]
1255 '(menu-item "Query with Form" eudc-query-form 1255 `(menu-item ,(purecopy "Query with Form") eudc-query-form
1256 :help "Display a form to query the directory server")) 1256 :help ,(purecopy "Display a form to query the directory server")))
1257 (define-key map [separator-eudc-query] '("--")) 1257 (define-key map [separator-eudc-query] '("--"))
1258 (define-key map [new] 1258 (define-key map [new]
1259 '(menu-item "New Server" eudc-set-server 1259 `(menu-item ,(purecopy "New Server") eudc-set-server
1260 :help "Set the directory server to SERVER using PROTOCOL")) 1260 :help ,(purecopy "Set the directory server to SERVER using PROTOCOL")))
1261 (define-key map [load] 1261 (define-key map [load]
1262 '(menu-item "Load Hotlist of Servers" eudc-load-eudc 1262 `(menu-item ,(purecopy "Load Hotlist of Servers") eudc-load-eudc
1263 :help "Load the Emacs Unified Directory Client")) 1263 :help ,(purecopy "Load the Emacs Unified Directory Client")))
1264 map)) 1264 map))
1265 (fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu))) 1265 (fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu)))
1266 (t 1266 (t
1267 (let ((menu '("Directory Search" 1267 (let ((menu '("Directory Search"
1268 ["Load Hotlist of Servers" eudc-load-eudc t] 1268 ["Load Hotlist of Servers" eudc-load-eudc t]