diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-07 19:11:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-07 19:11:40 +0000 |
| commit | 4536d48457b2e2c448eead9ade2b2694f1bcf2c1 (patch) | |
| tree | 3523bd7fb01eb3d5f0f6e67b2902133d0f9a547a /lisp/case-table.el | |
| parent | 6715fb4824ecf687567d1c95d63c8a04cdc356b3 (diff) | |
| download | emacs-4536d48457b2e2c448eead9ade2b2694f1bcf2c1.tar.gz | |
(describe-buffer-case-table): Merge locals i and ch.
Make *Help* current buffer for describe-vector.
Diffstat (limited to 'lisp/case-table.el')
| -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 @@ (interactive) (let ((vector (make-vector 256 nil)) (case-table (current-case-table)) - (i 0)) - (while (< i 256) - (aset vector i + (ch 0)) + (while (< ch 256) + (aset vector ch (cond ((/= ch (downcase ch)) (concat "uppercase, matches " (text-char-description (downcase ch)))) @@ -49,9 +49,11 @@ (concat "lowercase, matches " (text-char-description (upcase ch)))) (t "case-invariant"))) - (setq i (1+ i))) - (with-output-to-temp-buffer "*Help*" - (describe-vector vector)))) + (setq ch (1+ ch))) + (save-excursion + (with-output-to-temp-buffer "*Help*" + (set-buffer standard-output) + (describe-vector vector))))) ;;;###autoload (defun set-case-syntax-delims (l r table) |