diff options
| author | Stefan Monnier | 2000-08-16 20:54:44 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-08-16 20:54:44 +0000 |
| commit | 7a3ec18a3cac2da58be8829807839f8f6ebaff8f (patch) | |
| tree | 8c6279e2c6c85c82d1748eb6047bd8c2c15906b5 | |
| parent | 057ab2946f2ae14fe092c93e3babc1bf1874137a (diff) | |
| download | emacs-7a3ec18a3cac2da58be8829807839f8f6ebaff8f.tar.gz emacs-7a3ec18a3cac2da58be8829807839f8f6ebaff8f.zip | |
(Edit-options-{set,toggle,t,nil}): Don't quote lambda.
| -rw-r--r-- | lisp/options.el | 8 |
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 |