Mercurial > emacs
changeset 72481:d7b676d23dd8
(gdb-frame-memory-buffer): Make frame
a bit wider and remove fringes to fit initial output on line.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 21 Aug 2006 23:06:09 +0000 |
| parents | b537cdbb5686 |
| children | 006fede79540 |
| files | lisp/progmodes/gdb-ui.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el Mon Aug 21 19:04:39 2006 +0000 +++ b/lisp/progmodes/gdb-ui.el Mon Aug 21 23:06:09 2006 +0000 @@ -315,7 +315,7 @@ "Nil means just pop up the GUD buffer unless `gdb-show-main' is t. In this case it starts with two windows: one displaying the GUD buffer and the other with the source file with the main routine -of the inferior. Non-nil means display the layout shown for +of the debugged program. Non-nil means display the layout shown for `gdba'." :type 'boolean :group 'gud @@ -2638,8 +2638,11 @@ (defun gdb-frame-memory-buffer () "Display memory contents in a new frame." (interactive) - (let ((special-display-regexps (append special-display-regexps '(".*"))) - (special-display-frame-alist gdb-frame-parameters)) + (let* ((special-display-regexps (append special-display-regexps '(".*"))) + (special-display-frame-alist + (cons '(left-fringe . 0) + (cons '(right-fringe . 0) + (cons '(width . 83) gdb-frame-parameters))))) (display-buffer (gdb-get-buffer-create 'gdb-memory-buffer)))) @@ -3584,7 +3587,7 @@ value)) (insert (concat name "\t" (nth 1 local) - "\t" (nth 2 local) "\n"))) + "\t" value "\n"))) (set-window-start window start) (set-window-point window p))))))))