[Emacs-diffs] Changes to emacs/lisp/textmodes/org.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/10/13 02:57:58

Index: org.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/org.el,v
retrieving revision 1.156
retrieving revision 1.157
diff -u -b -r1.156 -r1.157
--- org.el      10 Oct 2007 23:57:33 -0000      1.156
+++ org.el      13 Oct 2007 02:57:57 -0000      1.157
@@ -14269,7 +14269,7 @@
                      (setq current (delete tg current))
                    (loop for g in groups do
                          (if (member tg g)
-                             (mapcar (lambda (x)
+                             (mapc (lambda (x)
                                        (setq current (delete x current)))
                                      g)))
                    (push tg current))
@@ -21849,7 +21849,7 @@
     (fundamental-mode)
     ;; create local variables for all options, to make sure all called
     ;; functions get the correct information
-    (mapcar (lambda (x)
+    (mapc (lambda (x)
              (set (make-local-variable (cdr x))
                   (plist-get opt-plist (car x))))
            org-export-plist-vars)
@@ -21884,7 +21884,7 @@
        (progn
          (push (concat (nth 3 lang-words) "\n") thetoc)
          (push (concat (make-string (length (nth 3 lang-words)) ?=) "\n") 
thetoc)
-         (mapcar '(lambda (line)
+         (mapc '(lambda (line)
                     (if (string-match org-todo-line-regexp
                                       line)
                         ;; This is a headline
@@ -22498,7 +22498,7 @@
          (org-odd-levels-only odd))
       ;; create local variables for all options, to make sure all called
       ;; functions get the correct information
-      (mapcar (lambda (x)
+      (mapc (lambda (x)
                (set (make-local-variable (cdr x))
                     (plist-get opt-plist (car x))))
              org-export-plist-vars)