Commit a1a17752 authored by Niels Möller's avatar Niels Möller
Browse files

* language.el (lyskom-get-string) Bantade cond-konstruktionen,

parent 9026ab5b
......@@ -26,14 +26,10 @@ create. ALIST is a mapping from symbols to strings."
(defun lyskom-get-string (symbol &optional category)
"Returns string assiciated with SYMBOL"
(if (not category) (setq category 'message))
(let ((prop (cond ((eq category 'command)
(get symbol 'lyskom-command))
((eq category 'menu)
(or (get symbol 'lyskom-menu)
(get symbol 'lyskom-command)))
((eq category 'message)
(get symbol 'lyskom-message))
(t nil))))
(let ((prop (if (eq category 'menu)
(or (get symbol 'lyskom-menu)
(get symbol 'lyskom-command))
(get symbol (cdr (assq category lyskom-category-properties))))))
(or (cdr (assq lyskom-language prop))
(signal 'lyskom-internal-error
(list 'lyskom-get-string
......
Markdown is supported
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