Commit db170c74 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

parent 1fc87f9b
......@@ -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*"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment