Commit 46992abc authored by David Kågedal's avatar David Kågedal
Browse files

* option-edit.el (lyskom-widget-command-action): Gör inte car-safe

på svaret från lyskom-read-extended-command.
(lyskom-widget-command-value-create): Använd lyskom-get-string för
att hitta namn på kommandon.
parent 35caaaef
......@@ -747,10 +747,9 @@ customize buffer but do not save them to the server."
(defun lyskom-widget-command-action (widget &optional event)
(widget-value-set widget
(car-safe
(save-excursion
(set-buffer lyskom-buffer)
(lyskom-read-extended-command))))
(save-excursion
(set-buffer lyskom-buffer)
(lyskom-read-extended-command)))
(widget-setup))
(defun lyskom-widget-command-value-create (widget)
......@@ -760,8 +759,7 @@ customize buffer but do not save them to the server."
(string (save-excursion
(set-buffer lyskom-buffer)
(cond ((null value) "")
(t (or (cdr-safe
(assq value lyskom-commands))
(t (or (lyskom-get-string value 'lyskom-command)
(lyskom-format
(lyskom-custom-string 'unknown-command)
(symbol-name value))))))))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment