mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

Make gdb-pad-string obsolete in favor of string-pad

Browse Source 
* lisp/progmodes/gdb-mi.el (subr-x): Require.
(gdb-pad-string): Make obsolete in favor of 'string-pad'.  Update
callers.
This commit is contained in:
Stefan Kangas 2022-08-10 12:54:31 +02:00
parent 9d35afed49
commit f6356dc88d
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -92,6 +92,7 @@
(require 'cl-seq)
(require 'bindat)
(eval-when-compile (require 'pcase))
(require 'subr-x) ; `string-pad'
(declare-function speedbar-change-initial-expansion-list
"speedbar" (new-default))
@ -2943,7 +2944,8 @@ Return position where LINE begins."
start-posn)))
(defun gdb-pad-string (string padding)
(format (concat "%" (number-to-string padding) "s") string))
(declare (obsolete string-pad "29.1"))
(string-pad string padding nil t))
;; gdb-table struct is a way to programmatically construct simple
;; tables. It help to reliably align columns of data in GDB buffers
@ -2985,13 +2987,13 @@ calling `gdb-table-string'."
"Return TABLE as a string with columns separated with SEP."
(let ((column-sizes (gdb-table-column-sizes table)))
(mapconcat
'identity
#'identity
(cl-mapcar
(lambda (row properties)
(apply 'propertize
(mapconcat 'identity
(cl-mapcar (lambda (s x) (gdb-pad-string s x))
row column-sizes)
(apply #'propertize
(mapconcat #'identity
(cl-mapcar (lambda (s x) (string-pad s x nil t))
row column-sizes)
sep)
properties))
(gdb-table-rows table)
@ -3688,10 +3690,11 @@ in `gdb-memory-format'."
(dolist (row memory)
(insert (concat (gdb-mi--field row 'addr) ":"))
(dolist (column (gdb-mi--field row 'data))
(insert (gdb-pad-string column
(+ 2 (gdb-memory-column-width
gdb-memory-unit
gdb-memory-format)))))
(insert (string-pad column
(+ 2 (gdb-memory-column-width
gdb-memory-unit
gdb-memory-format))
nil t)))
(newline)))
;; Show last page instead of empty buffer when out of bounds
(when gdb-memory-last-address