Mercurial > hg > xemacs-beta

diff lisp/register.el @ 255:084402c475ba r20-5b26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b26
author cvs
date Mon, 13 Aug 2007 10:21:18 +0200
parents 262b8bb4a523
children c5d627a313b1
line wrap: on
line diff
--- a/lisp/register.el	Mon Aug 13 10:20:29 2007 +0200
+++ b/lisp/register.el	Mon Aug 13 10:21:18 2007 +0200
@@ -194,6 +194,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