Replace some uses of eval

There are a number of places where eval is used unnecessarily to get
or set the value of a symbol.
* lisp/calendar/calendar.el (diary-date-forms): Use default-value in
custom setter.
* lisp/desktop.el (desktop-clear): Use set-default instead.
* lisp/international/ogonek.el (ogonek-read-encoding): Use
symbol-value.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 84282209dddc45385aec031cf43627a0e1708a21..1d6749319d8004085d32b0c776edb1befc4e2918 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -835,7 +835,7 @@ For examples of three common styles, see `diary-american-date-forms',
                                    diary-american-date-forms)
   :initialize 'custom-initialize-default
   :set (lambda (symbol value)
-         (unless (equal value (eval symbol))
+         (unless (equal value (default-value symbol))
            (custom-set-default symbol value)
            (setq diary-font-lock-keywords (diary-font-lock-keywords))
            ;; Need to redraw not just to get new font-locking, but also

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 540d0e3b11d5a8430ae8c373be87466265e00bbe..a2260ba490d743ebe2f1977c57634954150a78fb 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -709,8 +709,8 @@ if different)."
   (setq desktop-io-file-version nil)
   (dolist (var desktop-globals-to-clear)
     (if (symbolp var)
-       (eval `(setq-default ,var nil))
-      (eval `(setq-default ,(car var) ,(cdr var)))))
+       (set-default var nil)
+      (set-default var (eval (cdr var)))))
   (let ((preserve-regexp (concat "^\\("
                                  (mapconcat (lambda (regexp)
                                               (concat "\\(" regexp "\\)"))

diff --git a/lisp/international/ogonek.el b/lisp/international/ogonek.el
index ef3a980f19a7ed1764f059d7973bc4a16b3931b0..cabcf90078a2279548a9c24e71d036a2eba1f69f 100644 (file)
--- a/lisp/international/ogonek.el
+++ b/lisp/international/ogonek.el
@@ -301,13 +301,12 @@ Store the name in the parameter-variable DEFAULT-NAME-VAR.
 PROMPT is a string to be shown when the user is asked for a name."
  (let ((encoding
         (completing-read
-         (format "%s (default %s): " prompt (eval default-name-var))
+         (format "%s (default %s): " prompt (symbol-value default-name-var))
          ogonek-name-encoding-alist nil t)))
-  ;; change the default name to the one just read
-  (set default-name-var
-    (if (string= encoding "") (eval default-name-var) encoding))
+  ;; change the default name to the one just read, and
   ;; return the new default as the name you read
-  (eval default-name-var)))
+  (set default-name-var
+    (if (string= encoding "") (symbol-value default-name-var) encoding))))
 
 (defun ogonek-read-prefix (prompt default-prefix-var)
   "Read a prefix character for prefix notation.