Commit 1536f2c6 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(lyskom-maybe-setq): Added missing commas: we want to use the supplied

	arguments, not the symbols "var" and "value".
(lyskom-maybe-setq-default): Ditto.
parent 70ecabee
2002-05-25 Per Cederqvist <ceder@ceder.dyndns.org>
* vars.el.in (lyskom-maybe-setq): Added missing commas: we want to
use the supplied arguments, not the symbols "var" and "value".
(lyskom-maybe-setq-default): Ditto.
2002-05-24 David Kgedal <davidk@lysator.liu.se>
* startup.el (kom-start-anew): Don't reset the default
......
......@@ -105,15 +105,15 @@ are in the list.")
"This is a wrapper around setq that does nothing
if the variable is in kom-dont-read-saved-variables."
`(cond ((eq kom-dont-read-saved-variables t) nil)
((memq var kom-dont-read-saved-variables) nil)
(t (set var (eval value)))))
((memq ,var kom-dont-read-saved-variables) nil)
(t (set ,var (eval ,value)))))
(defmacro lyskom-maybe-setq-default (var value)
"This is a wrapper around setq-default that does nothing
if the variable is in kom-dont-read-saved-variables."
`(cond ((eq kom-dont-read-saved-variables t) nil)
((memq var kom-dont-read-saved-variables) nil)
(t (set-default var (eval value)))))
((memq ,var kom-dont-read-saved-variables) nil)
(t (set-default ,var (eval ,value)))))
;;;; ================================================================
......
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