Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(describe-buffer-case-table): Fix for the case that KEY is a cons.

Browse source
This commit is contained in:
Kenichi Handa 2009-07-17 12:27:15 +00:00
parent 1fc87f9beb
commit db170c743e
1 changed files with 19 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
lisp/case-table.el
View file

@ -39,19 +39,25 @@
(let ((description (make-char-table 'case-table)))
(map-char-table
(function (lambda (key value)
(if (consp key)
(set-char-table-range description key "case-invariant")
(aset
description key
(cond ((not (natnump value))
"case-invariant")
((/= key (downcase key))
(concat "uppercase, matches "
(char-to-string (downcase key))))
((/= key (upcase key))
(concat "lowercase, matches "
(char-to-string (upcase key))))
(t "case-invariant"))))))
(if (not (natnump value))
(if (consp key)
(set-char-table-range description key "case-invariant")
(aset description key "case-invariant"))
(let (from to)
(if (consp key)
(setq from (car key) to (cdr key))
(setq from (setq to key)))
(while (<= from to)
(aset
description from
(cond ((/= from (downcase from))
(concat "uppercase, matches "
(char-to-string (downcase from))))
((/= from (upcase from))
(concat "lowercase, matches "
(char-to-string (upcase from))))
(t "case-invariant")))
(setq from (1+ from)))))))
(current-case-table))
(save-excursion
(with-output-to-temp-buffer "*Help*"