Mercurial > emacs
comparison lisp/register.el @ 20511:9a051580fa02
(view-register): Show register type file-query.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 22 Dec 1997 21:47:18 +0000 |
| parents | 1b4c829e2f42 |
| children | 483ae4df691a |
comparison
equal
deleted
inserted
replaced
| 20510:d175ee25287e | 20511:9a051580fa02 |
|---|---|
| 193 ((and (consp val) (eq (car val) 'file)) | 193 ((and (consp val) (eq (car val) 'file)) |
| 194 (princ "the file ") | 194 (princ "the file ") |
| 195 (prin1 (cdr val)) | 195 (prin1 (cdr val)) |
| 196 (princ ".")) | 196 (princ ".")) |
| 197 | 197 |
| 198 ((and (consp val) (eq (car val) 'file-query)) | |
| 199 (princ "a file-query reference:\nfile ") | |
| 200 (prin1 (car (cdr val))) | |
| 201 (princ ",\nposition ") | |
| 202 (princ (car (cdr (cdr val)))) | |
| 203 (princ ".")) | |
| 204 | |
| 198 ((consp val) | 205 ((consp val) |
| 199 (princ "the rectangle:\n") | 206 (princ "the rectangle:\n") |
| 200 (while val | 207 (while val |
| 201 (princ (car val)) | 208 (princ (car val)) |
| 202 (terpri) | 209 (terpri) |