From 4536d48457b2e2c448eead9ade2b2694f1bcf2c1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 7 Jun 1993 19:11:40 +0000 Subject: [PATCH] (describe-buffer-case-table): Merge locals i and ch. Make *Help* current buffer for describe-vector. --- lisp/case-table.el | 14 ++++++++------ 1 file 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)