Sort before saving list in mc/save-lists

This commit is contained in:
Takafumi Arakaki 2012-10-03 18:50:29 +02:00
parent 00f905549e
commit f4d5aea860

View File

@ -486,7 +486,8 @@ for running commands with multiple cursors.")
" '(")
(newline-and-indent)
(mapc #'(lambda (cmd) (insert (format "%S" cmd)) (newline-and-indent))
value)
(sort value (lambda (x y) (string-lessp (symbol-name x)
(symbol-name y)))))
(insert "))")
(newline)))