# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 732186120 0
# Node ID 12e9bc8a4a7f504253775d09dce8cdc3aa82bfe8
# Parent  081afcef5e85fc35d3272984c2936e39f42dc5f5
	* register.el (view-register): Neglect not to avoid failing to
	properly display all the possible sorts of things one might find
	in a buffer.

diff -r 081afcef5e85 -r 12e9bc8a4a7f lisp/register.el
--- a/lisp/register.el	Mon Mar 15 08:51:02 1993 +0000
+++ b/lisp/register.el	Mon Mar 15 09:02:00 1993 +0000
@@ -122,23 +122,36 @@
 	(princ "Register ")
 	(princ (single-key-description char))
 	(princ " contains ")
-	(if (integerp val)
-	    (princ val)
-	  (if (markerp val)
-	      (progn
-		(princ "a buffer position:\nbuffer ")
-		(princ (buffer-name (marker-buffer val)))
-		(princ ", position ")
-		(princ (+ 0 val)))
-	    (if (consp val)
-		(progn
-		  (princ "the rectangle:\n")
-		  (while val
-		    (princ (car val))
-		    (terpri)
-		    (setq val (cdr val))))
-	      (princ "the string:\n")
-	      (princ val))))))))
+	(cond
+	 ((integerp val)
+	  (princ val))
+
+	 ((markerp val)
+	  (princ "a buffer position:\nbuffer ")
+	  (princ (buffer-name (marker-buffer val)))
+	  (princ ", position ")
+	  (princ (+ 0 val)))
+
+	 ((window-configuration-p val)
+	  (princ "a window configuration."))
+
+	 ((frame-configuration-p val)
+	  (princ "a frame configuration."))
+
+	 ((consp val)
+	  (princ "the rectangle:\n")
+	  (while val
+	    (princ (car val))
+	    (terpri)
+	    (setq val (cdr val))))
+
+	 ((stringp val)
+	  (princ "the text:\n")
+	  (princ val))
+
+	 (t
+	  (princ "Garbage:\n")
+	  (prin1 val)))))))
 
 (defun insert-register (char &optional arg)
   "Insert contents of register REG.  REG is a character.