diff options
| author | Richard M. Stallman | 1996-09-02 17:03:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-09-02 17:03:33 +0000 |
| commit | d353f8febfdb7b510bc8b6cb005ff2018e2a9308 (patch) | |
| tree | 233a5f3213b81a5aac3788cfd616ae202e7e6cb4 | |
| parent | 8fb25e26807a4d653d7caf4617d020371b11208d (diff) | |
| download | emacs-d353f8febfdb7b510bc8b6cb005ff2018e2a9308.tar.gz emacs-d353f8febfdb7b510bc8b6cb005ff2018e2a9308.zip | |
(save-match-data): Definition deleted.
| -rw-r--r-- | lisp/progmodes/simula.el | 11 |
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." | |||
| 1621 | ;; save point for later calls to this function | 1621 | ;; save point for later calls to this function |
| 1622 | (setq simula-find-comment-point (if end (point) -1)) | 1622 | (setq simula-find-comment-point (if end (point) -1)) |
| 1623 | (and end (cons start end)))) | 1623 | (and end (cons start end)))) |
| 1624 | |||
| 1625 | (if (not (fboundp 'save-match-data)) | ||
| 1626 | (defmacro save-match-data (&rest body) | ||
| 1627 | "Execute the BODY forms, restoring the global value of the match data." | ||
| 1628 | (let ((original (make-symbol "match-data"))) | ||
| 1629 | (list | ||
| 1630 | 'let (list (list original '(match-data))) | ||
| 1631 | (list 'unwind-protect | ||
| 1632 | (cons 'progn body) | ||
| 1633 | (list 'store-match-data original)))))) | ||
| 1634 | |||
| 1635 | 1624 | ||
| 1636 | ;; defuns for submitting bug reports | 1625 | ;; defuns for submitting bug reports |
| 1637 | 1626 | ||