diff options
| author | Richard M. Stallman | 1995-11-11 20:39:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-11-11 20:39:37 +0000 |
| commit | 0c7fb3abbe0e7e937c18439eaea4a98e2b481bad (patch) | |
| tree | 6a1df6ab54b3ec14c57d4d9b4e4bc4c01aeb5fed | |
| parent | 212daf133ad3987ec4bab1daec92082b97842663 (diff) | |
| download | emacs-0c7fb3abbe0e7e937c18439eaea4a98e2b481bad.tar.gz emacs-0c7fb3abbe0e7e937c18439eaea4a98e2b481bad.zip | |
(describe-buffer-case-table): Use set-char-table-range.
| -rw-r--r-- | lisp/case-table.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el index 3efa3d3f27e..4ca99806015 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el | |||
| @@ -40,7 +40,7 @@ | |||
| 40 | (let ((description (make-char-table 'case-table))) | 40 | (let ((description (make-char-table 'case-table))) |
| 41 | (map-char-table | 41 | (map-char-table |
| 42 | (function (lambda (key value) | 42 | (function (lambda (key value) |
| 43 | (set-case-table-range | 43 | (set-char-table-range |
| 44 | description key | 44 | description key |
| 45 | (cond ((null key) | 45 | (cond ((null key) |
| 46 | "case-invariant") | 46 | "case-invariant") |