Lines Matching +defs:buffer +defs:display +defs:table
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
141 :enable (and (not emacs-basic-display)
142 (display-graphic-p)
184 (buffer-local-value
185 'gud-target-name gud-comint-buffer) "emacs")
251 ([menu-bar buffer] . undefined)
267 (if (display-graphic-p)
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)."
372 ;; Where gud-display-frame should put the debugging arrow; a cons of
377 ;; Used by gud-refresh, which should cause gud-display-frame to redisplay
397 ;; strings and set the global gud-last-frame to indicate what display
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.
414 t means that there is no stack, and we are in display-file mode.")
417 "Keymap used when in the buffers display mode.")
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)
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.
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)))
744 (gud-def gud-step "step %p" "\C-s" "Step one source line with display.")
745 (gud-def gud-stepi "stepi %p" "\C-i" "Step one instruction with display.")
748 (gud-def gud-cont "cont" "\C-r" "Continue with display.")
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*.
1013 (error "The sdb support requires a valid tags table to work"))
1021 (gud-def gud-step "s %p" "\C-s" "Step one source line with display.")
1022 (gud-def gud-stepi "i %p" "\C-i" "Step one instruction with display.")
1024 (gud-def gud-cont "c" "\C-r" "Continue with display.")
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)
1339 (gud-def gud-step "step %p" "\C-s" "Step one line with display.")
1340 (gud-def gud-stepi "stepi %p" "\C-i" "Step one instruction with display.")
1343 (gud-def gud-cont "cont" "\C-r" "Continue with display.")
1401 "Run xdb on program FILE in buffer *gud-FILE*.
1417 (gud-def gud-step "s %p" "\C-s" "Step one line with display.")
1419 (gud-def gud-cont "c" "\C-r" "Continue with display.")
1533 "Run perldb on program FILE in buffer *gud-FILE*.
1538 (concat (or (buffer-file-name) "-e 0") " "))))
1546 (gud-def gud-step "s" "\C-s" "Step one source line with display.")
1548 (gud-def gud-cont "c" "\C-r" "Continue with display.")
1640 "Run pdb on program FILE in buffer `*gud-FILE*'.
1651 (gud-def gud-step "step" "\C-s" "Step one source line with display.")
1653 (gud-def gud-cont "continue" "\C-r" "Continue with display.")
1824 the source code display in sync with the debugging session.")
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))
2195 ;; for instance, are called <init> in the symbol table.)
2268 "Run jdb with command line COMMAND-LINE in a buffer.
2269 The buffer is named \"*gud*\" if no initial class is given or
2309 (gud-def gud-step "step" "\C-s" "Step one source line with display.")
2311 (gud-def gud-cont "cont" "\C-r" "Continue with display.")
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.
2419 around point, and sends it to the debugger for value display.
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)
2584 ;; Don't display the specified file
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.
2601 (gud-display-frame))
2602 ;; We have to be in the proper buffer, (process-buffer proc),
2604 (with-current-buffer (process-buffer proc)
2605 (gud-display-frame))))
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
2675 (defun gud-display-frame ()
2680 (gud-set-buffer)
2681 (gud-display-line (car gud-last-frame) (cdr gud-last-frame))
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
2692 (defun gud-display-line (true-file line)
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)
2843 "Fix up a possibly garbled display, and redraw the arrow."
2846 (gud-display-frame)
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)
3103 (defvar gdb-script-mode-syntax-table
3104 (let ((st (make-syntax-table)))
3127 'syntax-table (eval-when-compile
3130 ;; syntax-table property.
3239 "Toggle the display of GUD tooltips."
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))))
3281 (defcustom gud-tooltip-display
3282 '((eq (tooltip-event-buffer gud-tooltip-event)
3283 (marker-buffer gud-overlay-arrow-position)))
3286 Forms in the list are combined with AND. The default is to display
3287 only tooltips in the buffer containing the overlay arrow."
3300 (define-obsolete-variable-alias 'tooltip-gud-display
3301 'gud-tooltip-display "22.1")
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.
3361 "The mouse movement event that led to a tooltip display.
3378 ; This will only display data that comes in one chunk.
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))
3416 (eval (cons 'and gud-tooltip-display)))))
3422 (with-current-buffer
3423 (window-buffer (let ((mouse (mouse-position)))