branch: externals/ergoemacs-mode
commit c53e573c45afe8b8a639d6ded2eb2f886aefff7e
Author: Walter Landry <[email protected]>
Commit: Walter Landry <[email protected]>
Cleanup
---
ergoemacs-theme-engine.el | 23 ++++++++++++-----------
1 file changed, 12 insertions(+), 11 deletions(-)
diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el
index 9aa329c..8269411 100644
--- a/ergoemacs-theme-engine.el
+++ b/ergoemacs-theme-engine.el
@@ -645,17 +645,18 @@ See also `find-function-recenter-line' and
`find-function-after-hook'."
(dolist (cmds ergoemacs-theme-create-bash-functions)
(dolist (cmd cmds)
(dolist (key-cmd (where-is-internal cmd nil))
- (setq key-string (key-description key-cmd))
- ;; Only set up the Meta bindings, not the regular arrow or
- ;; Control bindings. That would require more complicated
- ;; logic to get right.
- (if (string-prefix-p "M-" key-string)
- (setq ret (concat ret "\n\"\\"
- (replace-regexp-in-string "M-" "e"
key-string t)
- "\": "
- (symbol-name (nth 0 cmds))
- )
- )
+ (let ((key-string (key-description key-cmd)))
+ ;; Only set up the Meta bindings, not the regular arrow or
+ ;; Control bindings. That would require more complicated
+ ;; logic to get right.
+ (if (string-prefix-p "M-" key-string)
+ (setq ret (concat ret "\n\"\\"
+ (replace-regexp-in-string "M-" "e"
key-string t)
+ "\": "
+ (symbol-name (nth 0 cmds))
+ )
+ )
+ )
)
)
)
