diff options
| -rw-r--r-- | lisp/case-table.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el index 09cf1f56eaa..8160ede55cd 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el | |||
| @@ -39,9 +39,9 @@ | |||
| 39 | (interactive) | 39 | (interactive) |
| 40 | (let ((vector (make-vector 256 nil)) | 40 | (let ((vector (make-vector 256 nil)) |
| 41 | (case-table (current-case-table)) | 41 | (case-table (current-case-table)) |
| 42 | (i 0)) | 42 | (ch 0)) |
| 43 | (while (< i 256) | 43 | (while (< ch 256) |
| 44 | (aset vector i | 44 | (aset vector ch |
| 45 | (cond ((/= ch (downcase ch)) | 45 | (cond ((/= ch (downcase ch)) |
| 46 | (concat "uppercase, matches " | 46 | (concat "uppercase, matches " |
| 47 | (text-char-description (downcase ch)))) | 47 | (text-char-description (downcase ch)))) |
| @@ -49,9 +49,11 @@ | |||
| 49 | (concat "lowercase, matches " | 49 | (concat "lowercase, matches " |
| 50 | (text-char-description (upcase ch)))) | 50 | (text-char-description (upcase ch)))) |
| 51 | (t "case-invariant"))) | 51 | (t "case-invariant"))) |
| 52 | (setq i (1+ i))) | 52 | (setq ch (1+ ch))) |
| 53 | (with-output-to-temp-buffer "*Help*" | 53 | (save-excursion |
| 54 | (describe-vector vector)))) | 54 | (with-output-to-temp-buffer "*Help*" |
| 55 | (set-buffer standard-output) | ||
| 56 | (describe-vector vector))))) | ||
| 55 | 57 | ||
| 56 | ;;;###autoload | 58 | ;;;###autoload |
| 57 | (defun set-case-syntax-delims (l r table) | 59 | (defun set-case-syntax-delims (l r table) |