mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(save-match-data): Definition deleted.

Browse source
This commit is contained in:
Richard M. Stallman 1996-09-02 17:03:33 +00:00
parent 8fb25e2680
commit d353f8febf
1 changed files with 0 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/simula.el
View file

@ -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