diff options
| author | Kenichi Handa <handa@m17n.org> | 2002-08-20 03:58:23 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2002-08-20 03:58:23 +0000 |
| commit | 064808ae246cd108c0d410f52937a18d9417f5a6 (patch) | |
| tree | 4ee73234602ea37fa24825ea94f47af1bd263101 /lisp/case-table.el | |
| parent | 49aabfbde61bfe4afba8c26b0d3a7838d1bdd2d3 (diff) | |
| download | emacs-064808ae246cd108c0d410f52937a18d9417f5a6.tar.gz | |
(describe-buffer-case-table): Handle the case that KEY is a cons
within map-char-table.
Diffstat (limited to 'lisp/case-table.el')
| -rw-r--r-- | lisp/case-table.el | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el index aca05141040..51c9c444ddd 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el @@ -35,17 +35,19 @@ (let ((description (make-char-table 'case-table))) (map-char-table (function (lambda (key value) - (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 (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")))))) (current-case-table)) (save-excursion (with-output-to-temp-buffer "*Help*" |