diff options
| author | Glenn Morris | 2007-10-29 07:30:06 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-10-29 07:30:06 +0000 |
| commit | 3fcff82f1f1f60050c36996df3760ac59806ea0b (patch) | |
| tree | 1a070acb6ac42ad41a384d9fbeaf9e9d521e0d2b | |
| parent | 4194f0a4703ce39e3f779c20cca009a25dde6421 (diff) | |
| download | emacs-3fcff82f1f1f60050c36996df3760ac59806ea0b.tar.gz emacs-3fcff82f1f1f60050c36996df3760ac59806ea0b.zip | |
(org-publish-get-plist-from-filename):
Use mapc rather than mapcar (reinstall change deleted without log
entry 2007-10-22).
| -rw-r--r-- | lisp/textmodes/org-publish.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/textmodes/org-publish.el b/lisp/textmodes/org-publish.el index 26dc409e19c..e98afaf4a6b 100644 --- a/lisp/textmodes/org-publish.el +++ b/lisp/textmodes/org-publish.el | |||
| @@ -426,7 +426,7 @@ nil if not found." | |||
| 426 | (defun org-publish-get-plist-from-filename (filename) | 426 | (defun org-publish-get-plist-from-filename (filename) |
| 427 | "Return publishing configuration plist for file FILENAME." | 427 | "Return publishing configuration plist for file FILENAME." |
| 428 | (let ((found nil)) | 428 | (let ((found nil)) |
| 429 | (mapcar | 429 | (mapc |
| 430 | (lambda (plist) | 430 | (lambda (plist) |
| 431 | (let ((files (org-publish-get-base-files plist))) | 431 | (let ((files (org-publish-get-base-files plist))) |
| 432 | (if (member (expand-file-name filename) files) | 432 | (if (member (expand-file-name filename) files) |