(org-publish-get-plist-from-filename): Use mapc rather than mapcar.

2 files changed, 13 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 021a624c17e..54f91a56cb9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,6 @@
+2007-10-12  Glenn Morris  <rgm@gnu.org>
+
+
 2007-10-12  Martin Rudalics  <rudalics@gmx.at>
 
         * window.el (handle-select-window): Revert part of 2007-10-08
@@ -12,6 +15,15 @@
         * obsolete/hilit19.el (hilit-mode):
         * progmodes/cc-mode.el (c-postprocess-file-styles)
         (c-submit-bug-report):
+        * textmodes/org-publish.el (org-publish-get-plist-from-filename):
+        * textmodes/reftex.el (reftex-erase-all-selection-and-index-buffers)
+        (reftex-access-parse-file):
+        * textmodes/reftex-cite.el (reftex-do-citation)
+        (reftex-insert-bib-matches):
+        * textmodes/reftex-ref.el (reftex-offer-label-menu):
+        * textmodes/reftex-sel.el (reftex-select-unmark):
+        * textmodes/reftex-toc.el (reftex-toc-do-promote):
+
         * vc-mcvs.el (vc-mcvs-checkin): Use mapc rather than mapcar.
 
         * cus-edit.el (custom-variable-menu, custom-face-menu)
diff --git a/lisp/textmodes/org-publish.el b/lisp/textmodes/org-publish.el
index a72b477d0b2..bc45a7d9941 100644
--- a/lisp/textmodes/org-publish.el
+++ b/lisp/textmodes/org-publish.el
@@ -426,7 +426,7 @@ nil if not found."
 (defun org-publish-get-plist-from-filename (filename)
   "Return publishing configuration plist for file FILENAME."
   (let ((found nil))
-    (mapcar
+    (mapc
      (lambda (plist)
        (let ((files (org-publish-get-base-files plist)))
          (if (member (expand-file-name filename) files)