mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(eudc-server, eudc-protocol): Fix :type.

Browse Source
This commit is contained in:
Dave Love 2001-01-17 11:41:05 +00:00
parent 9ad4f3e556
commit f1f06a6978
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/net/eudc-vars.el
View File

@ -41,7 +41,7 @@
A port number may be specified by appending a colon and a
number to the name of the server. Use `localhost' if the directory
server resides on your computer (BBDB backend)."
:type '(string :tag "Server")
:type '(choice (string :tag "Server") (const :tag "None" nil))
:group 'eudc)
;; Known protocols (used in completion)
@ -59,7 +59,8 @@ Supported protocols are specified by `eudc-supported-protocols'."
:type `(choice :menu-tag "Protocol"
,@(mapcar (lambda (s)
(list 'const ':tag (symbol-name s) s))
eudc-known-protocols))
eudc-known-protocols)
(const :tag "None" nil))
:group 'eudc)