From 3b22dbcd5a09f629e7b20eb3d94b8f7f859e3ea9 Mon Sep 17 00:00:00 2001
From: Phil Jackson <phil@shellarchive.co.uk>
Date: Wed, 1 Sep 2010 10:21:50 +0100
Subject: [PATCH] Concat -> format.

---
 magit-key-mode.el | 28 ++++++++++------------------
 1 file changed, 10 insertions(+), 18 deletions(-)

diff --git a/magit-key-mode.el b/magit-key-mode.el
index 0cec41c3..22a6b707 100644
--- a/magit-key-mode.el
+++ b/magit-key-mode.el
@@ -324,37 +324,29 @@ put it in magit-key-mode-key-maps for fast lookup."
     (insert "Actions:\n")
     (dolist (action actions)
       (insert
-       (concat " " (car action) ": " (nth 1 action) "\n")))
+       (format " %s: %s\n" (car action) (nth 1 action))))
     (when switches
       (insert "Switches:\n")
       (dolist (switch switches)
         (let ((option (nth 2 switch)))
           (insert
-           (concat
-            " "
-            (car switch)
-            ": "
-            (nth 1 switch)
-            " ("
-            (if (member option magit-key-mode-current-options)
-                (propertize option 'font-lock-face 'font-lock-warning-face)
-              option)
-            ")\n")))))
+           (format " %s: %s (%s)\n"
+                   (car switch)
+                   (nth 1 switch)
+                   (if (member option magit-key-mode-current-options)
+                       (propertize option
+                                   'font-lock-face 'font-lock-warning-face)
+                     option))))))
     (when arguments
       (insert "Arguments:\n")
       (dolist (argument arguments)
         (insert
-         (concat
-          " "
+         (format " %s: (%s) %s\n"
           (car argument)
-          ": "
           (nth 1 argument)
-          " ("
           (nth 2 argument)
-          ") "
           (propertize
            (gethash (nth 2 argument) magit-key-mode-current-args "")
-           'font-lock-face 'widget-field)
-          "\n"))))))
+           'font-lock-face 'widget-field)))))))
 
 (provide 'magit-key-mode)