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))))))))