# HG changeset patch # User Juanma Barranquero # Date 1037264224 0 # Node ID 69646014abb3b7cf84be9d7b4793cfe04d922c18 # Parent 21b6ba166466139abb30e3c4b0fda1fbc331c0de Fix feature name in `require'. diff -r 21b6ba166466 -r 69646014abb3 lisp/gdb-ui.el --- a/lisp/gdb-ui.el Thu Nov 14 08:56:31 2002 +0000 +++ b/lisp/gdb-ui.el Thu Nov 14 08:57:04 2002 +0000 @@ -29,7 +29,7 @@ ;;; Code: -(require 'mygud) +(require 'gud) (defcustom gdb-many-windows t "If t, using gdba, start gdb with ancillary buffers visible. @@ -81,7 +81,7 @@ Displayed expressions appear in separate frames. Arrays may be displayed as slices and visualised using the graph program from plotutils if installed. - + If `gdb-many-windows' is set to nil then gdb starts with just two windows : the GUD and the source buffer. @@ -283,9 +283,9 @@ ;; representation) and buffers associated with those objects. ;; -;; +;; ;; gdb-instance objects -;; +;; (defun make-gdb-instance (proc) "Create a gdb instance object from a gdb process." @@ -1299,7 +1299,7 @@ (let ((annotation (substring burst (match-beginning 1) (match-end 1)))) - + ;; Stuff prior to the match is just ordinary output. ;; It is either concatenated to OUTPUT or directed ;; elsewhere. @@ -1311,7 +1311,7 @@ ;; Take that stuff off the burst. (setq burst (substring burst (match-end 0))) - + ;; Parse the tag from the annotation, and maybe its arguments. (string-match "\\(\\S-*\\) ?\\(.*\\)" annotation) (let* ((annotation-type (substring annotation @@ -1416,7 +1416,7 @@ ;; The idle input queue and the output phasing associated with ;; the instance variable `(gdb-instance-output-sink instance)' help ;; us to run commands behind the user's back. -;; +;; ;; Below is the code for specificly managing buffers of output from one ;; command. ;; @@ -1443,7 +1443,7 @@ instance (cons ',name (gdb-instance-pending-triggers instance))))))) - + (defmacro def-gdb-auto-update-handler (name trigger buf-key custom-defun) `(defun ,name () (set-gdb-instance-pending-triggers @@ -1480,7 +1480,7 @@ ;; ;; Breakpoint buffers -;; +;; ;; These display the output of `info breakpoints'. ;; @@ -2103,7 +2103,7 @@ (setq answer (split-window largest new-size)) (set-window-buffer answer buf))) answer)) - + (defun gdb-display-source-buffer (buffer) (set-window-buffer gdb-source-window buffer))