diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2017-08-08 15:10:49 -0400 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-08-08 15:10:49 -0400 |
| commit | 63b5a4a65eec5792b985c9d6be68424731bd478d (patch) | |
| tree | bce03c0669c7c7cde230a87b499a63f802720c67 /lisp/calendar | |
| parent | 884d43b43eb51fe91c657ed0780cf85d31522248 (diff) | |
| download | emacs-63b5a4a65eec5792b985c9d6be68424731bd478d.tar.gz | |
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.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/calendar.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 84282209ddd..1d6749319d8 100644 --- 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 |