From: Glenn Morris <rgm@gnu.org>
Date: Fri, 12 Oct 2007 06:41:15 +0000 (+0000)
Subject: (org-publish-get-plist-from-filename): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10395
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6064d523071a2a92f8499302fe0d62aed498500;p=emacs.git

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

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)