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

(view-register): Handle file name values.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-06-11 16:30:40 +00:00
parent 9ae8f99795
commit 6bfb792228
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/register.el
View File

@ -1,6 +1,6 @@
;;; register.el --- register commands for Emacs.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1993 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: internal
@ -152,6 +152,11 @@ REGISTER is a character."
((frame-configuration-p val)
(princ "a frame configuration."))
((and (consp val) (eq (car val) 'file))
(princ "the file ")
(prin1 (cdr val))
(princ "."))
((consp val)
(princ "the rectangle:\n")
(while val