Lines Matching +defs:buffer +defs:menu
36 ;; and added a menu. Brian D. Carlstrom <bdc@ai.mit.edu> combined the IRIX
85 (defvar gud-comint-buffer nil)
87 (defvar gud-keep-buffer nil)
107 ;; Use existing Info buffer, if possible.
112 (display-buffer-reuse-frames t))
116 (if (eq (window-buffer window) (get-buffer "*info*"))
127 (not (or (eq (buffer-local-value 'major-mode (window-buffer)) 'speedbar-mode)
133 (with-current-buffer gud-comint-buffer
138 (easy-mmode-defmap gud-menu-map
140 ([tooltips] menu-item "Toggle GUD tooltips" gud-tooltip-mode
148 ([run] menu-item "Run" gud-run
151 ([go] menu-item (if gdb-active-process "Continue" "Run") gud-go
154 ([stop] menu-item "Stop" gud-stop-subjob
158 ([until] menu-item "Continue to selection" gud-until
162 ([remove] menu-item "Remove Breakpoint" gud-remove
165 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak
169 ([break] menu-item "Set Breakpoint" gud-break
172 ([up] menu-item "Up Stack" gud-up
176 ([down] menu-item "Down Stack" gud-down
180 ([pp] menu-item "Print S-expression" gud-pp
184 (buffer-local-value
185 'gud-target-name gud-comint-buffer) "emacs")
187 ([print*] menu-item "Print Dereference" gud-pstar
190 ([print] menu-item "Print Expression" gud-print
192 ([watch] menu-item "Watch Expression" gud-watch
195 ([finish] menu-item "Finish Function" gud-finish
199 ([stepi] menu-item "Step Instruction" gud-stepi
202 ([nexti] menu-item "Next Instruction" gud-nexti
205 ([step] menu-item "Step Line" gud-step
207 ([next] menu-item "Next Line" gud-next
209 ([cont] menu-item "Continue" gud-cont
217 `(([menu-bar debug] . ("Gud" . ,gud-menu-map)))
218 ;; Get tool bar like functionality from the menu bar on a text only
221 `(([menu-bar down]
223 ([menu-bar up]
225 ([menu-bar finish]
227 ([menu-bar step]
229 ([menu-bar next]
231 ([menu-bar until] menu-item
234 ([menu-bar cont] menu-item
237 ([menu-bar run] menu-item
240 ([menu-bar go] menu-item
244 ([menu-bar stop] menu-item
248 ([menu-bar print]
250 ([menu-bar tools] . undefined)
251 ([menu-bar buffer] . undefined)
252 ([menu-bar options] . undefined)
253 ([menu-bar edit] . undefined)
254 ([menu-bar file] . undefined))))
289 (tool-bar-local-item-from-menu
315 ;; Copy `gud-minor-mode' to the found buffer to turn on the menu.
316 (with-current-buffer buf
324 (make-local-variable 'gud-keep-buffer))
356 The `current' source file is the file of the current buffer (if
358 step (if we're in the GUD buffer).
359 The `current' line is that of the current buffer (if we're in a
361 we're in the GUD buffer)."
399 ;; whatever the method *returns* is displayed in the buffer; thus, you
403 ;; The job of the find-file method is to visit and return the buffer indicated
410 (eval-when-compile (require 'speedbar)) ;For speedbar-with-attached-buffer.
439 (speedbar-add-expansion-list '("GUD" gud-speedbar-menu-items
448 (defvar gud-speedbar-menu-items
450 :visible (not (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
453 :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
456 :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
460 :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
462 "Additional menu items to add to the speedbar frame.")
472 (gud-speedbar-buttons gud-comint-buffer))
474 (defun gud-speedbar-buttons (buffer)
479 (when (and gud-comint-buffer
480 ;; gud-comint-buffer might be killed
481 (buffer-name gud-comint-buffer))
482 (let* ((minor-mode (with-current-buffer buffer gud-minor-mode))
483 (window (get-buffer-window (current-buffer) 0))
488 (erase-buffer)
558 (gud-gdb-get-stackframe buffer))
560 (t (speedbar-remove-localized-speedbar-support buffer)
562 (erase-buffer)
612 (make-variable-buffer-local 'gud-marker-acc)
715 "Run gdb on program FILE in buffer *gud-FILE*.
729 (when (and gud-comint-buffer
730 (buffer-name gud-comint-buffer)
731 (get-buffer-process gud-comint-buffer)
732 (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)))
775 ;; in the GUD buffer by using a GDB command designed just for Emacs.
795 ;; Used by gud-watch in mini-buffer.
797 ;; Used in GUD buffer.
799 (setq command (buffer-substring (comint-line-beginning-position) end))))
806 (current-buffer)
861 (speedbar-with-attached-buffer
879 (defun gud-gdb-get-stackframe (buffer)
883 (gud-gdb-run-command-fetch-lines "server backtrace" buffer)))
913 ;(defun gud-gdb-selected-frame-info (buffer)
917 (defun gud-gdb-run-command-fetch-lines (command buffer &optional skip)
919 BUFFER is the current buffer which may be the GUD buffer in which to run.
921 (with-current-buffer gud-comint-buffer
922 (if (and (eq gud-comint-buffer buffer)
941 (accept-process-output (get-buffer-process gud-comint-buffer)))
1003 "Run sdb on program FILE in buffer *gud-FILE*.
1216 (process-send-string (get-buffer-process gud-comint-buffer)
1291 "Run dbx on program FILE in buffer *gud-FILE*.
1327 (process-send-string (get-buffer-process gud-comint-buffer)
1335 (process-send-string (get-buffer-process gud-comint-buffer)
1401 "Run xdb on program FILE in buffer *gud-FILE*.
1533 "Run perldb on program FILE in buffer *gud-FILE*.
1538 (concat (or (buffer-file-name) "-e 0") " "))))
1640 "Run pdb on program FILE in buffer `*gud-FILE*'.
1835 (defvar gud-jdb-analysis-buffer nil)
1960 ;; that FILE contains a legal Java program. BUF is a scratch buffer used
1964 (set-buffer buf)
1994 (setq p (concat (buffer-substring s (point)) "."))
2024 l (nconc l (list (concat p (buffer-substring s (point)))))))
2042 (gud-jdb-analyze-source gud-jdb-analysis-buffer file)))
2048 (setq gud-jdb-analysis-buffer (get-buffer-create " *gud-jdb-scratch*"))
2055 (kill-buffer gud-jdb-analysis-buffer)
2056 (setq gud-jdb-analysis-buffer nil)))
2097 (kill-buffer (current-buffer))
2268 "Run jdb with command line COMMAND-LINE in a buffer.
2269 The buffer is named \"*gud*\" if no initial class is given or
2348 ;; buffer; we have other ways of knowing the command has completed.
2350 ;; If the buffer looks like this:
2356 ;; source file to set a breakpoint, we want the buffer to end up like
2367 ;; process-send-string, and it never enters the buffer. However,
2401 interaction buffer and any source buffer GUD visits due to a breakpoint stop
2405 GUD buffer, the current file and line are those of the last breakpoint or
2406 step. In a source buffer, they are the buffer's file and current line.
2411 in the gud buffer.
2434 All the keystrokes above are accessible in the GUD buffer
2455 (add-hook 'kill-buffer-hook 'gud-kill-buffer-hook nil t))
2467 "The apparent name of the program being debugged in a gud buffer.")
2473 ;; for local variables in the debugger buffer.
2501 (existing-buffer (get-buffer (concat "*gud" filepart "*"))))
2502 (pop-to-buffer (concat "*gud" filepart "*"))
2503 (when (and existing-buffer (get-buffer-process existing-buffer))
2505 ;; Set the dir, in case the buffer already existed with a different dir.
2536 (set-process-filter (get-buffer-process (current-buffer)) 'gud-filter)
2537 (set-process-sentinel (get-buffer-process (current-buffer)) 'gud-sentinel)
2538 (gud-set-buffer))
2540 (defun gud-set-buffer ()
2542 (setq gud-comint-buffer (current-buffer))))
2549 ;; into the buffer. The hard work is done by the method that is
2553 ;; Here's where the actual buffer insertion is done
2555 (if (buffer-name (process-buffer proc))
2571 (with-current-buffer (process-buffer proc)
2575 (if (marker-buffer gud-delete-prompt-marker)
2586 ;; and (2) this buffer is on the screen.
2590 (get-buffer-window (current-buffer)))))
2598 ;; in case the source file is our current buffer.
2602 ;; We have to be in the proper buffer, (process-buffer proc),
2604 (with-current-buffer (process-buffer proc)
2617 (cond ((null (buffer-name (process-buffer proc)))
2618 ;; buffer killed
2621 (set-process-buffer proc nil)
2632 (if (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
2636 (let* ((obuf (current-buffer)))
2638 ;; process-buffer is current-buffer
2642 (set-buffer (process-buffer proc))
2653 ;; If buffer and mode line will show that the process
2657 ;; Restore old buffer, but don't restore old point
2658 ;; if obuf is the gud buffer.
2659 (set-buffer obuf))))))
2661 (defun gud-kill-buffer-hook ()
2664 (kill-process (get-buffer-process (current-buffer)))
2668 (dolist (buffer (buffer-list))
2669 (unless (eq buffer gud-comint-buffer)
2670 (with-current-buffer buffer
2680 (gud-set-buffer)
2685 ;; Make sure the file named TRUE-FILE is in a buffer that appears on the screen
2687 ;; Put the overlay-arrow on the line LINE in that buffer.
2689 ;; region-restriction if that's possible. We use an explicit display-buffer
2694 (buffer
2695 (with-current-buffer gud-comint-buffer
2697 (window (and buffer (or (get-buffer-window buffer)
2699 (unless (gdb-display-source-buffer buffer)
2700 (gdb-display-buffer buffer nil)))
2701 (display-buffer buffer))))
2703 (if buffer
2705 (with-current-buffer buffer
2706 (unless (or (verify-visited-file-modtime buffer) gud-keep-buffer)
2709 (buffer-name)))
2710 (revert-buffer t t)
2711 (setq gud-keep-buffer t)))
2718 (set-marker gud-overlay-arrow-position (point) (current-buffer))
2736 ;; keystroke is from the GUD buffer itself (via major-mode binding)
2737 ;; or a C buffer. In the former case, we want to supply data from
2741 (let ((insource (not (eq (current-buffer) gud-comint-buffer)))
2752 (buffer-file-name)
2757 (buffer-file-name)
2761 (buffer-file-name)
2779 (buffer-file-name)
2795 "Return a string containing the core-address found in the buffer at point."
2802 (buffer-substring found
2812 (buffer-substring begin (point))))))))
2823 (gud-set-buffer)
2824 (let ((proc (get-buffer-process gud-comint-buffer)))
2825 (or proc (error "Current buffer has no process"))
2828 (set-buffer gud-comint-buffer)
2858 (buffer-substring (region-beginning) (region-end))
2863 (with-current-buffer gud-comint-buffer
2865 (goto-char (process-mark (get-buffer-process gud-comint-buffer)))
2870 (unless (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
2893 (if (member (buffer-substring (car test-expr) (cdr test-expr))
2902 (buffer-substring (car expr) (cdr expr)))))
2907 the current buffer that marks the beginning of the expr and the cdr specifies
2939 the current buffer that marks the beginning of the expr and the cdr specifies
2952 the current buffer that marks the beginning of the expr and the cdr specifies
2987 specifies the point in the current buffer that marks the beginning of the
3022 If F is visited by a buffer and its mode is CC-mode(Java),
3030 (fbuffer (get-file-buffer f))
3035 ;; returns the buffer position of same
3048 ;; if f is visited by a java(cc-mode) buffer, walk up the
3054 (set-buffer fbuffer)
3255 (if (and gud-comint-buffer
3256 (buffer-name gud-comint-buffer); gud-comint-buffer might be killed
3257 (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
3261 (dolist (buffer (buffer-list))
3262 (unless (eq buffer gud-comint-buffer)
3263 (with-current-buffer buffer
3266 (buffer-name))))
3282 '((eq (tooltip-event-buffer gud-tooltip-event)
3283 (marker-buffer gud-overlay-arrow-position)))
3287 only tooltips in the buffer containing the overlay arrow."
3313 (dolist (buffer (buffer-list))
3315 (set-buffer buffer)
3322 "Locally t in a buffer if tooltip processing of mouse motion is enabled.")
3326 ;; which does a set-buffer, like the summary buffer of Gnus. Calling
3327 ;; set-buffer prevents redisplay optimizations, so every mouse motion
3331 "Activate/deactivate mouse motion events for the current buffer.
3380 ; the tooltip incompletely and spill over into the gud buffer.
3410 gud-comint-buffer
3411 (buffer-name gud-comint-buffer); might be killed
3412 (setq process (get-buffer-process gud-comint-buffer))
3422 (with-current-buffer
3423 (window-buffer (let ((mouse (mouse-position)))