Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1ea98518
Commit
1ea98518
authored
May 31, 2001
by
Stefan Monnier
Browse files
(tags-compression-info-list): Fix docstring
and :type spec.
parent
0894672f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
37 additions
and
33 deletions
+37
-33
lisp/ChangeLog
lisp/ChangeLog
+14
-10
lisp/progmodes/etags.el
lisp/progmodes/etags.el
+23
-23
No files found.
lisp/ChangeLog
View file @
1ea98518
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>
...
...
lisp/progmodes/etags.el
View file @
1ea98518
...
...
@@ -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
string
s ?
\
(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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment