Commit eab0fb01 authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent 5c2010f0
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment