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

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/26 00:34:07

Index: table.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/table.el,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- table.el    26 Jul 2007 05:27:35 -0000      1.32
+++ table.el    26 Sep 2007 00:34:07 -0000      1.33
@@ -1376,7 +1376,7 @@
 ;;
 
 ;; Point Motion Only Group
-(mapcar
+(mapc
  (lambda (command)
    (let ((func-symbol (intern (format "*table--cell-%s" command)))
         (doc-string (format "Table remapped function for `%s'." command)))
@@ -1409,7 +1409,7 @@
    backward-paragraph))
 
 ;; Extraction Group
-(mapcar
+(mapc
  (lambda (command)
    (let ((func-symbol (intern (format "*table--cell-%s" command)))
         (doc-string (format "Table remapped function for `%s'." command)))
@@ -1443,7 +1443,7 @@
    backward-kill-sexp))
 
 ;; Pasting Group
-(mapcar
+(mapc
  (lambda (command)
    (let ((func-symbol (intern (format "*table--cell-%s" command)))
         (doc-string (format "Table remapped function for `%s'." command)))
@@ -1469,7 +1469,7 @@
    insert))
 
 ;; Formatting Group
-(mapcar
+(mapc
  (lambda (command)
    (let ((func-symbol (intern (format "*table--cell-%s" command)))
         (doc-string (format "Table remapped function for `%s'." command)))
@@ -1641,7 +1641,7 @@
   (if (numberp cell-width) (setq cell-width (cons cell-width nil)))
   (if (numberp cell-height) (setq cell-height (cons cell-height nil)))
   ;; test validity of the arguments.
-  (mapcar (lambda (arg)
+  (mapc (lambda (arg)
            (let* ((value (symbol-value arg))
                   (error-handler
                    (function (lambda ()
@@ -3141,7 +3141,7 @@
       (set-marker-insertion-type (table-get-source-info 'colspec-marker) t) ;; 
insert before
       (save-excursion
        (goto-char (table-get-source-info 'colspec-marker))
-       (mapcar
+       (mapc
         (lambda (col)
           (insert (format "    <colspec colnum=\"%d\" colname=\"c%d\"/>\n" col 
col)))
         (sort (table-get-source-info 'colnum-list) '<)))
@@ -3223,7 +3223,7 @@
              (if (> colspan 1)
                  (let ((scol (table-get-source-info 'current-column))
                        (ecol (+ (table-get-source-info 'current-column) 
colspan -1)))
-                   (mapcar (lambda (col)
+                   (mapc (lambda (col)
                              (unless (memq col (table-get-source-info 
'colnum-list))
                                (table-put-source-info 'colnum-list
                                                       (cons col 
(table-get-source-info 'colnum-list)))))
@@ -3910,7 +3910,7 @@
          (remap-alist table-command-remap-alist))
       ;; table-command-prefix mode specific bindings
       (if (vectorp table-command-prefix)
-         (mapcar (lambda (binding)
+         (mapc (lambda (binding)
                    (let ((seq (copy-sequence (car binding))))
                      (and (vectorp seq)
                           (listp (aref seq 0))
@@ -3920,7 +3920,7 @@
                             (define-key map (vconcat table-command-prefix seq) 
(cdr binding))))))
                  table-cell-bindings))
       ;; shorthand control bindings
-      (mapcar (lambda (binding)
+      (mapc (lambda (binding)
                (define-key map (car binding) (cdr binding)))
              table-cell-bindings)
       ;; remap normal commands to table specific version
@@ -4092,7 +4092,7 @@
 ---             -------
 
 ")
-      (mapcar (lambda (binding)
+      (mapc (lambda (binding)
                (princ (format "%-16s%s\n"
                               (key-description (car binding))
                               (cdr binding))))