]> code.delx.au - gnu-emacs-elpa/commitdiff
yasnippet.el (yas--describe-pretty-table): Cleanup.
authorNoam Postavsky <npostavs@users.sourceforge.net>
Sat, 2 Apr 2016 14:38:05 +0000 (10:38 -0400)
committerNoam Postavsky <npostavs@users.sourceforge.net>
Sat, 2 Apr 2016 14:38:05 +0000 (10:38 -0400)
yasnippet.el

index 428770ceb527af8316f093dc0eac1859742c12b7..e2772b0674146287392f3eb660845c3373006269 100644 (file)
@@ -2731,19 +2731,17 @@ and `kill-buffer' instead."
                                         "(a)")))
                   (key-description-string (key-description (yas--template-keybinding p)))
                   (template-key-padding (if (string= key-description-string "") nil ? )))
-             (insert group " ")
-             (insert condition-string " ")
-             (insert name
-                     (if (string-match "\\.\\.\\.$" name)
-                         "'"
-                       " ")
-                     " ")
-             (insert (truncate-string-to-width (or (yas--template-key p) "")
+             (insert group " "
+                     condition-string " "
+                     name (if (string-match "\\.\\.\\.$" name)
+                              "'" " ")
+                     " "
+                     (truncate-string-to-width (or (yas--template-key p) "")
                                                15 0 template-key-padding "...")
-                     (if template-key-padding (byte-to-string template-key-padding) ""))
-             (insert (truncate-string-to-width key-description-string
-                                               15 0 nil "..."))
-             (insert "\n"))))
+                     (or template-key-padding "")
+                     (truncate-string-to-width key-description-string
+                                               15 0 nil "...")
+                     "\n"))))
      groups-hash)))