diff options
| author | Juanma Barranquero | 2007-09-25 11:13:24 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-09-25 11:13:24 +0000 |
| commit | 9ca2204bbdb8b7883d89563e51ca6385a6d78a7e (patch) | |
| tree | d332127aa9c3e89f74dc8e509de7bbad65f6a115 | |
| parent | 81ce287c3374d5806c68dfc12e4c4f50dd18aefa (diff) | |
| download | emacs-9ca2204bbdb8b7883d89563e51ca6385a6d78a7e.tar.gz emacs-9ca2204bbdb8b7883d89563e51ca6385a6d78a7e.zip | |
(clone-buffer): Use `mapc' rather than `mapcar'.
| -rw-r--r-- | lisp/simple.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 1a100fa7bff..182c96ca44d 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -5548,13 +5548,13 @@ after it has been set up properly in other respects." | |||
| 5548 | (funcall mode) | 5548 | (funcall mode) |
| 5549 | 5549 | ||
| 5550 | ;; Set up other local variables. | 5550 | ;; Set up other local variables. |
| 5551 | (mapcar (lambda (v) | 5551 | (mapc (lambda (v) |
| 5552 | (condition-case () ;in case var is read-only | 5552 | (condition-case () ;in case var is read-only |
| 5553 | (if (symbolp v) | 5553 | (if (symbolp v) |
| 5554 | (makunbound v) | 5554 | (makunbound v) |
| 5555 | (set (make-local-variable (car v)) (cdr v))) | 5555 | (set (make-local-variable (car v)) (cdr v))) |
| 5556 | (error nil))) | 5556 | (error nil))) |
| 5557 | lvars) | 5557 | lvars) |
| 5558 | 5558 | ||
| 5559 | ;; Run any hooks (typically set up by the major mode | 5559 | ;; Run any hooks (typically set up by the major mode |
| 5560 | ;; for cloning to work properly). | 5560 | ;; for cloning to work properly). |