diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
| commit | 4f91a8160fe71295b7ad4d6e3f90f004caa3546c (patch) | |
| tree | c0f3f767b785559ee0387e7cfb54a2a1aa06bcd5 /lisp/calculator.el | |
| parent | 782fc81943849d699d74c3039be80d4068bb3422 (diff) | |
| download | emacs-4f91a8160fe71295b7ad4d6e3f90f004caa3546c.tar.gz | |
Don't quote lambda expressions with `quote'.
Diffstat (limited to 'lisp/calculator.el')
| -rw-r--r-- | lisp/calculator.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el index 45ed699c4f5..2cc7f5f6569 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -198,11 +198,11 @@ For example, use this to define the golden ratio number: (setq calculator-user-registers '((?g . 1.61803398875))) before you load calculator." :type '(repeat (cons character number)) - :set '(lambda (_ val) - (and (boundp 'calculator-registers) - (setq calculator-registers - (append val calculator-registers))) - (setq calculator-user-registers val)) + :set (lambda (_ val) + (and (boundp 'calculator-registers) + (setq calculator-registers + (append val calculator-registers))) + (setq calculator-user-registers val)) :group 'calculator) (defcustom calculator-user-operators nil @@ -482,7 +482,7 @@ Used for repeating operations in calculator-repR/L.") ["Electric mode" (progn (calculator-quit) (setq calculator-restart-other-mode t) - (run-with-timer 0.1 nil '(lambda () (message nil))) + (run-with-timer 0.1 nil (lambda () (message nil))) ;; the message from the menu will be visible, ;; couldn't make it go away... (calculator)) @@ -706,7 +706,7 @@ See the documentation for `calculator-mode' for more information." (Electric-command-loop 'calculator-done ;; can't use 'noprompt, bug in electric.el - '(lambda () 'noprompt) + (lambda () 'noprompt) nil (lambda (x y) (calculator-update-display)))) (and calculator-buffer |