[elpa] externals/ergoemacs-mode c53e573 056/325: Cleanup

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit c53e573c45afe8b8a639d6ded2eb2f886aefff7e
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    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))
+                                    )
+                        )
+                )
               )
             )
           )