Mercurial > emacs

comparison lisp/gud.el @ 6535:01db0be5fec8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-comint-buffer): Move defvar up.
author Richard M. Stallman <rms@gnu.org>
date Fri, 25 Mar 1994 22:59:12 +0000
parents bd13d17fb770
children eb3c5e5e1ef1
comparison
equal deleted inserted replaced
6534:19aacadabdc0 6535:01db0be5fec8
271 ;; We need to know how much of the completion to chop off. 271 ;; We need to know how much of the completion to chop off.
272 (defvar gud-gdb-complete-break) 272 (defvar gud-gdb-complete-break)
273 273
274 ;; The completion list is constructed by the process filter. 274 ;; The completion list is constructed by the process filter.
275 (defvar gud-gdb-complete-list) 275 (defvar gud-gdb-complete-list)
276
277 (defvar gud-comint-buffer nil)
276 278
277 (defun gud-gdb-complete-command () 279 (defun gud-gdb-complete-command ()
278 "Perform completion on the GDB command preceding point. 280 "Perform completion on the GDB command preceding point.
279 This is implemented using the GDB `complete' command which isn't 281 This is implemented using the GDB `complete' command which isn't
280 available with older versions of GDB." 282 available with older versions of GDB."
872 (make-local-variable 'gud-delete-prompt-marker) 874 (make-local-variable 'gud-delete-prompt-marker)
873 (setq gud-delete-prompt-marker (make-marker)) 875 (setq gud-delete-prompt-marker (make-marker))
874 (run-hooks 'gud-mode-hook) 876 (run-hooks 'gud-mode-hook)
875 ) 877 )
876 878
877 (defvar gud-comint-buffer nil)
878
879 ;; Chop STRING into words separated by SPC or TAB and return a list of them. 879 ;; Chop STRING into words separated by SPC or TAB and return a list of them.
880 (defun gud-chop-words (string) 880 (defun gud-chop-words (string)
881 (let ((i 0) (beg 0) 881 (let ((i 0) (beg 0)
882 (len (length string)) 882 (len (length string))
883 (words nil)) 883 (words nil))