comparison lisp/progmodes/gud.el @ 53536:479dc1181cb1

(gdb-first-prompt): Renamed from gdb-first-pre-prompt
author Nick Roberts <nickrob@snap.net.nz>
date Wed, 07 Jan 2004 23:22:34 +0000
parents 03788e9f1efb
children d19a78b5f1e5
comparison
equal deleted inserted replaced
53535:a406177e7f26 53536:479dc1181cb1
506 (file-newer-than-file-p f file))) 506 (file-newer-than-file-p f file)))
507 (setq file f))))))) 507 (setq file f)))))))
508 gud-minibuffer-local-map nil 508 gud-minibuffer-local-map nil
509 hist-sym))) 509 hist-sym)))
510 510
511 (defvar gdb-first-pre-prompt t) 511 (defvar gdb-first-prompt t)
512 512
513 ;;;###autoload 513 ;;;###autoload
514 (defun gdb (command-line) 514 (defun gdb (command-line)
515 "Run gdb on program FILE in buffer *gud-FILE*. 515 "Run gdb on program FILE in buffer *gud-FILE*.
516 The directory containing FILE becomes the initial working directory 516 The directory containing FILE becomes the initial working directory
538 (gud-def gud-run "run" nil "Run the program.") 538 (gud-def gud-run "run" nil "Run the program.")
539 539
540 (local-set-key "\C-i" 'gud-gdb-complete-command) 540 (local-set-key "\C-i" 'gud-gdb-complete-command)
541 (setq comint-prompt-regexp "^(.*gdb[+]?) *") 541 (setq comint-prompt-regexp "^(.*gdb[+]?) *")
542 (setq paragraph-start comint-prompt-regexp) 542 (setq paragraph-start comint-prompt-regexp)
543 (setq gdb-first-pre-prompt t) 543 (setq gdb-first-prompt t)
544 (run-hooks 'gdb-mode-hook)) 544 (run-hooks 'gdb-mode-hook))
545 545
546 ;; One of the nice features of GDB is its impressive support for 546 ;; One of the nice features of GDB is its impressive support for
547 ;; context-sensitive command completion. We preserve that feature 547 ;; context-sensitive command completion. We preserve that feature
548 ;; in the GUD buffer by using a GDB command designed just for Emacs. 548 ;; in the GUD buffer by using a GDB command designed just for Emacs.