Commit 4536d484 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(describe-buffer-case-table): Merge locals i and ch.

Make *Help* current buffer for describe-vector.
parent 6715fb48
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment