kmu-key-description: cosmetics

tarsius · Mar 14, 2014 · dd7d19d · dd7d19d
1 parent 48b92d1
commit dd7d19d
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/keymap-utils.el b/keymap-utils.el
@@ -244,9 +244,7 @@ For an approximate inverse of this, see `kmu-edmacro-parse-keys'."
       (let ((s (naked-key-description keys)))
         ;; Merge ESC into following event.
         (while (and (string-match "\\(ESC \\([ACHsS]-\\)*\\([^ ]+\\)\\)" s)
-                    (save-match-data
-                      (not (string-match "\\(ESC\\|M-\\)"
-                                         (match-string 3 s)))))
+                    (not (string-match-p "\\(ESC\\|M-\\)" (match-string 3 s))))
           (setq s (replace-match "\\2M-\\3" t nil s 1)))
         s))))