equal
deleted
inserted
replaced
103 "Execute BODY; if an error occurs, return nil. |
103 "Execute BODY; if an error occurs, return nil. |
104 Otherwise, return result of last form in BODY." |
104 Otherwise, return result of last form in BODY." |
105 (declare (debug t) (indent 0)) |
105 (declare (debug t) (indent 0)) |
106 `(condition-case nil (progn ,@body) (error nil))) |
106 `(condition-case nil (progn ,@body) (error nil))) |
107 ) |
107 ) |
|
108 |
|
109 (defun my-lookup-key (key) |
|
110 "Search for KEY in all known keymaps." |
|
111 (mapatoms (lambda (ob) (when (and (boundp ob) (keymapp (symbol-value ob))) |
|
112 (when (lookup-key (symbol-value ob) key) |
|
113 (message "%S" ob)))) |
|
114 obarray)) |
108 |
115 |
109 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
116 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
110 (message "mode groups") |
117 (message "mode groups") |
111 |
118 |
112 (defmacro my-defun-rename-symb-tree (name doc func) |
119 (defmacro my-defun-rename-symb-tree (name doc func) |