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

1 files changed, 7 insertions, 0 deletions

diff --git a/lisp/register.el b/lisp/register.el
index eb0aa8107c2..0f9e5df36f5 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -195,6 +195,13 @@ The Lisp value REGISTER is a character."
           (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