diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-06-21 20:35:51 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-06-21 20:35:51 -0400 |
| commit | 3d94f3ad819bb61ec54e8ed5b905aa28368b02eb (patch) | |
| tree | ff67e4b15eeac88ce41cb91dc4e2aceac9beabcc /lisp/progmodes/gdb-mi.el | |
| parent | f72e2fdb68783ddebadca00a6af59e24d85769a2 (diff) | |
| download | emacs-3d94f3ad819bb61ec54e8ed5b905aa28368b02eb.tar.gz emacs-3d94f3ad819bb61ec54e8ed5b905aa28368b02eb.tar.bz2 emacs-3d94f3ad819bb61ec54e8ed5b905aa28368b02eb.zip | |
* lisp/progmodes/gdb-mi.el (gdb-mapcar*): Remove, replace with cl-mapcar.
Diffstat (limited to 'lisp/progmodes/gdb-mi.el')
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 20 |
1 files changed, 3 insertions, 17 deletions
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 0b52302a98d..2c4d6a0e3d7 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -2642,20 +2642,6 @@ Return position where LINE begins." (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 @@ calling `gdb-table-string'." (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 @@ calling `gdb-table-string'." (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)) |