changeset 1625:376427dea90a

* bytecomp.el: Declare unread-command-char an obsolete variable. * vip.el (vip-escape-to-emacs, vip-prefix-arg-value, vip-prefix-arg-com): Use unread-command-event instead of unread-command-char; respect its new semantics. * vip.el (vip-delete-char, vip-delete-backward-char, ex-delete): Don't pass nil as a fourth argument to vip-append-to-register; it takes only three. (vip-mark-point, ex-mark): Pass required second argument to point-to-register.

--- a/lisp/emulation/vip.el	Mon Nov 16 01:43:53 1992 +0000
+++ b/lisp/emulation/vip.el	Mon Nov 16 01:44:33 1992 +0000
@@ -333,9 +333,9 @@
 CHAR is given it becomes the first character of the command."
   (interactive "P")
   (let (com (buff (current-buffer)) (first t))
-    (if char (setq unread-command-char char))
+    (if char (setq unread-command-event char))
     (setq prefix-arg arg)
-    (while (or first (>= unread-command-char 0))
+    (while (or first unread-command-event)
       ;; this while loop is executed until unread command char will be
       ;; exhausted.
       (setq first nil)
@@ -393,7 +393,7 @@
   (while (= char ?U)
     (vip-describe-arg prefix-arg)
     (setq char (read-char)))
-  (setq unread-command-char char))
+  (setq unread-command-event char))
 
 (defun vip-prefix-arg-com (char value com)
   "Vi operator as prefix argument."
@@ -447,7 +447,7 @@
 	(while (= char ?U)
 	  (vip-describe-arg prefix-arg)
 	  (setq char (read-char)))
-	(setq unread-command-char char))
+	(setq unread-command-event char))
     ;; as com is non-nil, this means that we have a command to execute
     (if (or (= (car com) ?r) (= (car com) ?R))
 	;; execute apropriate region command.
@@ -1708,7 +1708,7 @@
 	(progn
 	  (if (and (<= ?A vip-use-register) (<= vip-use-register ?Z))
 	      (vip-append-to-register
-	       (+ vip-use-register 32) (point) (- (point) val) nil)
+	       (+ vip-use-register 32) (point) (- (point) val))
 	    (copy-to-register vip-use-register (point) (- (point) val) nil))
 	  (setq vip-use-register nil)))
     (delete-char val t)))
@@ -1722,7 +1722,7 @@
 	(progn
 	  (if (and (<= ?A vip-use-register) (<= vip-use-register ?Z))
 	      (vip-append-to-register
-	       (+ vip-use-register 32) (point) (+ (point) val) nil)
+	       (+ vip-use-register 32) (point) (+ (point) val))
 	    (copy-to-register vip-use-register (point) (+ (point) val) nil))
 	  (setq vip-use-register nil)))
     (delete-backward-char val t)))
@@ -1806,7 +1806,7 @@
 (defun vip-mark-point (char)
   (interactive "c")
   (cond ((and (<= ?a char) (<= char ?z))
-	 (point-to-register (- char (- ?a ?\C-a))))
+	 (point-to-register (- char (- ?a ?\C-a)) nil))
 	((= char ?<) (vip-mark-beginning-of-buffer))
 	((= char ?>) (vip-mark-end-of-buffer))
 	((= char ?.) (push-mark))
@@ -2676,7 +2676,7 @@
 	(if ex-buffer
 	    (if (and (<= ?A ex-buffer) (<= ex-buffer ?Z))
 		(vip-append-to-register
-		 (+ ex-buffer 32) (point) (mark) nil)
+		 (+ ex-buffer 32) (point) (mark))
 	      (copy-to-register ex-buffer (point) (mark) nil)))
 	(delete-region (point) (mark))))))
 
@@ -2828,7 +2828,7 @@
 	  (error "Mark must specify a letter"))))
     (save-excursion
       (goto-char (car ex-addresses))
-      (point-to-register (- char (- ?a ?\C-a))))))
+      (point-to-register (- char (- ?a ?\C-a)) nil))))
 
 (defun ex-map ()
   "ex map"