mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Make *Help* current buffer for describe-vector.
This commit is contained in:
Richard M. Stallman 1993-06-07 19:11:40 +00:00
parent 6715fb4824
commit 4536d48457
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/case-table.el
View file

@ -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)