31 |
|
|
32 |
(defalias 'current-time-seconds 'current-time) |
(defalias 'current-time-seconds 'current-time) |
33 |
|
|
34 |
|
;; In case cl-map-keymap is an alias for map-keymap, avoid circular calls. |
35 |
|
(fset 'cl-map-keymap (indirect-function 'cl-map-keymap)) |
36 |
|
|
37 |
(defun map-keymap (function keymap &optional sort-first) |
(defun map-keymap (function keymap &optional sort-first) |
38 |
"Call FUNCTION for every binding in KEYMAP. |
"Call FUNCTION for every binding in KEYMAP. |
39 |
This does not include bindings inherited from a parent keymap. |
This does not include bindings inherited from a parent keymap. |