Mercurial > hg > xemacs-beta

comparison lisp/eterm/tgud.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
283 283
284 ;; The completion process filter is installed temporarily to slurp the 284 ;; The completion process filter is installed temporarily to slurp the
285 ;; output of GDB up to the next prompt and build the completion list. 285 ;; output of GDB up to the next prompt and build the completion list.
286 (defun tgud-gdb-complete-filter (string) 286 (defun tgud-gdb-complete-filter (string)
287 (setq string (concat tgud-gdb-complete-string string)) 287 (setq string (concat tgud-gdb-complete-string string))
288 (while (string-match "\n" string) 288 (while (string-match "\r?\n" string)
289 (setq tgud-gdb-complete-list 289 (setq tgud-gdb-complete-list
290 (cons (substring string tgud-gdb-complete-break (match-beginning 0)) 290 (cons (substring string tgud-gdb-complete-break (match-beginning 0))
291 tgud-gdb-complete-list)) 291 tgud-gdb-complete-list))
292 (setq string (substring string (match-end 0)))) 292 (setq string (substring string (match-end 0))))
293 (if (string-match term-prompt-regexp string) 293 (if (string-match term-prompt-regexp string)