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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 021a624c17efeb1315adb8b03df005184b45a8d2..54f91a56cb99da97e486c3402147a987e9185c0b 100644 (file)
--- 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 a72b477d0b2e34d020effdf9eaf50c20dda80166..bc45a7d9941af6655ebd717fa15e304decc643e8 100644 (file)
--- 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)