Fix: mc/dump-list loosing old setting

This commit is contained in:
Takafumi Arakaki 2012-11-24 23:27:46 +01:00
parent bc8af45bfe
commit fa753aa587

View File

@ -513,9 +513,11 @@ for running commands with multiple cursors.")
(insert "(setq " (symbol-name list-symbol) "\n"
" '(")
(newline-and-indent)
(mapc #'(lambda (cmd) (insert (format "%S" cmd)) (newline-and-indent))
(set list-symbol
(sort value (lambda (x y) (string-lessp (symbol-name x)
(symbol-name y)))))
(mapc #'(lambda (cmd) (insert (format "%S" cmd)) (newline-and-indent))
value)
(insert "))")
(newline)))