(view-register): Handle file name values.

1 files changed, 6 insertions, 1 deletions

diff --git a/lisp/register.el b/lisp/register.el
index bae40ee165c..91ef6c40423 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -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