[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/table.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/table.el,v |
Date: |
Wed, 26 Sep 2007 00:34:07 +0000 |
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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/table.el,v,
Juanma Barranquero <=