# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 752771219 0
# Node ID 35e9402cb6bffb6bdbd2cf664b0022ab7dac3a13
# Parent  1f5c25761f2f40b69546dc3fe6106f1d5e6cf07a
(describe-current-display-table):
Don't get error if no display table now.
(describe-display-table): Put all the output in the temp buffer.

diff -r 1f5c25761f2f -r 35e9402cb6bf lisp/disp-table.el
--- a/lisp/disp-table.el	Mon Nov 08 15:01:44 1993 +0000
+++ b/lisp/disp-table.el	Mon Nov 08 15:06:59 1993 +0000
@@ -38,22 +38,27 @@
     (princ "\nSelective display glyph sequence: ")
     (prin1 (aref dt 260))
     (princ "\nCharacter display glyph sequences:\n")
-    (let ((vector (make-vector 256 nil))
-	  (i 0))
-      (while (< i 256)
-	(aset vector i (aref dt i))
-	(setq i (1+ i)))
-      (describe-vector vector))
+    (save-excursion
+      (set-buffer standard-output)
+      (let ((vector (make-vector 256 nil))
+	    (i 0))
+	(while (< i 256)
+	  (aset vector i (aref dt i))
+	  (setq i (1+ i)))
+	(describe-vector vector)))
     (print-help-return-message)))
 
 ;;;###autoload
 (defun describe-current-display-table ()
-   "Describe the display table in use in the selected window and buffer."
-   (interactive)
-   (describe-display-table
-    (or (window-display-table (selected-window))
-	buffer-display-table
-	standard-display-table)))
+  "Describe the display table in use in the selected window and buffer."
+  (interactive)
+  (let ((disptab
+	 (or (window-display-table (selected-window))
+	     buffer-display-table
+	     standard-display-table)))
+    (if disptab
+	(describe-display-table disptab)
+      (message "No display table"))))
 
 ;;;###autoload
 (defun make-display-table ()