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 | add0dae4939ee9c60069752a212462c39cb514ae (patch) | |
| tree | 1f686a43710feddefe9513259b8a7eb81049613a /lisp | |
| parent | 7aa82fe00a1425650d3eeda7c4d8eff8e088112d (diff) | |
| download | emacs-add0dae4939ee9c60069752a212462c39cb514ae.tar.gz | |
(describe-buffer-case-table): Merge locals i and ch.
Make *Help* current buffer for describe-vector.
Diffstat (limited to 'lisp')
| -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) |