Mercurial > emacs
comparison lisp/emulation/viper-ex.el @ 21163:af585afd4adf
(ex-expand-filsyms): store-match-data => set-match-data.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 14 Mar 1998 04:50:54 +0000 |
parents | 4327dd36b71b |
children | f7e788ea680b |
comparison
equal
deleted
inserted
replaced
21162:6c70fa8e1a5d | 21163:af585afd4adf |
---|---|
869 (while (re-search-forward "%\\|#" nil t) | 869 (while (re-search-forward "%\\|#" nil t) |
870 (let ((data (match-data)) | 870 (let ((data (match-data)) |
871 (char (buffer-substring (match-beginning 0) (match-end 0)))) | 871 (char (buffer-substring (match-beginning 0) (match-end 0)))) |
872 (if (viper-looking-back (concat "\\\\" char)) | 872 (if (viper-looking-back (concat "\\\\" char)) |
873 (replace-match char) | 873 (replace-match char) |
874 (store-match-data data) | 874 (set-match-data data) |
875 (if (string= char "%") | 875 (if (string= char "%") |
876 (replace-match cf) | 876 (replace-match cf) |
877 (replace-match pf))))) | 877 (replace-match pf))))) |
878 (end-of-line) | 878 (end-of-line) |
879 (setq ret (buffer-substring (point-min) (point))) | 879 (setq ret (buffer-substring (point-min) (point))) |