From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 22 Dec 1997 21:47:18 +0000 (+0000)
Subject: (view-register): Show register type file-query.
X-Git-Tag: emacs-20.3~2563
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eab0fb012651fb83c51545dc3902fa98909a7447;p=emacs.git

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

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