Commit 65012242 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(lyskom-read-options-eval): Use equal instead of = so that this

doesn't fail on user-areas who don't have the "elisp" and/or "common"
part.
parent 0e57383f
......@@ -328,7 +328,9 @@ If successful then set the buffer not-modified. Else print a warning."
(while (> (length lyskom-options-text) 2)
(setq working (lyskom-read-options-eval-get-holerith))
(cond
((= r common-no)
;; Note that common-no may be nil here, so the comparison
;; cannot be performed with '=.
((equal r common-no)
(let ((lyskom-options-text working)
name gname value)
(while (> (length lyskom-options-text) 2)
......@@ -346,7 +348,9 @@ If successful then set the buffer not-modified. Else print a warning."
(setq lyskom-global-non-boolean-variables
(cons name lyskom-global-non-boolean-variables))))
(lyskom-set-var-from-string name value))))
((= r elisp-no)
;; Note that elisp-no may be nil here, so the comparison
;; cannot be performed with '=.
((equal r elisp-no)
(let ((lyskom-options-text working)
name value)
(while (> (length lyskom-options-text) 2)
......
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