diff lisp/register.el @ 20511:9a051580fa02

(view-register): Show register type file-query.

--- a/lisp/register.el	Mon Dec 22 21:33:35 1997 +0000
+++ b/lisp/register.el	Mon Dec 22 21:47:18 1997 +0000
@@ -195,6 +195,13 @@
 	  (prin1 (cdr val))
 	  (princ "."))
 
+	 ((and (consp val) (eq (car val) 'file-query))
+	  (princ "a file-query reference:\nfile ")
+	  (prin1 (car (cdr val)))
+	  (princ ",\nposition ")
+	  (princ (car (cdr (cdr val))))
+	  (princ "."))
+
 	 ((consp val)
 	  (princ "the rectangle:\n")
 	  (while val