Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
a1a17752
Commit
a1a17752
authored
Oct 08, 1996
by
Niels Möller
Browse files
* language.el (lyskom-get-string) Bantade cond-konstruktionen,
parent
9026ab5b
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/language.el
View file @
a1a17752
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment