Lines Matching +defs:overlay +defs:arrow
120 (defvar gud-old-arrow nil)
121 (defvar gdb-overlay-arrow-position nil)
565 gud-old-arrow nil)
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)))
622 with mouse-3 on the fringe/margin or dragging the arrow
627 (gdb-if-arrow gud-overlay-arrow-position
630 (gdb-if-arrow gdb-overlay-arrow-position
639 on the fringe/margin or dragging the arrow with C-mouse-1 (default bindings).
645 (gdb-if-arrow gud-overlay-arrow-position
650 (gdb-if-arrow gdb-overlay-arrow-position
1313 (setq gud-old-arrow gud-overlay-arrow-position)
1314 (setq gud-overlay-arrow-position nil)
1315 (setq gdb-overlay-arrow-position nil)
1349 (setq gud-overlay-arrow-position nil)
1350 (setq gdb-overlay-arrow-position nil)
1352 (setq gud-old-arrow nil)
1402 (unless (or gud-overlay-arrow-position gud-last-frame)
1404 (setq gud-overlay-arrow-position gud-old-arrow)
1768 ;; Bitmap for gud-overlay-arrow in fringe
1920 (dolist (overlay (overlays-in pos pos))
1921 (when (overlay-get overlay 'put-break)
1922 (setq obj (overlay-get overlay 'before-string))))
2124 '((overlay-arrow . hollow-right-triangle))))))
2160 (add-to-list 'overlay-arrow-variable-list 'gdb-stack-position)
2161 (setq truncate-lines t) ;; Make it easier to see overlay arrow.
2980 (setq gdb-overlay-arrow-position nil)
2981 (setq overlay-arrow-variable-list
2982 (delq 'gdb-overlay-arrow-position overlay-arrow-variable-list))
2983 (setq fringe-indicator-alist '((overlay-arrow . right-triangle)))
2985 (setq overlay-arrow-variable-list
2986 (delq 'gdb-stack-position overlay-arrow-variable-list))
3058 PUTSTRING is displayed by putting an overlay into the current buffer with a
3064 (let ((overlay (make-overlay pos pos buffer))
3070 (overlay-put overlay 'put-break t)
3071 (overlay-put overlay 'before-string string))))
3080 (dolist (overlay (overlays-in start end))
3081 (when (overlay-get overlay 'put-break)
3082 (delete-overlay overlay))))
3172 ;; window-start but keep the overlay arrow/current line visible.
3206 '((overlay-arrow . hollow-right-triangle))))
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)))
3357 '((overlay-arrow . hollow-right-triangle))))
3358 (set-marker gud-overlay-arrow-position position))))))