[Emacs-diffs] trunk r113132: * lisp/progmodes/gdb-mi.el (gdb-mapcar*): Remove, replace with cl-mapcar.

[Glenn Morris]

------------------------------------------------------------
revno: 113132
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-06-21 20:35:51 -0400
message:
  * lisp/progmodes/gdb-mi.el (gdb-mapcar*): Remove, replace with cl-mapcar.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/gdb-mi.el       gdbmi.el-20100327132052-973a0aspo2g2bze8-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-22 00:11:24 +0000
+++ b/lisp/ChangeLog    2013-06-22 00:35:51 +0000
@@ -1,3 +1,7 @@
+2013-06-22  Glenn Morris  <address@hidden>
+
+       * progmodes/gdb-mi.el (gdb-mapcar*): Remove, replace with cl-mapcar.
+
 2013-06-22  Dmitry Gutov  <address@hidden>
 
        * progmodes/ruby-mode.el (auto-mode-alist): Do not use

=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el  2013-05-30 23:33:08 +0000
+++ b/lisp/progmodes/gdb-mi.el  2013-06-22 00:35:51 +0000
@@ -2642,20 +2642,6 @@
   (row-properties nil)
   (right-align nil))
 
-(defun gdb-mapcar* (function &rest seqs)
-  "Apply FUNCTION to each element of SEQS, and make a list of the results.
-If there are several SEQS, FUNCTION is called with that many
-arguments, and mapping stops as soon as the shortest list runs
-out."
-  (let ((shortest (apply #'min (mapcar #'length seqs))))
-    (mapcar (lambda (i)
-              (apply function
-                     (mapcar
-                      (lambda (seq)
-                        (nth i seq))
-                      seqs)))
-            (number-sequence 0 (1- shortest)))))
-
 (defun gdb-table-add-row (table row &optional properties)
   "Add ROW of string to TABLE and recalculate column sizes.
 
@@ -2673,7 +2659,7 @@
     (setf (gdb-table-row-properties table)
           (append row-properties (list properties)))
     (setf (gdb-table-column-sizes table)
-          (gdb-mapcar* (lambda (x s)
+          (cl-mapcar (lambda (x s)
                          (let ((new-x
                                 (max (abs x) (string-width (or s "")))))
                            (if right-align new-x (- new-x))))
@@ -2688,11 +2674,11 @@
   (let ((column-sizes (gdb-table-column-sizes table)))
     (mapconcat
      'identity
-     (gdb-mapcar*
+     (cl-mapcar
       (lambda (row properties)
         (apply 'propertize
                (mapconcat 'identity
-                          (gdb-mapcar* (lambda (s x) (gdb-pad-string s x))
+                          (cl-mapcar (lambda (s x) (gdb-pad-string s x))
                                        row column-sizes)
                           sep)
                properties))