[Emacs-diffs] Changes to emacs/lisp/ielm.el

[Stefan Monnier]

Index: emacs/lisp/ielm.el
diff -c emacs/lisp/ielm.el:1.23 emacs/lisp/ielm.el:1.24
*** emacs/lisp/ielm.el:1.23     Sun Feb 24 08:14:07 2002
--- emacs/lisp/ielm.el  Mon Feb 25 02:25:54 2002
***************
*** 103,108 ****
--- 103,111 ----
  (defvar *** nil
    "Third-most-recent value evaluated in IELM.")
  
+ (defvar ielm-match-data nil
+   "Match data saved at the end of last command.")
+ 
  ;;; System variables
  
  (defvar ielm-working-buffer nil
***************
*** 313,318 ****
--- 316,322 ----
                  (let ((*save *)
                        (**save **)
                        (***save ***))
+                   (set-match-data ielm-match-data)
                    (save-excursion
                      (set-buffer ielm-working-buffer)
                      (condition-case err
***************
*** 330,336 ****
                        (error (setq ielm-result (ielm-format-error err))
                               (setq ielm-error-type "Eval error"))
                        (quit (setq ielm-result "Quit during evaluation")
!                             (setq ielm-error-type "Eval error")))))
                (setq ielm-error-type "IELM error")
                (setq ielm-result "More than one sexp in input"))))
  
--- 334,341 ----
                        (error (setq ielm-result (ielm-format-error err))
                               (setq ielm-error-type "Eval error"))
                        (quit (setq ielm-result "Quit during evaluation")
!                             (setq ielm-error-type "Eval error"))))
!                   (setq ielm-match-data (match-data)))
                (setq ielm-error-type "IELM error")
                (setq ielm-result "More than one sexp in input"))))
  
***************
*** 451,456 ****
--- 456,462 ----
    (make-local-variable '**)
    (setq *** nil)
    (make-local-variable '***)
+   (set (make-local-variable 'ielm-match-data) nil)
  
    ;; font-lock support
    (make-local-variable 'font-lock-defaults)