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