Mercurial > emacs

changeset 3550:0d8c66f2e25e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-buffer-case-table): Merge locals i and ch. Make *Help* current buffer for describe-vector.
author Richard M. Stallman <rms@gnu.org>
date Mon, 07 Jun 1993 19:11:40 +0000
parents a4d9c9bc3994
children 8b5fa2d1755f
files lisp/case-table.el
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/case-table.el	Mon Jun 07 18:48:08 1993 +0000
+++ b/lisp/case-table.el	Mon Jun 07 19:11:40 1993 +0000
@@ -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)