Lines Matching +defs:marker +defs:position
121 (defvar gdb-overlay-arrow-position nil)
122 (defvar gdb-stack-position nil)
467 (set (make-local-variable 'gud-marker-filter) 'gud-gdba-marker-filter)
609 (defmacro gdb-if-arrow (arrow-position &rest body)
610 `(if ,arrow-position
611 (let ((buffer (marker-buffer ,arrow-position)) (line))
616 (marker-position ,arrow-position)))
627 (gdb-if-arrow gud-overlay-arrow-position
630 (gdb-if-arrow gdb-overlay-arrow-position
645 (gdb-if-arrow gud-overlay-arrow-position
650 (gdb-if-arrow gdb-overlay-arrow-position
1242 ;; Extract the frame position from the marker.
1313 (setq gud-old-arrow gud-overlay-arrow-position)
1314 (setq gud-overlay-arrow-position nil)
1315 (setq gdb-overlay-arrow-position nil)
1316 (setq gdb-stack-position nil)
1349 (setq gud-overlay-arrow-position nil)
1350 (setq gdb-overlay-arrow-position nil)
1351 (setq gdb-stack-position nil)
1402 (unless (or gud-overlay-arrow-position gud-last-frame)
1404 (setq gud-overlay-arrow-position gud-old-arrow)
1509 (defun gud-gdba-marker-filter (string)
1510 "A gud marker filter for gdb. Handle a burst of output from GDB."
1518 ;; Recall the left over gud-marker-acc from last time.
1519 (setq gud-marker-acc (concat gud-marker-acc string))
1524 (while (string-match "\n\032\032\\(.*\\)\n" gud-marker-acc)
1525 (let ((annotation (match-string 1 gud-marker-acc)))
1533 (substring gud-marker-acc 0 (match-beginning 0))))
1535 ;; Take that stuff off the gud-marker-acc.
1536 (setq gud-marker-acc (substring gud-marker-acc (match-end 0)))
1554 ;; If it does, then keep part of the gud-marker-acc until we get more.
1556 gud-marker-acc)
1558 ;; Everything before the potential marker start can be output.
1561 (substring gud-marker-acc 0
1565 (setq gud-marker-acc (substring gud-marker-acc
1568 ;; In case we know the gud-marker-acc contains no partial annotations:
1570 (setq output (gdb-concat-output output gud-marker-acc))
1571 (setq gud-marker-acc "")))
1820 (el (line-end-position)))
2066 (setq bl (line-beginning-position)
2067 el (line-end-position))
2077 (or gdb-stack-position
2078 (setq gdb-stack-position (make-marker)))
2079 (set-marker gdb-stack-position (point)))
2107 (let ((start (line-beginning-position))
2159 (setq gdb-stack-position nil)
2160 (add-to-list 'overlay-arrow-variable-list 'gdb-stack-position)
2172 (let* ((start (line-beginning-position))
2211 (add-text-properties (line-beginning-position) (line-end-position)
2304 (setq start (line-beginning-position))
2305 (setq end (line-end-position))
2980 (setq gdb-overlay-arrow-position nil)
2982 (delq 'gdb-overlay-arrow-position overlay-arrow-variable-list))
2984 (setq gdb-stack-position nil)
2986 (delq 'gdb-stack-position overlay-arrow-variable-list))
3085 (let ((start (- (line-beginning-position) 1))
3086 (end (+ (line-end-position) 1))
3207 (or gdb-overlay-arrow-position
3208 (setq gdb-overlay-arrow-position (make-marker)))
3209 (set-marker gdb-overlay-arrow-position (point))))))
3260 (setq gdb-overlay-arrow-position nil)
3261 (add-to-list 'overlay-arrow-variable-list 'gdb-overlay-arrow-position)
3347 (if (and (match-string 3) gud-overlay-arrow-position)
3348 (let ((buffer (marker-buffer gud-overlay-arrow-position))
3349 (position (marker-position gud-overlay-arrow-position)))
3358 (set-marker gud-overlay-arrow-position position))))))
3522 (setq start (line-beginning-position))
3523 (setq end (line-end-position))