(save-match-data): Definition deleted.

1 files changed, 0 insertions, 11 deletions

diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index 661fc68f45e..31cae0b0fc5 100644
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -1621,17 +1621,6 @@ If not nil and not t, move to limit of search and return nil."
     ;; save point for later calls to this function
     (setq simula-find-comment-point (if end (point) -1))
     (and end (cons start end))))
-
-(if (not (fboundp 'save-match-data))
-    (defmacro save-match-data (&rest body)
-      "Execute the BODY forms, restoring the global value of the match data."
-      (let ((original (make-symbol "match-data")))
-        (list
-         'let (list (list original '(match-data)))
-         (list 'unwind-protect
-               (cons 'progn body)
-               (list 'store-match-data original))))))
-
 
 ;; defuns for submitting bug reports