Commit 54c13ad2 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

Extra patch when understood the keymap.

parent 12da63be
......@@ -751,7 +751,17 @@ BUG: does not descend in the maps."
(while (< r (length (car (cdr newmap))))
(if (aref (car (cdr newmap)) r)
(define-key map (char-to-string r) (aref (car (cdr newmap)) r)))
(setq r (1+ r))))
(setq r (1+ r)))
(mapcar
(function
(lambda (ele)
(define-key map
(cond
((integerp (car ele))
(char-to-string (car ele)))
((vector (car ele))))
(cdr ele))))
(cdr (cdr newmap))))
((arrayp newmap)
(while (< r (length newmap))
(if (aref newmap r)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment