aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/net/eudc.el
diff options
context:
space:
mode:
authorJuanma Barranquero <[email protected]>2002-10-18 08:52:37 +0000
committerJuanma Barranquero <[email protected]>2002-10-18 08:52:37 +0000
commit6c83d99f87a471b4c0e49f5fd5e43005176d84de (patch)
treeb774fe99e04c17797b4207499875e0589e7b1674 /lisp/net/eudc.el
parent3d8c35d3b0c9c1302d77ed5abbed271360c6eedc (diff)
Fix typo in comment.
Diffstat (limited to 'lisp/net/eudc.el')
-rw-r--r--lisp/net/eudc.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 4c501e9c63..9d3e4aa9d3 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -38,7 +38,7 @@
;; The main entry points of EUDC are:
;; `eudc-query-form': Query a directory server from a query form
;; `eudc-expand-inline': Query a directory server for the e-mail address
-;; of the name before cursor and insert it in the
+;; of the name before cursor and insert it in the
;; buffer
;; `eudc-get-phone': Get a phone number from a directory server
;; `eudc-get-email': Get an e-mail address from a directory server
@@ -207,7 +207,7 @@ Value is the new string."
(defun eudc-default-set (var val)
"Set the EUDC default value of VAR to VAL.
The current binding of VAR is not changed."
- (put var 'eudc-locals
+ (put var 'eudc-locals
(plist-put (get var 'eudc-locals) 'default val))
(add-to-list 'eudc-local-vars var))
@@ -221,7 +221,7 @@ The current binding of VAR is changed only if PROTOCOL is omitted."
(protocol-locals (eudc-plist-get eudc-locals 'protocol)))
(setq protocol-locals (plist-put protocol-locals (or protocol
eudc-protocol) val))
- (setq eudc-locals
+ (setq eudc-locals
(plist-put eudc-locals 'protocol protocol-locals))
(put var 'eudc-locals eudc-locals)
(add-to-list 'eudc-local-vars var)
@@ -293,7 +293,7 @@ SERVER defaults to `eudc-server'"
(eudc-plist-member eudc-locals 'server)))
'unbound
(setq server-locals (eudc-plist-get eudc-locals 'server))
- (eudc-lax-plist-get server-locals
+ (eudc-lax-plist-get server-locals
(or server
eudc-server) 'unbound))))
@@ -789,7 +789,7 @@ If none try N - 1 and so forth."
(let (formats)
(while (and (null formats)
(> n 0))
- (setq formats
+ (setq formats
(delq nil
(mapcar '(lambda (format)
(if (= n
@@ -1103,7 +1103,7 @@ queries the server for the existing fields and displays a corresponding form."
;;}}}
-;;{{{ Menus an keymaps
+;;{{{ Menus and keymaps
(require 'easymenu)