mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1997-12-22 21:47:18 +00:00
parent 5c2010f05d
commit eab0fb0126
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/register.el
View File

@ -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