# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 882827238 0
# Node ID 9a051580fa025ce128508d64795d22744691de39
# Parent  d175ee25287edca6212d102d7c8cdabe2fede398
(view-register): Show register type file-query.

diff -r d175ee25287e -r 9a051580fa02 lisp/register.el
--- 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