Mercurial > emacs
changeset 84878:c73290ec60ed
(clone-buffer): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 25 Sep 2007 11:13:24 +0000 |
| parents | 0cff28bd3f6b |
| children | 54aa4c1eb6d6 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue Sep 25 11:12:22 2007 +0000 +++ b/lisp/simple.el Tue Sep 25 11:13:24 2007 +0000 @@ -5548,13 +5548,13 @@ (funcall mode) ;; Set up other local variables. - (mapcar (lambda (v) - (condition-case () ;in case var is read-only - (if (symbolp v) - (makunbound v) - (set (make-local-variable (car v)) (cdr v))) - (error nil))) - lvars) + (mapc (lambda (v) + (condition-case () ;in case var is read-only + (if (symbolp v) + (makunbound v) + (set (make-local-variable (car v)) (cdr v))) + (error nil))) + lvars) ;; Run any hooks (typically set up by the major mode ;; for cloning to work properly).