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

(describe-buffer-case-table): Don't use text-char-description.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-04-28 04:29:45 +00:00
parent fd3d5d87df
commit f46efdf9e2
1 changed files with 9 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/case-table.el
View File

@ -38,16 +38,15 @@
"Describe the case table of the current buffer." "Describe the case table of the current buffer."
(interactive) (interactive)
(let ((vector (make-vector 256 nil)) (let ((vector (make-vector 256 nil))
(case-table (current-case-table))
(ch 0)) (ch 0))
(while (< ch 256) (while (< ch 256)
(aset vector ch (aset vector ch
(cond ((/= ch (downcase ch)) (cond ((/= ch (downcase ch))
(concat "uppercase, matches " (concat "uppercase, matches "
(text-char-description (downcase ch)))) (char-to-string (downcase ch))))
((/= ch (upcase ch)) ((/= ch (upcase ch))
(concat "lowercase, matches " (concat "lowercase, matches "
(text-char-description (upcase ch)))) (char-to-string (upcase ch))))
(t "case-invariant"))) (t "case-invariant")))
(setq ch (1+ ch))) (setq ch (1+ ch)))
(save-excursion (save-excursion
@ -60,43 +59,36 @@
"Make characters L and R a matching pair of non-case-converting delimiters. "Make characters L and R a matching pair of non-case-converting delimiters.
This sets the entries for L and R in TABLE, which is a string This sets the entries for L and R in TABLE, which is a string
that will be used as the downcase part of a case table. that will be used as the downcase part of a case table.
It also modifies `standard-syntax-table', and `text-mode-syntax-table' to It also modifies `standard-syntax-table' to
indicate left and right delimiters." indicate left and right delimiters."
(aset table l l) (aset table l l)
(aset table r r) (aset table r r)
(modify-syntax-entry l (concat "(" (char-to-string r) " ") (modify-syntax-entry l (concat "(" (char-to-string r) " ")
(standard-syntax-table)) (standard-syntax-table))
(modify-syntax-entry l (concat "(" (char-to-string r) " ")
text-mode-syntax-table)
(modify-syntax-entry r (concat ")" (char-to-string l) " ") (modify-syntax-entry r (concat ")" (char-to-string l) " ")
(standard-syntax-table)) (standard-syntax-table)))
(modify-syntax-entry r (concat ")" (char-to-string l) " ")
text-mode-syntax-table))
;;;###autoload ;;;###autoload
(defun set-case-syntax-pair (uc lc table) (defun set-case-syntax-pair (uc lc table)
"Make characters UC and LC a pair of inter-case-converting letters. "Make characters UC and LC a pair of inter-case-converting letters.
This sets the entries for characters UC and LC in TABLE, which is a string This sets the entries for characters UC and LC in TABLE, which is a string
that will be used as the downcase part of a case table. that will be used as the downcase part of a case table.
It also modifies `standard-syntax-table' and `text-mode-syntax-table' It also modifies `standard-syntax-table' to give them the syntax of
to indicate an (uppercase, lowercase) pair of letters." word constituents."
(aset table uc lc) (aset table uc lc)
(aset table lc lc) (aset table lc lc)
(modify-syntax-entry lc "w " (standard-syntax-table)) (modify-syntax-entry lc "w " (standard-syntax-table))
(modify-syntax-entry lc "w " text-mode-syntax-table) (modify-syntax-entry uc "w " (standard-syntax-table)))
(modify-syntax-entry uc "w " (standard-syntax-table))
(modify-syntax-entry uc "w " text-mode-syntax-table))
;;;###autoload ;;;###autoload
(defun set-case-syntax (c syntax table) (defun set-case-syntax (c syntax table)
"Make characters C case-invariant with syntax SYNTAX. "Make characters C case-invariant with syntax SYNTAX.
This sets the entries for character C in TABLE, which is a string This sets the entries for character C in TABLE, which is a string
that will be used as the downcase part of a case table. that will be used as the downcase part of a case table.
It also modifies `standard-syntax-table' and `text-mode-syntax-table'. It also modifies `standard-syntax-table'.
SYNTAX should be \" \", \"w\", \".\" or \"_\"." SYNTAX should be \" \", \"w\", \".\" or \"_\"."
(aset table c c) (aset table c c)
(modify-syntax-entry c syntax (standard-syntax-table)) (modify-syntax-entry c syntax (standard-syntax-table)))
(modify-syntax-entry c syntax text-mode-syntax-table))
(provide 'case-table) (provide 'case-table)