Mercurial > emacs
changeset 28310:9ba6478b7a27
(hook): Use `dolist' instead of CL's `mapc'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 26 Mar 2000 00:12:35 +0000 |
| parents | 9c8f8c3fb131 |
| children | f6e879f6db8a |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Sat Mar 25 12:37:51 2000 +0000 +++ b/lisp/cus-edit.el Sun Mar 26 00:12:35 2000 +0000 @@ -2940,10 +2940,9 @@ ;; things like `find-file-hook' or even more basic ones, to avoid ;; chaos. :set (lambda (symbol value) - (mapc (lambda (elt) - (if (fboundp elt) - (add-hook symbol elt))) - value)) + (dolist (elt value) + (if (fboundp elt) + (add-hook symbol elt)))) :convert-widget 'custom-hook-convert-widget :tag "Hook")