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

Extra patch when understood the keymap.

parent 12da63be
...@@ -751,7 +751,17 @@ BUG: does not descend in the maps." ...@@ -751,7 +751,17 @@ BUG: does not descend in the maps."
(while (< r (length (car (cdr newmap)))) (while (< r (length (car (cdr newmap))))
(if (aref (car (cdr newmap)) r) (if (aref (car (cdr newmap)) r)
(define-key map (char-to-string r) (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) ((arrayp newmap)
(while (< r (length newmap)) (while (< r (length newmap))
(if (aref newmap r) (if (aref newmap r)
......
Supports Markdown
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