Commits

michaels  committed 3ef173c

Case-table fixes as per <y9lg0qtphri.fsf@informatik.uni-tuebingen.de> on xemacs-patches.

  • Participants
  • Parent commits c88c5ba

Comments (0)

Files changed (2)

+2000-06-04  Mike Sperber <mike@xemacs.org>
+
+	* case-table.el (describe-buffer-case-table): Fix to use case
+	tables of actual buffer in question.
+
 2000-06-05  Ben Wing  <ben@xemacs.org>
 
 	* macros.el (assign-last-kbd-macro-to-key): new function;

File case-table.el

 (defun describe-buffer-case-table ()
   "Describe the case table of the current buffer."
   (interactive)
-  (let ((ch 0))
+  (let ((buffer (current-buffer))
+	(ch 0))
     (with-displaying-help-buffer
      (lambda ()
        (set-buffer standard-output)
        (while (< ch 256)
-         (cond ((/= ch (downcase ch))
-                (insert (text-char-description ch))
-                (indent-to 16)
-                (insert "uppercase, matches "
-                        (text-char-description (downcase ch))
-                        "\n"))
-               ((/= ch (upcase ch))
-                (insert (text-char-description ch))
-                (indent-to 16)
-                (insert "lowercase, matches "
-                        (text-char-description (upcase ch))
-                        "\n"))
-;;	      (t
-;;	       (insert (text-char-description ch))
-;;	       (indent-to 16)
-;;	       (insert "case-invariant\n"))
-	      )
-         (setq ch (1+ ch)))))))
+	 (cond ((/= ch (downcase ch buffer))
+		(insert (text-char-description ch))
+		(indent-to 16)
+		(insert "uppercase, matches "
+			(text-char-description (downcase ch))
+			"\n"))
+	       ((/= ch (upcase ch buffer))
+		(insert (text-char-description ch))
+		(indent-to 16)
+		(insert "lowercase, matches "
+			(text-char-description (upcase ch))
+			"\n"))
+	       ;;	      (t
+	       ;;	       (insert (text-char-description ch))
+	       ;;	       (indent-to 16)
+	       ;;	       (insert "case-invariant\n"))
+	       )
+	 (setq ch (1+ ch)))))))
 
 (defun invert-case (count)
   "Change the case of the character just after point and move over it.