(tags-compression-info-list): Fix docstring

and :type spec.

2 files changed, 37 insertions, 33 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3cbff1279a2..e74655cee59 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
+2001-05-31  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * progmodes/etags.el (tags-compression-info-list): Fix docstring
+        and :type spec.
+
 2001-05-31  Gerd Moellmann  <gerd@gnu.org>
 
-        * international/mule-cmds.el (inactivate-input-method): Set
-        input-method-function to nil.
+        * international/mule-cmds.el (inactivate-input-method):
+        Set input-method-function to nil.
 
         * xml.el (xml-parse-tag): The document may contain invalid characters.
         From ShengHuo ZHU  <zsh@cs.rochester.edu>
@@ -9,14 +14,13 @@
 2001-05-31  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
         * mail/rmailsum.el (rmail-message-subject-p): Don't call
-        `rmail-summary-line-decoder' if the message does not have Subject:
-        field.
+        `rmail-summary-line-decoder' if the message does not have
+        a Subject: field.
 
-        * mail/rmail.el (rmail-revert): Modify to work in
-        rmail-view-buffer.
+        * mail/rmail.el (rmail-revert): Modify to work in rmail-view-buffer.
 
-        * mail/rmail.el (rmail-insert-mime-resent-message-function): New
-        variable.
+        * mail/rmail.el (rmail-insert-mime-resent-message-function):
+        New variable.
         (rmail-resend): Modify to work in `rmail-view-buffer'; call
         `rmail-insert-mime-resent-message-function' if `rmail-enable-mime'
         is non-nil.
@@ -36,8 +40,8 @@
 
 2001-05-29  Gerd Moellmann  <gerd@gnu.org>
 
-        * international/utf-8.el (ccl-decode-mule-utf-8): Handle
-        invalid UTF-8 sequences.
+        * international/utf-8.el (ccl-decode-mule-utf-8): Handle invalid
+        UTF-8 sequences.
 
 2001-05-28  Miles Bader  <miles@gnu.org>
 
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 5efd54a9867..8731bb5a896 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -69,19 +69,19 @@ Use the `etags' program to make a tags table file."
   "*List of extensions tried by etags when jka-compr is used.
 An empty string means search the non-compressed file.
 These extensions will be tried only if jka-compr was activated
-(i.e. via customize of auto-compression-mode or by calling the function
-auto-compression-mode)."
-  :type  'sexp ;;; what should be put here to have a list of strings ?
+\(i.e. via customize of `auto-compression-mode' or by calling the function
+`auto-compression-mode')."
+  :type  '(repeat string)
   :group 'etags)
 
-;;; !!! tags-compression-info-list should probably be replaced by access
-;;; to directory list and matching jka-compr-compression-info-list. Currently,
-;;; this implementation forces each modification of
-;;; jka-compr-compression-info-list to be reflected in this var.
-;;; An alternative could be to say that introducing a special
-;;; element in this list (e.g. t) means : try at this point
-;;; using directory listing and regexp matching using
-;;; jka-compr-compression-info-list.
+;; !!! tags-compression-info-list should probably be replaced by access
+;; to directory list and matching jka-compr-compression-info-list. Currently,
+;; this implementation forces each modification of
+;; jka-compr-compression-info-list to be reflected in this var.
+;; An alternative could be to say that introducing a special
+;; element in this list (e.g. t) means : try at this point
+;; using directory listing and regexp matching using
+;; jka-compr-compression-info-list.
 
 
 ;;;###autoload
@@ -1503,25 +1503,25 @@ where they were found."
        (save-excursion (backward-char (length tag))
                        (looking-at "\\b"))))
 
-;;; exact file name match, i.e. searched tag must match complete file
-;;; name including directories parts if there are some.
+;; exact file name match, i.e. searched tag must match complete file
+;; name including directories parts if there are some.
 (defun tag-exact-file-name-match-p (tag)
   (and (looking-at ",")
        (save-excursion (backward-char (+ 2 (length tag)))
                        (looking-at "\f\n"))))
-;;; file name match as above, but searched tag must match the file
-;;; name not including the directories if there are some.
+;; file name match as above, but searched tag must match the file
+;; name not including the directories if there are some.
 (defun tag-file-name-match-p (tag)
   (and (looking-at ",")
        (save-excursion (backward-char (1+ (length tag)))
                        (looking-at "/"))))
-;;; this / to detect we are after a directory separator is ok for unix,
-;;; is there a variable that contains the regexp for directory separator
-;;; on whatever operating system ?
-;;; Looks like ms-win will lose here :).
+;; this / to detect we are after a directory separator is ok for unix,
+;; is there a variable that contains the regexp for directory separator
+;; on whatever operating system ?
+;; Looks like ms-win will lose here :).
 
-;;; partial file name match, i.e. searched tag must match a substring
-;;; of the file name (potentially including a directory separator).
+;; partial file name match, i.e. searched tag must match a substring
+;; of the file name (potentially including a directory separator).
 (defun tag-partial-file-name-match-p (tag)
   (and (looking-at ".*,")
        (save-excursion (beginning-of-line)
@@ -1802,7 +1802,7 @@ directory specification."
     (setq buffer-read-only t)
     (apropos-mode)))
 
-;;; XXX Kludge interface.
+;; XXX Kludge interface.
 
 ;; XXX If a file is in multiple tables, selection may get the wrong one.
 ;;;###autoload
@@ -1890,7 +1890,7 @@ see the doc of that variable if you want to add names to the list."
   (interactive)
   (quit-window t (selected-window)))
 
-;;; Note, there is another definition of this function in bindings.el.
+;; Note, there is another definition of this function in bindings.el.
 ;;;###autoload
 (defun complete-tag ()
   "Perform tags completion on the text around point.