mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(vip-event-key): previous change undone.

Browse Source
This commit is contained in:
Michael Kifer 1996-02-16 21:51:41 +00:00
parent df93b82b6f
commit bf04a50e58
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/emulation/viper-util.el
View File

@ -805,26 +805,16 @@ that Viper doesn't know about.")
((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)