From 1ea98518d8922e3f9b3c7cb08c2a710e4fb63fa1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 31 May 2001 14:34:37 +0000 Subject: [PATCH] (tags-compression-info-list): Fix docstring and :type spec. --- lisp/ChangeLog | 24 ++++++++++++--------- lisp/progmodes/etags.el | 46 ++++++++++++++++++++--------------------- 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 + + * progmodes/etags.el (tags-compression-info-list): Fix docstring + and :type spec. + 2001-05-31 Gerd Moellmann - * 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 @@ -9,14 +14,13 @@ 2001-05-31 MORIOKA Tomohiko * 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 - * 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 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. -- 2.39.2