Mercurial > hg > xemacs-beta

comparison lisp/eterm/tgud.el @ 76:c0c698873ce1 r20-0b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b33
author cvs
date Mon, 13 Aug 2007 09:05:10 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
75:a4e0195b387b 76:c0c698873ce1
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)