upstream

[gnu-emacs] / lisp / register.el

diff --git a/lisp/register.el b/lisp/register.el
index 82a0cf33c3e0be7099c567ad9b81a79f1ca665c7..44f15e4a69c0cdbd35b285ab6b6f9425f8147ec3 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -1,6 +1,6 @@
 ;;; register.el --- register commands for Emacs
 
-;; Copyright (C) 1985, 1993-1994, 2001-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1993-1994, 2001-2012 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: internal
@@ -70,7 +70,7 @@
 DATA can be any value.
 PRINT-FUNC if provided controls how `list-registers' and
 `view-register' print the register.  It should be a function
-recieving one argument DATA and print text that completes
+receiving one argument DATA and print text that completes
 this sentence:
   Register X contains [TEXT PRINTED BY PRINT-FUNC]
 JUMP-FUNC if provided, controls how `jump-to-register' jumps to the register.
@@ -329,6 +329,8 @@ Interactively, second arg is non-nil if prefix arg is supplied."
               "Don't know how to insert register %s"
               (single-key-description register))
       (funcall (registerv-insert-func val) (registerv-data val)))
+     ((consp val)
+      (insert-rectangle val))
      ((stringp val)
       (insert-for-yank val))
      ((numberp val)