aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2000-08-16 20:54:44 +0000
committerStefan Monnier2000-08-16 20:54:44 +0000
commit7a3ec18a3cac2da58be8829807839f8f6ebaff8f (patch)
tree8c6279e2c6c85c82d1748eb6047bd8c2c15906b5
parent057ab2946f2ae14fe092c93e3babc1bf1874137a (diff)
downloademacs-7a3ec18a3cac2da58be8829807839f8f6ebaff8f.tar.gz
emacs-7a3ec18a3cac2da58be8829807839f8f6ebaff8f.zip
(Edit-options-{set,toggle,t,nil}): Don't quote lambda.
-rw-r--r--lisp/options.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/options.el b/lisp/options.el
index 3697de1080c..de27ac60c3e 100644
--- a/lisp/options.el
+++ b/lisp/options.el
@@ -112,16 +112,16 @@ For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph]
112 112
113(defun Edit-options-set () (interactive) 113(defun Edit-options-set () (interactive)
114 (Edit-options-modify 114 (Edit-options-modify
115 '(lambda (var) (eval-minibuffer (concat "New " (symbol-name var) ": "))))) 115 (lambda (var) (eval-minibuffer (concat "New " (symbol-name var) ": ")))))
116 116
117(defun Edit-options-toggle () (interactive) 117(defun Edit-options-toggle () (interactive)
118 (Edit-options-modify '(lambda (var) (not (symbol-value var))))) 118 (Edit-options-modify (lambda (var) (not (symbol-value var)))))
119 119
120(defun Edit-options-t () (interactive) 120(defun Edit-options-t () (interactive)
121 (Edit-options-modify '(lambda (var) t))) 121 (Edit-options-modify (lambda (var) t)))
122 122
123(defun Edit-options-nil () (interactive) 123(defun Edit-options-nil () (interactive)
124 (Edit-options-modify '(lambda (var) nil))) 124 (Edit-options-modify (lambda (var) nil)))
125 125
126(defun Edit-options-modify (modfun) 126(defun Edit-options-modify (modfun)
127 (save-excursion 127 (save-excursion