Mercurial > emacs
comparison lisp/autoinsert.el @ 84857:03c05458c97e
(auto-insert): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 25 Sep 2007 10:42:46 +0000 |
| parents | b98604865ea0 |
| children | 76282b9aa263 |
comparison
equal
deleted
inserted
replaced
| 84856:2b87e65c55a0 | 84857:03c05458c97e |
|---|---|
| 270 (if auto-insert-query | 270 (if auto-insert-query |
| 271 (or (if (eq auto-insert-query 'function) | 271 (or (if (eq auto-insert-query 'function) |
| 272 (eq this-command 'auto-insert)) | 272 (eq this-command 'auto-insert)) |
| 273 (y-or-n-p (format auto-insert-prompt desc))) | 273 (y-or-n-p (format auto-insert-prompt desc))) |
| 274 t) | 274 t) |
| 275 (mapcar | 275 (mapc |
| 276 (lambda (action) | 276 (lambda (action) |
| 277 (if (stringp action) | 277 (if (stringp action) |
| 278 (if (file-readable-p | 278 (if (file-readable-p |
| 279 (setq action (concat auto-insert-directory action))) | 279 (setq action (concat auto-insert-directory action))) |
| 280 (insert-file-contents action)) | 280 (insert-file-contents action)) |