Mercurial > emacs

changeset 14588:cf9a69c6ffdd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vip-event-key): previous change undone.
author Michael Kifer <kifer@cs.stonybrook.edu>
date Fri, 16 Feb 1996 21:51:41 +0000
parents 542db2bd7e38
children c1ca33c85944
files lisp/emulation/viper-util.el
diffstat 1 files changed, 1 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- 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)