diff options
| author | Richard M. Stallman | 1998-03-14 04:49:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-03-14 04:49:56 +0000 |
| commit | ccb61a97b2642a32f6143d5ec69f2c226ddbdc71 (patch) | |
| tree | f213dfd9c071d016e8c4b1eb1a30d563244a9dec | |
| parent | 17b3e87b83ebea62270485f7481fc8c0c231f83f (diff) | |
| download | emacs-ccb61a97b2642a32f6143d5ec69f2c226ddbdc71.tar.gz emacs-ccb61a97b2642a32f6143d5ec69f2c226ddbdc71.zip | |
(edebug-recursive-edit)
(edebug-outside-excursion): store-match-data => set-match-data.
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 6a0cca00b7f..ba16218def9 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el | |||
| @@ -2877,7 +2877,7 @@ MSG is printed after `::::} '." | |||
| 2877 | ;; Remember selected-window after recursive-edit. | 2877 | ;; Remember selected-window after recursive-edit. |
| 2878 | ;; (setq edebug-inside-window (selected-window)) | 2878 | ;; (setq edebug-inside-window (selected-window)) |
| 2879 | 2879 | ||
| 2880 | (store-match-data edebug-outside-match-data) | 2880 | (set-match-data edebug-outside-match-data) |
| 2881 | 2881 | ||
| 2882 | ;; Recursive edit may have changed buffers, | 2882 | ;; Recursive edit may have changed buffers, |
| 2883 | ;; so set it back before exiting let. | 2883 | ;; so set it back before exiting let. |
| @@ -3536,7 +3536,7 @@ Return the result of the last expression." | |||
| 3536 | 3536 | ||
| 3537 | (set-buffer edebug-buffer) ; why? | 3537 | (set-buffer edebug-buffer) ; why? |
| 3538 | ;; (use-local-map edebug-outside-map) | 3538 | ;; (use-local-map edebug-outside-map) |
| 3539 | (store-match-data edebug-outside-match-data) | 3539 | (set-match-data edebug-outside-match-data) |
| 3540 | ;; Restore outside context. | 3540 | ;; Restore outside context. |
| 3541 | (let (;; (edebug-inside-map (current-local-map)) ;; restore map?? | 3541 | (let (;; (edebug-inside-map (current-local-map)) ;; restore map?? |
| 3542 | (last-command-char edebug-outside-last-command-char) | 3542 | (last-command-char edebug-outside-last-command-char) |