aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/url
diff options
context:
space:
mode:
authorChong Yidong2012-04-09 21:05:48 +0800
committerChong Yidong2012-04-09 21:05:48 +0800
commitfb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5 (patch)
treeeba43d1fa2427a77f1f6b1468838426b33ea5973 /lisp/url
parenta18ecafa99e7e7c3caa35ed68dd8a7b9b5d2b8e3 (diff)
downloademacs-fb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5.tar.gz
emacs-fb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5.zip
Remove * characters from the front of variable docstrings.
Diffstat (limited to 'lisp/url')
-rw-r--r--lisp/url/url-dav.el2
-rw-r--r--lisp/url/url-handlers.el2
-rw-r--r--lisp/url/url-ldap.el4
-rw-r--r--lisp/url/url-nfs.el2
-rw-r--r--lisp/url/url-vars.el8
5 files changed, 9 insertions, 9 deletions
diff --git a/lisp/url/url-dav.el b/lisp/url/url-dav.el
index 03527bceee7..085785524b7 100644
--- a/lisp/url/url-dav.el
+++ b/lisp/url/url-dav.el
@@ -478,7 +478,7 @@ names (ie: DAV:resourcetype)."
478 478
479;;; Locking support 479;;; Locking support
480(defvar url-dav-lock-identifier (concat "mailto:" user-mail-address) 480(defvar url-dav-lock-identifier (concat "mailto:" user-mail-address)
481 "*URL used as contact information when creating locks in DAV. 481 "URL used as contact information when creating locks in DAV.
482This will be used as the contents of the DAV:owner/DAV:href tag to 482This will be used as the contents of the DAV:owner/DAV:href tag to
483identify the owner of a LOCK when requesting it. This will be shown 483identify the owner of a LOCK when requesting it. This will be shown
484to other users when the DAV:lockdiscovery property is requested, so 484to other users when the DAV:lockdiscovery property is requested, so
diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el
index 4bc5bd47488..d00a1174cdf 100644
--- a/lisp/url/url-handlers.el
+++ b/lisp/url/url-handlers.el
@@ -92,7 +92,7 @@
92 92
93(defvar url-handler-regexp 93(defvar url-handler-regexp
94 "\\`\\(https?\\|ftp\\|file\\|nfs\\)://" 94 "\\`\\(https?\\|ftp\\|file\\|nfs\\)://"
95 "*A regular expression for matching URLs handled by `file-name-handler-alist'. 95 "A regular expression for matching URLs handled by `file-name-handler-alist'.
96Some valid URL protocols just do not make sense to visit interactively 96Some valid URL protocols just do not make sense to visit interactively
97\(about, data, info, irc, mailto, etc\). This regular expression 97\(about, data, info, irc, mailto, etc\). This regular expression
98avoids conflicts with local files that look like URLs \(Gnus is 98avoids conflicts with local files that look like URLs \(Gnus is
diff --git a/lisp/url/url-ldap.el b/lisp/url/url-ldap.el
index 7c988f9b119..0ea98cb06c9 100644
--- a/lisp/url/url-ldap.el
+++ b/lisp/url/url-ldap.el
@@ -64,7 +64,7 @@
64 ("facsimiletelephonenumber" . "Fax") 64 ("facsimiletelephonenumber" . "Fax")
65 ("postaladdress" . "Mailing Address") 65 ("postaladdress" . "Mailing Address")
66 ("description" . "Notes")) 66 ("description" . "Notes"))
67 "*An assoc list mapping LDAP attribute names to pretty descriptions of them.") 67 "An assoc list mapping LDAP attribute names to pretty descriptions of them.")
68 68
69(defvar url-ldap-attribute-formatters 69(defvar url-ldap-attribute-formatters
70 '(("mail" . (lambda (x) (format "<a href='mailto:%s'>%s</a>" x x))) 70 '(("mail" . (lambda (x) (format "<a href='mailto:%s'>%s</a>" x x)))
@@ -76,7 +76,7 @@
76 ("namingcontexts" . url-ldap-dn-formatter) 76 ("namingcontexts" . url-ldap-dn-formatter)
77 ("defaultnamingcontext" . url-ldap-dn-formatter) 77 ("defaultnamingcontext" . url-ldap-dn-formatter)
78 ("member" . url-ldap-dn-formatter)) 78 ("member" . url-ldap-dn-formatter))
79 "*An assoc list mapping LDAP attribute names to pretty formatters for them.") 79 "An assoc list mapping LDAP attribute names to pretty formatters for them.")
80 80
81(defsubst url-ldap-attribute-pretty-name (n) 81(defsubst url-ldap-attribute-pretty-name (n)
82 (or (cdr-safe (assoc (downcase n) url-ldap-pretty-names)) n)) 82 (or (cdr-safe (assoc (downcase n) url-ldap-pretty-names)) n))
diff --git a/lisp/url/url-nfs.el b/lisp/url/url-nfs.el
index a22d105b1a1..bfab147f267 100644
--- a/lisp/url/url-nfs.el
+++ b/lisp/url/url-nfs.el
@@ -29,7 +29,7 @@
29 29
30(defvar url-nfs-automounter-directory-spec 30(defvar url-nfs-automounter-directory-spec
31 "file:/net/%h%f" 31 "file:/net/%h%f"
32 "*How to invoke the NFS automounter. Certain % sequences are recognized. 32 "How to invoke the NFS automounter. Certain % sequences are recognized.
33 33
34%h -- the hostname of the NFS server 34%h -- the hostname of the NFS server
35%n -- the port # of the NFS server 35%n -- the port # of the NFS server
diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index a56eb4cc810..ff18049e97b 100644
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -212,7 +212,7 @@ Should be an assoc list of headers/contents.")
212 212
213;; FIXME!! (RFC 2616 gives examples like `compress, gzip'.) 213;; FIXME!! (RFC 2616 gives examples like `compress, gzip'.)
214(defvar url-mime-encoding-string nil 214(defvar url-mime-encoding-string nil
215 "*String to send in the Accept-encoding: field in HTTP requests.") 215 "String to send in the Accept-encoding: field in HTTP requests.")
216 216
217;; Perhaps the first few should actually be given decreasing `q's and 217;; Perhaps the first few should actually be given decreasing `q's and
218;; the list should be trimmed significantly. 218;; the list should be trimmed significantly.
@@ -233,7 +233,7 @@ Generated according to current coding system priorities."
233 ";q=0.5")))) 233 ";q=0.5"))))
234 234
235(defvar url-mime-charset-string nil 235(defvar url-mime-charset-string nil
236 "*String to send in the Accept-charset: field in HTTP requests. 236 "String to send in the Accept-charset: field in HTTP requests.
237The MIME charset corresponding to the most preferred coding system is 237The MIME charset corresponding to the most preferred coding system is
238given priority 1 and the rest are given priority 0.5.") 238given priority 1 and the rest are given priority 0.5.")
239 239
@@ -364,7 +364,7 @@ Currently supported methods:
364 364
365(defvar url-parse-syntax-table 365(defvar url-parse-syntax-table
366 (copy-syntax-table emacs-lisp-mode-syntax-table) 366 (copy-syntax-table emacs-lisp-mode-syntax-table)
367 "*A syntax table for parsing URLs.") 367 "A syntax table for parsing URLs.")
368 368
369(modify-syntax-entry ?' "\"" url-parse-syntax-table) 369(modify-syntax-entry ?' "\"" url-parse-syntax-table)
370(modify-syntax-entry ?` "\"" url-parse-syntax-table) 370(modify-syntax-entry ?` "\"" url-parse-syntax-table)
@@ -373,7 +373,7 @@ Currently supported methods:
373(modify-syntax-entry ?/ " " url-parse-syntax-table) 373(modify-syntax-entry ?/ " " url-parse-syntax-table)
374 374
375(defvar url-load-hook nil 375(defvar url-load-hook nil
376 "*Hooks to be run after initializing the URL library.") 376 "Hooks to be run after initializing the URL library.")
377 377
378;;; Make OS/2 happy - yeeks 378;;; Make OS/2 happy - yeeks
379;; (defvar tcp-binary-process-input-services nil 379;; (defvar tcp-binary-process-input-services nil