diff options
| author | Richard M. Stallman | 1996-08-29 01:54:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-08-29 01:54:43 +0000 |
| commit | ecc06779805efb671c41c524e24bc6ddd128f11f (patch) | |
| tree | 800564151402e81fce2fe8e7f0b9fb270672f0b2 | |
| parent | 7fd5b62d23d331307a167c8b75b3a2b7ffa82fe0 (diff) | |
| download | emacs-ecc06779805efb671c41c524e24bc6ddd128f11f.tar.gz emacs-ecc06779805efb671c41c524e24bc6ddd128f11f.zip | |
(save-match-data): Fix previous change.
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 31f9e05377f..b2ce0d73125 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -748,10 +748,10 @@ Wildcards and redirection are handled as usual in the shell." | |||
| 748 | ;; now, but it generates slower code. | 748 | ;; now, but it generates slower code. |
| 749 | (defmacro save-match-data (&rest body) | 749 | (defmacro save-match-data (&rest body) |
| 750 | "Execute the BODY forms, restoring the global value of the match data." | 750 | "Execute the BODY forms, restoring the global value of the match data." |
| 751 | `(let ((save-match-data-variable '(match-data))) | 751 | `(let ((save-match-data-internal '(match-data))) |
| 752 | (unwind-protect | 752 | (unwind-protect |
| 753 | (progn ,@body) | 753 | (progn ,@body) |
| 754 | (store-match-data save-match-data-variable))))) | 754 | (store-match-data save-match-data-internal)))) |
| 755 | 755 | ||
| 756 | (defun match-string (num &optional string) | 756 | (defun match-string (num &optional string) |
| 757 | "Return string of text matched by last search. | 757 | "Return string of text matched by last search. |