;;; register.el --- register commands for Emacs.
-;; Copyright (C) 1985, 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1993, 1994 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: internal
Normally puts point before and mark after the inserted text.
If optional second arg is non-nil, puts mark before and point after.
Interactively, second arg is non-nil if prefix arg is supplied."
- (interactive "cInsert register: \nP")
+ (interactive "*cInsert register: \nP")
(push-mark)
(let ((val (get-register char)))
(cond