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))) |