# HG changeset patch
# User Michael Kifer <kifer@cs.stonybrook.edu>
# Date 824507501 0
# Node ID cf9a69c6ffdd032b5c0e32e7b84aa8cae38bd879
# Parent  542db2bd7e382904e49c91a2b964b4eccb0dadb3
(vip-event-key): previous change undone.

diff -r 542db2bd7e38 -r cf9a69c6ffdd lisp/emulation/viper-util.el
--- a/lisp/emulation/viper-util.el	Fri Feb 16 21:50:58 1996 +0000
+++ b/lisp/emulation/viper-util.el	Fri Feb 16 21:51:41 1996 +0000
@@ -805,26 +805,16 @@
 		  ((and (numberp event) (< ?\C-? event) (<= event 255))
 		   (setq mod '(meta)
 			 event (- event ?\C-? 1)))
-		  ;; If EVENT is a list, e.g., (switch-frame frame), we
-		  ;; ignore it, since we can't save this kind of events in a
-		  ;; textual form. In most cases, such events are created
-		  ;; unintentionally, and ignoring them is the right thing.
-		  ;; If an event of this kind was created intentionally during
-		  ;; macro definition---too bad.
-		  ((consp event) nil)
 		  (t (event-basic-type event)))
 	    )))
-    
     (if (numberp basis)
 	(setq basis
 	      (if (= basis ?\C-?)
 		  (list 'control '\?) ; taking care of an emacs bug
 		(intern (char-to-string basis)))))
-    
     (if mod
 	(append mod (list basis))
-      basis)
-    ))
+      basis)))
     
 (defun vip-key-to-emacs-key (key)
   (let (key-name char-p modifiers mod-char-list base-key base-key-name)