Mercurial > emacs

comparison lisp/rlogin.el @ 21158:7ba84f53e054

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rlogin-parse-words): store-match-data => set-match-data.
author Richard M. Stallman <rms@gnu.org>
date Sat, 14 Mar 1998 04:46:55 +0000
parents 9880156cf5b6
children aaf6b0301b95
comparison
equal deleted inserted replaced
21157:59f75e1f5541 21158:7ba84f53e054
4 4
5 ;; Author: Noah Friedman 5 ;; Author: Noah Friedman
6 ;; Maintainer: Noah Friedman <friedman@prep.ai.mit.edu> 6 ;; Maintainer: Noah Friedman <friedman@prep.ai.mit.edu>
7 ;; Keywords: unix, comm 7 ;; Keywords: unix, comm
8 8
9 ;; $Id: rlogin.el,v 1.39 1997/05/05 01:00:35 rms Exp $ 9 ;; $Id: rlogin.el,v 1.40 1997/06/23 08:22:53 friedman Exp rms $
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
318 (match-data (match-data))) 318 (match-data (match-data)))
319 (while (string-match "[^ \t\n]+" line posn) 319 (while (string-match "[^ \t\n]+" line posn)
320 (setq list (cons (substring line (match-beginning 0) (match-end 0)) 320 (setq list (cons (substring line (match-beginning 0) (match-end 0))
321 list)) 321 list))
322 (setq posn (match-end 0))) 322 (setq posn (match-end 0)))
323 (store-match-data (match-data)) 323 (set-match-data (match-data))
324 (nreverse list))) 324 (nreverse list)))
325 325
326 (defun rlogin-carriage-filter (string) 326 (defun rlogin-carriage-filter (string)
327 (let* ((point-marker (point-marker)) 327 (let* ((point-marker (point-marker))
328 (end (process-mark (get-buffer-process (current-buffer)))) 328 (end (process-mark (get-buffer-process (current-buffer))))