817 |
(setq gdb-display-in-progress nil)) |
(setq gdb-display-in-progress nil)) |
818 |
|
|
819 |
(define-button-type 'gdb-display-back |
(define-button-type 'gdb-display-back |
820 |
'help-echo (purecopy "mouse-2, RET: go back to previous display buffer") |
'help-echo "mouse-2, RET: go back to previous display buffer" |
821 |
'action (lambda (button) (gdb-display-go-back))) |
'action (lambda (button) (gdb-display-go-back))) |
822 |
|
|
823 |
(defun gdb-display-go-back () |
(defun gdb-display-go-back () |
945 |
(insert-buffer-substring (gdb-get-buffer |
(insert-buffer-substring (gdb-get-buffer |
946 |
'gdb-partial-output-buffer) |
'gdb-partial-output-buffer) |
947 |
start end) |
start end) |
948 |
(put-text-property (- (point) (- end start)) (- (point) 1) |
(add-text-properties (- (point) (- end start)) (- (point) 1) |
949 |
'mouse-face 'highlight) |
`(mouse-face highlight local-map ,gdb-dive-map)))) |
|
(put-text-property (- (point) (- end start)) (- (point) 1) |
|
|
'local-map gdb-dive-map))) |
|
950 |
(delete-region start end))) |
(delete-region start end))) |
951 |
|
|
952 |
(defvar gdb-values nil) |
(defvar gdb-values nil) |
1058 |
(setq array-stop (int-to-string (aref gdb-array-stop num))) |
(setq array-stop (int-to-string (aref gdb-array-stop num))) |
1059 |
(setq array-range (concat "[" array-start |
(setq array-range (concat "[" array-start |
1060 |
":" array-stop "]")) |
":" array-stop "]")) |
1061 |
(put-text-property 1 (+ (length array-start) |
(add-text-properties |
1062 |
(length array-stop) 2) |
1 (+ (length array-start) (length array-stop) 2) |
1063 |
'mouse-face 'highlight array-range) |
`(mouse-face highlight |
1064 |
(put-text-property 1 (+ (length array-start) |
local-map ,gdb-array-slice-map |
1065 |
(length array-stop) 2) |
help-echo "mouse-2, RET: select slice for this index") array-range) |
|
'local-map gdb-array-slice-map array-range) |
|
1066 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1067 |
(setq array-slice (concat array-slice array-range)) |
(setq array-slice (concat array-slice array-range)) |
1068 |
(setq num (+ num 1))) |
(setq num (+ num 1))) |
1339 |
(with-current-buffer buffer |
(with-current-buffer buffer |
1340 |
(if (and (eq gud-minor-mode 'gdba) |
(if (and (eq gud-minor-mode 'gdba) |
1341 |
(not (string-match "^\*" (buffer-name)))) |
(not (string-match "^\*" (buffer-name)))) |
1342 |
(if (eq window-system 'x) |
(if (display-images-p) |
1343 |
(remove-images (point-min) (point-max)) |
(remove-images (point-min) (point-max)) |
1344 |
(gdb-remove-strings (point-min) (point-max)))))) |
(gdb-remove-strings (point-min) (point-max)))))) |
1345 |
(with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer) |
(with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer) |
1357 |
(looking-at "\\(\\S-*\\):\\([0-9]+\\)") |
(looking-at "\\(\\S-*\\):\\([0-9]+\\)") |
1358 |
(let ((line (match-string 2)) (buffer-read-only nil) |
(let ((line (match-string 2)) (buffer-read-only nil) |
1359 |
(file (match-string 1))) |
(file (match-string 1))) |
1360 |
(put-text-property (progn (beginning-of-line) (point)) |
(add-text-properties (point-at-bol) (point-at-eol) |
1361 |
(progn (end-of-line) (point)) |
'(mouse-face highlight |
1362 |
'mouse-face 'highlight) |
help-echo "mouse-2, RET: visit breakpoint")) |
1363 |
(with-current-buffer |
(with-current-buffer |
1364 |
(find-file-noselect |
(find-file-noselect |
1365 |
(if (file-exists-p file) file |
(if (file-exists-p file) file |
1380 |
(let ((start (progn (beginning-of-line) |
(let ((start (progn (beginning-of-line) |
1381 |
(- (point) 1))) |
(- (point) 1))) |
1382 |
(end (progn (end-of-line) (+ (point) 1)))) |
(end (progn (end-of-line) (+ (point) 1)))) |
1383 |
(if (eq window-system 'x) |
(if (display-images-p) |
1384 |
(progn |
(progn |
1385 |
(remove-images start end) |
(remove-images start end) |
1386 |
(if (eq ?y flag) |
(if (eq ?y flag) |
1541 |
(let ((buffer-read-only nil)) |
(let ((buffer-read-only nil)) |
1542 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1543 |
(while (< (point) (point-max)) |
(while (< (point) (point-max)) |
1544 |
(put-text-property (progn (beginning-of-line) (point)) |
(add-text-properties (point-at-bol) (point-at-eol) |
1545 |
(progn (end-of-line) (point)) |
'(mouse-face highlight |
1546 |
'mouse-face 'highlight) |
help-echo "mouse-2, RET: Select frame")) |
1547 |
(beginning-of-line) |
(beginning-of-line) |
1548 |
(if (or (looking-at "^#[0-9]*\\s-*\\S-* in \\(\\S-*\\)") |
(if (or (looking-at "^#[0-9]*\\s-*\\S-* in \\(\\S-*\\)") |
1549 |
(looking-at "^#[0-9]*\\s-*\\(\\S-*\\)")) |
(looking-at "^#[0-9]*\\s-*\\(\\S-*\\)")) |
1550 |
(if (equal (match-string 1) gdb-current-frame) |
(if (equal (match-string 1) gdb-current-frame) |
1551 |
(put-text-property (progn (beginning-of-line) (point)) |
(put-text-property (point-at-bol) (point-at-eol) |
1552 |
(progn (end-of-line) (point)) |
'face |
1553 |
'face |
`(:background ,(face-attribute 'default :foreground) |
1554 |
`(:background ,(face-attribute 'default :foreground) |
:foreground ,(face-attribute 'default :background))))) |
|
:foreground ,(face-attribute 'default :background))))) |
|
1555 |
(forward-line 1)))))) |
(forward-line 1)))))) |
1556 |
|
|
1557 |
(defun gdb-stack-buffer-name () |
(defun gdb-stack-buffer-name () |
1625 |
(let ((buffer-read-only nil)) |
(let ((buffer-read-only nil)) |
1626 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1627 |
(while (< (point) (point-max)) |
(while (< (point) (point-max)) |
1628 |
(put-text-property (progn (beginning-of-line) (point)) |
(add-text-properties (point-at-bol) (point-at-eol) |
1629 |
(progn (end-of-line) (point)) |
'(mouse-face highlight |
1630 |
'mouse-face 'highlight) |
help-echo "mouse-2, RET: select thread")) |
1631 |
(forward-line 1))))) |
(forward-line 1))))) |
1632 |
|
|
1633 |
(defun gdb-threads-buffer-name () |
(defun gdb-threads-buffer-name () |
2156 |
(if (eq gud-minor-mode 'gdba) |
(if (eq gud-minor-mode 'gdba) |
2157 |
(if (string-match "^\*.+*$" (buffer-name)) |
(if (string-match "^\*.+*$" (buffer-name)) |
2158 |
(kill-buffer nil) |
(kill-buffer nil) |
2159 |
(if (eq window-system 'x) |
(if (display-images-p) |
2160 |
(remove-images (point-min) (point-max)) |
(remove-images (point-min) (point-max)) |
2161 |
(gdb-remove-strings (point-min) (point-max))) |
(gdb-remove-strings (point-min) (point-max))) |
2162 |
(setq left-margin-width 0) |
(setq left-margin-width 0) |
2319 |
(setq gdb-arrow-position (point)) |
(setq gdb-arrow-position (point)) |
2320 |
(gdb-put-arrow "=>" (point)))))) |
(gdb-put-arrow "=>" (point)))))) |
2321 |
;; remove all breakpoint-icons in assembler buffer before updating. |
;; remove all breakpoint-icons in assembler buffer before updating. |
2322 |
(if (eq window-system 'x) |
(if (display-images-p) |
2323 |
(remove-images (point-min) (point-max)) |
(remove-images (point-min) (point-max)) |
2324 |
(gdb-remove-strings (point-min) (point-max)))) |
(gdb-remove-strings (point-min) (point-max)))) |
2325 |
(with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer) |
(with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer) |
2340 |
(if (re-search-forward address nil t) |
(if (re-search-forward address nil t) |
2341 |
(let ((start (progn (beginning-of-line) (- (point) 1))) |
(let ((start (progn (beginning-of-line) (- (point) 1))) |
2342 |
(end (progn (end-of-line) (+ (point) 1)))) |
(end (progn (end-of-line) (+ (point) 1)))) |
2343 |
(if (eq window-system 'x) |
(if (display-images-p) |
2344 |
(progn |
(progn |
2345 |
(remove-images start end) |
(remove-images start end) |
2346 |
(if (eq ?y flag) |
(if (eq ?y flag) |