Lines Matching +defs:speedbar +defs:buffer
53 (defvar gdb-speedbar-auto-raise)
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
184 (buffer-local-value
185 'gud-target-name gud-comint-buffer) "emacs")
251 ([menu-bar buffer] . undefined)
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
409 ;; speedbar support functions and variables.
410 (eval-when-compile (require 'speedbar)) ;For speedbar-with-attached-buffer.
412 (defvar gud-last-speedbar-stackframe nil
416 (defvar gud-speedbar-key-map nil
419 (defun gud-speedbar-item-info ()
423 (speedbar-message "%s: %s" (nth 6 var) (nth 3 var))
424 (speedbar-message "%s" (nth 3 var)))))
426 (defun gud-install-speedbar-variables ()
427 "Install those variables used by speedbar to enhance gud/gdb."
428 (if gud-speedbar-key-map
430 (setq gud-speedbar-key-map (speedbar-make-specialized-keymap))
432 (define-key gud-speedbar-key-map "j" 'speedbar-edit-line)
433 (define-key gud-speedbar-key-map "e" 'speedbar-edit-line)
434 (define-key gud-speedbar-key-map "\C-m" 'speedbar-edit-line)
435 (define-key gud-speedbar-key-map " " 'speedbar-toggle-line-expansion)
436 (define-key gud-speedbar-key-map "D" 'gdb-var-delete)
437 (define-key gud-speedbar-key-map "p" 'gud-pp))
439 (speedbar-add-expansion-list '("GUD" gud-speedbar-menu-items
440 gud-speedbar-key-map
441 gud-expansion-speedbar-buttons))
444 'speedbar-mode-functions-list
445 '("GUD" (speedbar-item-info . gud-speedbar-item-info)
446 (speedbar-line-directory . ignore))))
448 (defvar gud-speedbar-menu-items
449 '(["Jump to stack frame" speedbar-edit-line
450 :visible (not (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
452 ["Edit value" speedbar-edit-line
453 :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
456 :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
458 ["Auto raise frame" gdb-speedbar-auto-raise
459 :style toggle :selected gdb-speedbar-auto-raise
460 :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
462 "Additional menu items to add to the speedbar frame.")
464 ;; Make sure our special speedbar mode is loaded
465 (if (featurep 'speedbar)
466 (gud-install-speedbar-variables)
467 (add-hook 'speedbar-load-hook 'gud-install-speedbar-variables))
469 (defun gud-expansion-speedbar-buttons (directory zero)
470 "Wrapper for call to speedbar-add-expansion-list. DIRECTORY and
472 (gud-speedbar-buttons gud-comint-buffer))
474 (defun gud-speedbar-buttons (buffer)
475 "Create a speedbar display based on the current state of GUD.
477 off the specialized speedbar mode. BUFFER is not used, but are
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)
490 (if gdb-speedbar-auto-raise
491 (raise-frame speedbar-frame))
509 (speedbar-make-tag-line
529 (speedbar-make-tag-line
531 'gdb-speedbar-expand-node varnum
543 (speedbar-make-tag-line
545 'gdb-speedbar-expand-node varnum
555 (equal gud-last-last-frame gud-last-speedbar-stackframe))
558 (gud-gdb-get-stackframe buffer))
560 (t (speedbar-remove-localized-speedbar-support buffer)
562 (erase-buffer)
570 (speedbar-insert-button (car frame)
571 'speedbar-directory-face
573 (speedbar-insert-button
575 'speedbar-file-face
576 'speedbar-highlight-face
581 (setq gud-last-speedbar-stackframe gud-last-last-frame))))
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)
857 ;; gdb speedbar functions
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)
2622 (if (and (boundp 'speedbar-frame)
2623 (string-equal speedbar-initial-expansion-list-name "GUD"))
2624 (speedbar-change-initial-expansion-list
2625 speedbar-previously-used-expansion-list-name))
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)))