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 @@ ...@@ -39,9 +39,9 @@
(interactive) (interactive)
(let ((vector (make-vector 256 nil)) (let ((vector (make-vector 256 nil))
(case-table (current-case-table)) (case-table (current-case-table))
(i 0)) (ch 0))
(while (< i 256) (while (< ch 256)
(aset vector i (aset vector ch
(cond ((/= ch (downcase ch)) (cond ((/= ch (downcase ch))
(concat "uppercase, matches " (concat "uppercase, matches "
(text-char-description (downcase ch)))) (text-char-description (downcase ch))))
...@@ -49,9 +49,11 @@ ...@@ -49,9 +49,11 @@
(concat "lowercase, matches " (concat "lowercase, matches "
(text-char-description (upcase ch)))) (text-char-description (upcase ch))))
(t "case-invariant"))) (t "case-invariant")))
(setq i (1+ i))) (setq ch (1+ ch)))
(with-output-to-temp-buffer "*Help*" (save-excursion
(describe-vector vector)))) (with-output-to-temp-buffer "*Help*"
(set-buffer standard-output)
(describe-vector vector)))))
;;;###autoload ;;;###autoload
(defun set-case-syntax-delims (l r table) (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