[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gdb-ui.el
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gdb-ui.el |
Date: |
Sun, 18 May 2003 18:19:17 -0400 |
Index: emacs/lisp/gdb-ui.el
diff -c emacs/lisp/gdb-ui.el:1.29 emacs/lisp/gdb-ui.el:1.30
*** emacs/lisp/gdb-ui.el:1.29 Sat May 17 06:17:57 2003
--- emacs/lisp/gdb-ui.el Sun May 18 18:19:17 2003
***************
*** 149,155 ****
(beginning-of-line)
(forward-char 2)
(gud-call "until *%a" arg)))
! "\C-u" "Continue up to current line or address.")
(setq comint-input-sender 'gdb-send)
;;
--- 149,155 ----
(beginning-of-line)
(forward-char 2)
(gud-call "until *%a" arg)))
! "\C-u" "Continue to current line or address.")
(setq comint-input-sender 'gdb-send)
;;
***************
*** 754,761 ****
(progn
(setq char "*")
(setq gdb-temp-value (substring gdb-temp-value 1 nil))))
! (save-excursion
! (set-buffer gdb-expression-buffer-name)
(setq gdb-expression gdb-temp-value)
(if (not (string-match "::" gdb-expression))
(setq gdb-expression (concat char gdb-current-frame
--- 754,760 ----
(progn
(setq char "*")
(setq gdb-temp-value (substring gdb-temp-value 1 nil))))
! (with-current-buffer gdb-expression-buffer-name
(setq gdb-expression gdb-temp-value)
(if (not (string-match "::" gdb-expression))
(setq gdb-expression (concat char gdb-current-frame
***************
*** 768,775 ****
;;-if scalar/string
(if (not (re-search-forward "##" nil t))
(progn
! (save-excursion
! (set-buffer gdb-expression-buffer-name)
(let ((buffer-read-only nil))
(delete-region (point-min) (point-max))
(insert-buffer-substring
--- 767,773 ----
;;-if scalar/string
(if (not (re-search-forward "##" nil t))
(progn
! (with-current-buffer gdb-expression-buffer-name
(let ((buffer-read-only nil))
(delete-region (point-min) (point-max))
(insert-buffer-substring
***************
*** 778,785 ****
(goto-char (point-min))
(let ((start (progn (point)))
(end (progn (end-of-line) (point))))
! (save-excursion
! (set-buffer gdb-expression-buffer-name)
(setq buffer-read-only nil)
(delete-region (point-min) (point-max))
(insert-buffer-substring (gdb-get-buffer
--- 776,782 ----
(goto-char (point-min))
(let ((start (progn (point)))
(end (progn (end-of-line) (point))))
! (with-current-buffer gdb-expression-buffer-name
(setq buffer-read-only nil)
(delete-region (point-min) (point-max))
(insert-buffer-substring (gdb-get-buffer
***************
*** 798,805 ****
(progn
(setq gdb-annotation-arg (match-string 1))
(gdb-field-format-begin))))
! (save-excursion
! (set-buffer gdb-expression-buffer-name)
(if gdb-dive-display-number
(progn
(let ((buffer-read-only nil))
--- 795,801 ----
(progn
(setq gdb-annotation-arg (match-string 1))
(gdb-field-format-begin))))
! (with-current-buffer gdb-expression-buffer-name
(if gdb-dive-display-number
(progn
(let ((buffer-read-only nil))
***************
*** 830,861 ****
(defun gdb-array-section-begin (args)
(if gdb-display-in-progress
(progn
! (save-excursion
! (set-buffer (gdb-get-buffer 'gdb-partial-output-buffer))
(goto-char (point-max))
(insert (concat "\n##array-section-begin " args "\n"))))))
(defun gdb-array-section-end (ignored)
(if gdb-display-in-progress
(progn
! (save-excursion
! (set-buffer (gdb-get-buffer 'gdb-partial-output-buffer))
(goto-char (point-max))
(insert "\n##array-section-end\n")))))
(defun gdb-field-begin (args)
(if gdb-display-in-progress
(progn
! (save-excursion
! (set-buffer (gdb-get-buffer 'gdb-partial-output-buffer))
(goto-char (point-max))
(insert (concat "\n##field-begin " args "\n"))))))
(defun gdb-field-end (ignored)
(if gdb-display-in-progress
(progn
! (save-excursion
! (set-buffer (gdb-get-buffer 'gdb-partial-output-buffer))
(goto-char (point-max))
(insert "\n##field-end\n")))))
--- 826,853 ----
(defun gdb-array-section-begin (args)
(if gdb-display-in-progress
(progn
! (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
(goto-char (point-max))
(insert (concat "\n##array-section-begin " args "\n"))))))
(defun gdb-array-section-end (ignored)
(if gdb-display-in-progress
(progn
! (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
(goto-char (point-max))
(insert "\n##array-section-end\n")))))
(defun gdb-field-begin (args)
(if gdb-display-in-progress
(progn
! (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
(goto-char (point-max))
(insert (concat "\n##field-begin " args "\n"))))))
(defun gdb-field-end (ignored)
(if gdb-display-in-progress
(progn
! (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
(goto-char (point-max))
(insert "\n##field-end\n")))))
***************
*** 934,941 ****
(let ((start (progn (point)))
(end (progn (next-line) (point)))
(num 0))
! (save-excursion
! (set-buffer gdb-expression-buffer-name)
(let ((buffer-read-only nil))
(if (string-equal gdb-annotation-arg "\*") (insert "\*"))
(while (<= num gdb-nesting-level)
--- 926,932 ----
(let ((start (progn (point)))
(end (progn (next-line) (point)))
(num 0))
! (with-current-buffer gdb-expression-buffer-name
(let ((buffer-read-only nil))
(if (string-equal gdb-annotation-arg "\*") (insert "\*"))
(while (<= num gdb-nesting-level)
***************
*** 966,973 ****
(if (eq gdb-nesting-level 0)
(progn
(let ((values (buffer-substring gdb-point (- (point) 2))))
! (save-excursion
! (set-buffer gdb-expression-buffer-name)
(setq gdb-values
(concat "{" (replace-regexp-in-string "\n" "" values)
"}"))
--- 957,963 ----
(if (eq gdb-nesting-level 0)
(progn
(let ((values (buffer-substring gdb-point (- (point) 2))))
! (with-current-buffer gdb-expression-buffer-name
(setq gdb-values
(concat "{" (replace-regexp-in-string "\n" "" values)
"}"))
***************
*** 1149,1170 ****
(t (error "Bogon output sink %S" sink)))))
(defun gdb-append-to-partial-output (string)
! (save-excursion
! (set-buffer
! (gdb-get-create-buffer 'gdb-partial-output-buffer))
(goto-char (point-max))
(insert string)))
(defun gdb-clear-partial-output ()
! (save-excursion
! (set-buffer
! (gdb-get-create-buffer 'gdb-partial-output-buffer))
(delete-region (point-min) (point-max))))
(defun gdb-append-to-inferior-io (string)
! (save-excursion
! (set-buffer
! (gdb-get-create-buffer 'gdb-inferior-io))
(goto-char (point-max))
(insert-before-markers string))
(if (not (string-equal string ""))
--- 1139,1154 ----
(t (error "Bogon output sink %S" sink)))))
(defun gdb-append-to-partial-output (string)
! (with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
(goto-char (point-max))
(insert string)))
(defun gdb-clear-partial-output ()
! (with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
(delete-region (point-min) (point-max))))
(defun gdb-append-to-inferior-io (string)
! (with-current-buffer (gdb-get-create-buffer 'gdb-inferior-io)
(goto-char (point-max))
(insert-before-markers string))
(if (not (string-equal string ""))
***************
*** 1172,1180 ****
(gdb-display-buffer (gdb-get-create-buffer 'gdb-inferior-io)))))
(defun gdb-clear-inferior-io ()
! (save-excursion
! (set-buffer
! (gdb-get-create-buffer 'gdb-inferior-io))
(delete-region (point-min) (point-max))))
--- 1156,1162 ----
(gdb-display-buffer (gdb-get-create-buffer 'gdb-inferior-io)))))
(defun gdb-clear-inferior-io ()
! (with-current-buffer (gdb-get-create-buffer 'gdb-inferior-io)
(delete-region (point-min) (point-max))))
***************
*** 1222,1229 ****
(gdb-get-pending-triggers)))
(let ((buf (gdb-get-buffer ',buf-key)))
(and buf
! (save-excursion
! (set-buffer buf)
(let ((p (point))
(buffer-read-only nil))
(delete-region (point-min) (point-max))
--- 1204,1210 ----
(gdb-get-pending-triggers)))
(let ((buf (gdb-get-buffer ',buf-key)))
(and buf
! (with-current-buffer buf
(let ((p (point))
(buffer-read-only nil))
(delete-region (point-min) (point-max))
***************
*** 1344,1358 ****
;;
;; remove all breakpoint-icons in source buffers but not assembler buffer
(dolist (buffer (buffer-list))
! (save-excursion
! (set-buffer buffer)
(if (and (eq gud-minor-mode 'gdba)
(not (string-match "^\*" (buffer-name))))
(if (display-graphic-p)
(remove-images (point-min) (point-max))
! (remove-strings (point-min) (point-max))))))
! (save-excursion
! (set-buffer (gdb-get-buffer 'gdb-breakpoints-buffer))
(save-excursion
(goto-char (point-min))
(while (< (point) (- (point-max) 1))
--- 1325,1337 ----
;;
;; remove all breakpoint-icons in source buffers but not assembler buffer
(dolist (buffer (buffer-list))
! (with-current-buffer buffer
(if (and (eq gud-minor-mode 'gdba)
(not (string-match "^\*" (buffer-name))))
(if (display-graphic-p)
(remove-images (point-min) (point-max))
! (gdb-remove-strings (point-min) (point-max))))))
! (with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer)
(save-excursion
(goto-char (point-min))
(while (< (point) (- (point-max) 1))
***************
*** 1370,1380 ****
(put-text-property (progn (beginning-of-line) (point))
(progn (end-of-line) (point))
'mouse-face 'highlight)
! (save-excursion
! (set-buffer
! (find-file-noselect
! (if (file-exists-p file) file
! (expand-file-name file gdb-cdir))))
(save-current-buffer
(set (make-local-variable 'gud-minor-mode) 'gdba)
(set (make-local-variable 'tool-bar-map)
--- 1349,1358 ----
(put-text-property (progn (beginning-of-line) (point))
(progn (end-of-line) (point))
'mouse-face 'highlight)
! (with-current-buffer
! (find-file-noselect
! (if (file-exists-p file) file
! (expand-file-name file gdb-cdir)))
(save-current-buffer
(set (make-local-variable 'gud-minor-mode) 'gdba)
(set (make-local-variable 'tool-bar-map)
***************
*** 1402,1413 ****
(put-image breakpoint-disabled-icon
(point)
"breakpoint icon disabled"
'left-margin)))
! (remove-strings start end)
(if (eq ?y flag)
! (put-string "B" (point) "enabled"
! 'left-margin)
! (put-string "b" (point) "disabled"
! 'left-margin)))))))))))
(end-of-line))))))
(defun gdb-breakpoints-buffer-name ()
--- 1380,1389 ----
(put-image breakpoint-disabled-icon
(point)
"breakpoint icon disabled"
'left-margin)))
! (gdb-remove-strings start end)
(if (eq ?y flag)
! (put-string "B" (point))
! (put-string "b" (point))))))))))))
(end-of-line))))))
(defun gdb-breakpoints-buffer-name ()
***************
*** 1518,1525 ****
gdb-info-frames-custom)
(defun gdb-info-frames-custom ()
! (save-excursion
! (set-buffer (gdb-get-buffer 'gdb-stack-buffer))
(save-excursion
(let ((buffer-read-only nil))
(goto-char (point-min))
--- 1494,1500 ----
gdb-info-frames-custom)
(defun gdb-info-frames-custom ()
! (with-current-buffer (gdb-get-buffer 'gdb-stack-buffer)
(save-excursion
(let ((buffer-read-only nil))
(goto-char (point-min))
***************
*** 1605,1612 ****
gdb-info-threads-custom)
(defun gdb-info-threads-custom ()
! (save-excursion
! (set-buffer (gdb-get-buffer 'gdb-threads-buffer))
(let ((buffer-read-only nil))
(goto-char (point-min))
(while (< (point) (point-max))
--- 1580,1586 ----
gdb-info-threads-custom)
(defun gdb-info-threads-custom ()
! (with-current-buffer (gdb-get-buffer 'gdb-threads-buffer)
(let ((buffer-read-only nil))
(goto-char (point-min))
(while (< (point) (point-max))
***************
*** 1730,1737 ****
(gdb-set-pending-triggers (delq 'gdb-invalidate-locals
(gdb-get-pending-triggers)))
(let ((buf (gdb-get-buffer 'gdb-partial-output-buffer)))
! (save-excursion
! (set-buffer buf)
(goto-char (point-min))
(while (re-search-forward "^ .*\n" nil t)
(replace-match "" nil nil))
--- 1704,1710 ----
(gdb-set-pending-triggers (delq 'gdb-invalidate-locals
(gdb-get-pending-triggers)))
(let ((buf (gdb-get-buffer 'gdb-partial-output-buffer)))
! (with-current-buffer buf
(goto-char (point-min))
(while (re-search-forward "^ .*\n" nil t)
(replace-match "" nil nil))
***************
*** 1742,1749 ****
(while (re-search-forward "{.*=.*\n" nil t)
(replace-match "(structure);\n" nil nil))))
(let ((buf (gdb-get-buffer 'gdb-locals-buffer)))
! (and buf (save-excursion
! (set-buffer buf)
(let ((p (point))
(buffer-read-only nil))
(delete-region (point-min) (point-max))
--- 1715,1721 ----
(while (re-search-forward "{.*=.*\n" nil t)
(replace-match "(structure);\n" nil nil))))
(let ((buf (gdb-get-buffer 'gdb-locals-buffer)))
! (and buf (with-current-buffer buf
(let ((p (point))
(buffer-read-only nil))
(delete-region (point-min) (point-max))
***************
*** 1800,1807 ****
(defun gdb-info-display-custom ()
(let ((display-list nil))
! (save-excursion
! (set-buffer (gdb-get-buffer 'gdb-display-buffer))
(goto-char (point-min))
(while (< (point) (- (point-max) 1))
(forward-line 1)
--- 1772,1778 ----
(defun gdb-info-display-custom ()
(let ((display-list nil))
! (with-current-buffer (gdb-get-buffer 'gdb-display-buffer)
(goto-char (point-min))
(while (< (point) (- (point-max) 1))
(forward-line 1)
***************
*** 1887,1895 ****
(defun gdb-delete-display ()
"Delete the displayed expression at current line."
(interactive)
! (save-excursion
! (set-buffer
! (gdb-get-buffer 'gdb-display-buffer))
(beginning-of-line 1)
(if (not (looking-at "\\([0-9]+\\): \\([ny]\\)"))
(error "No expression on this line")
--- 1858,1864 ----
(defun gdb-delete-display ()
"Delete the displayed expression at current line."
(interactive)
! (with-current-buffer (gdb-get-buffer 'gdb-display-buffer)
(beginning-of-line 1)
(if (not (looking-at "\\([0-9]+\\): \\([ny]\\)"))
(error "No expression on this line")
***************
*** 2084,2090 ****
(kill-buffer nil)
(if (display-graphic-p)
(remove-images (point-min) (point-max))
! (remove-strings (point-min) (point-max)))
(setq left-margin-width 0)
(setq gud-minor-mode nil)
(kill-local-variable 'tool-bar-map)
--- 2053,2059 ----
(kill-buffer nil)
(if (display-graphic-p)
(remove-images (point-min) (point-max))
! (gdb-remove-strings (point-min) (point-max)))
(setq left-margin-width 0)
(setq gud-minor-mode nil)
(kill-local-variable 'tool-bar-map)
***************
*** 2122,2184 ****
(other-window 1))))
;;from put-image
! (defun put-string (putstring pos &optional string area)
"Put string PUTSTRING in front of POS in the current buffer.
PUTSTRING is displayed by putting an overlay into the current buffer with a
`before-string' STRING that has a `display' property whose value is
! PUTSTRING. STRING is defaulted if you omit it.
! POS may be an integer or marker.
! AREA is where to display the string. AREA nil or omitted means
! display it in the text area, a value of `left-margin' means
! display it in the left marginal area, a value of `right-margin'
! means display it in the right marginal area."
! (unless string (setq string "x"))
(let ((buffer (current-buffer)))
- (unless (or (null area) (memq area '(left-margin right-margin)))
- (error "Invalid area %s" area))
(setq string (copy-sequence string))
(let ((overlay (make-overlay pos pos buffer))
! (prop (if (null area) putstring (list (list 'margin area)
putstring))))
(put-text-property 0 (length string) 'display prop string)
! (overlay-put overlay 'put-text t)
(overlay-put overlay 'before-string string))))
;;from remove-images
! (defun remove-strings (start end &optional buffer)
"Remove strings between START and END in BUFFER.
! Remove only images that were put in BUFFER with calls to `put-string'.
BUFFER nil or omitted means use the current buffer."
(unless buffer
(setq buffer (current-buffer)))
(let ((overlays (overlays-in start end)))
(while overlays
(let ((overlay (car overlays)))
! (when (overlay-get overlay 'put-text)
(delete-overlay overlay)))
(setq overlays (cdr overlays)))))
! (defun put-arrow (putstring pos &optional string area)
! "Put arrow string PUTSTRING in front of POS in the current buffer.
! PUTSTRING is displayed by putting an overlay into the current buffer with a
! `before-string' \"gdb-arrow\" that has a `display' property whose value is
! PUTSTRING. STRING is defaulted if you omit it.
! POS may be an integer or marker.
! AREA is where to display the string. AREA nil or omitted means
! display it in the text area, a value of `left-margin' means
! display it in the left marginal area, a value of `right-margin'
! means display it in the right marginal area."
(setq string "gdb-arrow")
(let ((buffer (current-buffer)))
- (unless (or (null area) (memq area '(left-margin right-margin)))
- (error "Invalid area %s" area))
(setq string (copy-sequence string))
(let ((overlay (make-overlay pos pos buffer))
! (prop (if (null area) putstring (list (list 'margin area)
putstring))))
(put-text-property 0 (length string) 'display prop string)
! (overlay-put overlay 'put-text t)
(overlay-put overlay 'before-string string))))
! (defun remove-arrow (&optional buffer)
"Remove arrow in BUFFER.
Remove only images that were put in BUFFER with calls to `put-arrow'.
BUFFER nil or omitted means use the current buffer."
--- 2091,2141 ----
(other-window 1))))
;;from put-image
! (defun gdb-put-string (putstring pos)
"Put string PUTSTRING in front of POS in the current buffer.
PUTSTRING is displayed by putting an overlay into the current buffer with a
`before-string' STRING that has a `display' property whose value is
! PUTSTRING."
! (setq string "x")
(let ((buffer (current-buffer)))
(setq string (copy-sequence string))
(let ((overlay (make-overlay pos pos buffer))
! (prop (list (list 'margin 'left-margin) putstring)))
(put-text-property 0 (length string) 'display prop string)
! (overlay-put overlay 'put-break t)
(overlay-put overlay 'before-string string))))
;;from remove-images
! (defun gdb-remove-strings (start end &optional buffer)
"Remove strings between START and END in BUFFER.
! Remove only strings that were put in BUFFER with calls to `put-string'.
BUFFER nil or omitted means use the current buffer."
(unless buffer
(setq buffer (current-buffer)))
(let ((overlays (overlays-in start end)))
(while overlays
(let ((overlay (car overlays)))
! (when (overlay-get overlay 'put-break)
(delete-overlay overlay)))
(setq overlays (cdr overlays)))))
! (defun gdb-put-arrow (putstring pos)
! "Put arrow string PUTSTRING in the left margin in front of POS
! in the current buffer. PUTSTRING is displayed by putting an
! overlay into the current buffer with a `before-string'
! \"gdb-arrow\" that has a `display' property whose value is
! PUTSTRING. STRING is defaulted if you omit it. POS may be an
! integer or marker."
(setq string "gdb-arrow")
(let ((buffer (current-buffer)))
(setq string (copy-sequence string))
(let ((overlay (make-overlay pos pos buffer))
! (prop (list (list 'margin 'left-margin) putstring)))
(put-text-property 0 (length string) 'display prop string)
! (overlay-put overlay 'put-arrow t)
(overlay-put overlay 'before-string string))))
! (defun gdb-remove-arrow (&optional buffer)
"Remove arrow in BUFFER.
Remove only images that were put in BUFFER with calls to `put-arrow'.
BUFFER nil or omitted means use the current buffer."
***************
*** 2187,2193 ****
(let ((overlays (overlays-in (point-min) (point-max))))
(while overlays
(let ((overlay (car overlays)))
! (when (string-equal (overlay-get overlay 'before-string) "gdb-arrow")
(delete-overlay overlay)))
(setq overlays (cdr overlays)))))
--- 2144,2150 ----
(let ((overlays (overlays-in (point-min) (point-max))))
(while overlays
(let ((overlay (car overlays)))
! (when (overlay-get overlay 'put-arrow)
(delete-overlay overlay)))
(setq overlays (cdr overlays)))))
***************
*** 2240,2260 ****
(defun gdb-assembler-custom ()
(let ((buffer (gdb-get-buffer 'gdb-assembler-buffer))
(address) (flag))
! (save-excursion
! (set-buffer buffer)
(if (not (equal gdb-current-address "main"))
(progn
! (remove-arrow)
! (goto-char (point-min))
! (if (re-search-forward gdb-current-address nil t)
! (progn
! (put-arrow "=>" (point) nil 'left-margin)
! (set-window-point gdb-source-window (point))))))
! ;; remove all breakpoint-icons in assembler buffer before updating.
(save-excursion
(if (display-graphic-p)
(remove-images (point-min) (point-max))
! (remove-strings (point-min) (point-max))))
(set-buffer (gdb-get-buffer 'gdb-breakpoints-buffer))
(goto-char (point-min))
(while (< (point) (- (point-max) 1))
--- 2197,2216 ----
(defun gdb-assembler-custom ()
(let ((buffer (gdb-get-buffer 'gdb-assembler-buffer))
(address) (flag))
! (with-current-buffer buffer
(if (not (equal gdb-current-address "main"))
(progn
! (gdb-remove-arrow)
! (save-selected-window
! (select-window gdb-source-window)
! (goto-char (point-min))
! (if (re-search-forward gdb-current-address nil t)
! (gdb-put-arrow "=>" (point))))))
! ;; remove all breakpoint-icons in assembler buffer before updating.
(save-excursion
(if (display-graphic-p)
(remove-images (point-min) (point-max))
! (gdb-remove-strings (point-min) (point-max))))
(set-buffer (gdb-get-buffer 'gdb-breakpoints-buffer))
(goto-char (point-min))
(while (< (point) (- (point-max) 1))
***************
*** 2269,2276 ****
(if (string-match "0x0+\\(.*\\)" number)
(setq address (concat "0x" (match-string 1 address)))
(setq address number)))
! (save-excursion
! (set-buffer buffer)
(save-excursion
(goto-char (point-min))
(if (re-search-forward address nil t)
--- 2225,2231 ----
(if (string-match "0x0+\\(.*\\)" number)
(setq address (concat "0x" (match-string 1 address)))
(setq address number)))
! (with-current-buffer buffer
(save-excursion
(goto-char (point-min))
(if (re-search-forward address nil t)
***************
*** 2286,2296 ****
(put-image breakpoint-disabled-icon (point)
"breakpoint icon disabled"
'left-margin)))
! (remove-strings start end)
(if (eq ?y flag)
! (put-string "B" (point) "enabled" 'left-margin)
! (put-string "b" (point) "disabled"
! 'left-margin)))))))))))))
(defvar gdb-assembler-mode-map
(let ((map (make-sparse-keymap)))
--- 2241,2250 ----
(put-image breakpoint-disabled-icon (point)
"breakpoint icon disabled"
'left-margin)))
! (gdb-remove-strings start end)
(if (eq ?y flag)
! (put-string "B" (point))
! (put-string "b" (point))))))))))))))
(defvar gdb-assembler-mode-map
(let ((map (make-sparse-keymap)))
***************
*** 2332,2339 ****
(not (string-equal gdb-current-address gdb-previous-address))))
(progn
;; take previous disassemble command off the queue
! (save-excursion
! (set-buffer gud-comint-buffer)
(let ((queue (gdb-get-idle-input-queue)) (item))
(dolist (item queue)
(if (equal (cdr item) '(gdb-assembler-handler))
--- 2286,2292 ----
(not (string-equal gdb-current-address gdb-previous-address))))
(progn
;; take previous disassemble command off the queue
! (with-current-buffer gud-comint-buffer
(let ((queue (gdb-get-idle-input-queue)) (item))
(dolist (item queue)
(if (equal (cdr item) '(gdb-assembler-handler))
***************
*** 2359,2366 ****
(defun gdb-frame-handler ()
(gdb-set-pending-triggers
(delq 'gdb-get-current-frame (gdb-get-pending-triggers)))
! (save-excursion
! (set-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer))
(goto-char (point-min))
(if (looking-at "^#[0-9]*\\s-*\\(\\S-*\\) in \\(\\S-*\\)")
(progn
--- 2312,2318 ----
(defun gdb-frame-handler ()
(gdb-set-pending-triggers
(delq 'gdb-get-current-frame (gdb-get-pending-triggers)))
! (with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
(goto-char (point-min))
(if (looking-at "^#[0-9]*\\s-*\\(\\S-*\\) in \\(\\S-*\\)")
(progn
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/03
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/12
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/17
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el,
Nick Roberts <=
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/20
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/21
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/23
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/25