# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 721877597 0
# Node ID fc2b0405bd87650c366f079b3829858a6797a423
# Parent  5beb9d2bc959296e7cd1cf14e2ffe8825588f589
	* 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.
	* emerge.el (emerge-show-file-name): Same.

diff -r 5beb9d2bc959 -r fc2b0405bd87 lisp/emerge.el
--- a/lisp/emerge.el	Mon Nov 16 01:31:33 1992 +0000
+++ b/lisp/emerge.el	Mon Nov 16 01:33:17 1992 +0000
@@ -2065,7 +2065,7 @@
 Use C-u l to reset the windows afterward."
   (interactive)
   (delete-other-windows)
-  (let ((temp-buffer-show-hook
+  (let ((temp-buffer-show-function
 	 (function (lambda (buf)
 		     (split-window-vertically)
 		     (switch-to-buffer buf)
@@ -2476,9 +2476,9 @@
 		     ((= c ?b) 
 		      (insert-buffer-substring emerge-B-buffer B-begin B-end))
 		     ((= c ?%) 
-		      (insert ?%)
-		      (t
-		       (insert c)))))
+		      (insert ?%))
+		     (t
+		      (insert c))))
 	   (insert c)))
        (setq i (1+ i))))
    (goto-char merge-begin)
@@ -2910,7 +2910,7 @@
 	      (enlarge-window 1))
 	    (let ((c (read-char)))
 	      (if (/= c 32)
-		  (setq unread-command-char c))))))))
+		  (setq unread-command-event c))))))))
 
 ;; Improved auto-save file names.
 ;; This function fixes many problems with the standard auto-save file names: