diff options
| author | Richard M. Stallman | 1998-03-14 04:49:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-03-14 04:49:03 +0000 |
| commit | 17b3e87b83ebea62270485f7481fc8c0c231f83f (patch) | |
| tree | 977e6086eb29a7bc9051407120b08709d7c9e657 | |
| parent | cdef3323137139bfe64f6864ec8edf63d98ad268 (diff) | |
| download | emacs-17b3e87b83ebea62270485f7481fc8c0c231f83f.tar.gz emacs-17b3e87b83ebea62270485f7481fc8c0c231f83f.zip | |
(debug, debugger-env-macro): store-match-data => set-match-data.
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 923595f99ce..ca23b3adc40 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -190,7 +190,7 @@ first will be printed into the backtrace buffer." | |||
| 190 | (erase-buffer) | 190 | (erase-buffer) |
| 191 | (fundamental-mode)) | 191 | (fundamental-mode)) |
| 192 | (kill-buffer debugger-buffer)) | 192 | (kill-buffer debugger-buffer)) |
| 193 | (store-match-data debugger-outer-match-data))) | 193 | (set-match-data debugger-outer-match-data))) |
| 194 | ;; Put into effect the modified values of these variables | 194 | ;; Put into effect the modified values of these variables |
| 195 | ;; in case the user set them with the `e' command. | 195 | ;; in case the user set them with the `e' command. |
| 196 | (setq load-read-function debugger-outer-load-read-function) | 196 | (setq load-read-function debugger-outer-load-read-function) |
| @@ -347,7 +347,7 @@ Applies to the frame whose line point is on in the backtrace." | |||
| 347 | (overriding-terminal-local-map | 347 | (overriding-terminal-local-map |
| 348 | debugger-outer-overriding-terminal-local-map) | 348 | debugger-outer-overriding-terminal-local-map) |
| 349 | (load-read-function debugger-outer-load-read-function)) | 349 | (load-read-function debugger-outer-load-read-function)) |
| 350 | (store-match-data debugger-outer-match-data) | 350 | (set-match-data debugger-outer-match-data) |
| 351 | (prog1 (progn (,@ body)) | 351 | (prog1 (progn (,@ body)) |
| 352 | (setq debugger-outer-match-data (match-data)) | 352 | (setq debugger-outer-match-data (match-data)) |
| 353 | (setq debugger-outer-load-read-function load-read-function) | 353 | (setq debugger-outer-load-read-function load-read-function) |