mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-29 11:02:01 +00:00
Code Issues Releases Activity

(gdb-mapcar*): Replacement for `mapcar*'

Browse Source 
from cl package.
(gdb-table-add-row, gdb-table-string): Use `gdb-mapcar*'.
This commit is contained in:
Dmitry Dzhus 2009-08-24 19:12:46 +00:00
parent 42110eaf95
commit 71e036af39
2 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2009-08-24 Dmitry Dzhus <dima@sphinx.net.ru>
* progmodes/gdb-mi.el (gdb-mapcar*): Replacement for `mapcar*'
from cl package.
(gdb-table-add-row, gdb-table-string): Use `gdb-mapcar*'.
2009-08-24 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-alg.el (math-trig-rewrite)

22
lisp/progmodes/gdb-mi.el
View File

@ -2119,6 +2119,20 @@ 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
arugments, and mapping stops as sson 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.
@ -2136,7 +2150,7 @@ calling `gdb-table-string'."
(setf (gdb-table-row-properties table)
(append row-properties (list properties)))
(setf (gdb-table-column-sizes table)
(mapcar* (lambda (x s)
(gdb-mapcar* (lambda (x s)
(let ((new-x
(max (abs x) (string-width (or s "")))))
(if right-align new-x (- new-x))))
@ -2152,12 +2166,12 @@ calling `gdb-table-string'."
(res ""))
(mapconcat
'identity
(mapcar*
(gdb-mapcar*
(lambda (row properties)
(apply 'propertize
(mapconcat 'identity
(mapcar* (lambda (s x) (gdb-pad-string s x))
row column-sizes)
(gdb-mapcar* (lambda (s x) (gdb-pad-string s x))
row column-sizes)
sep)
properties))
(gdb-table-rows table)