aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1998-03-14 04:53:37 +0000
committerRichard M. Stallman1998-03-14 04:53:37 +0000
commitaded9c1ea2647e2d232b1e3b8a8c050461c12539 (patch)
treebd9fb95ac7362b286c784ac4222d119ae856599e
parenteef4375a10a6deaf85003f95ba7364ca9aeaeae0 (diff)
downloademacs-aded9c1ea2647e2d232b1e3b8a8c050461c12539.tar.gz
emacs-aded9c1ea2647e2d232b1e3b8a8c050461c12539.zip
(simula-match-string-or-comment): store-match-data => set-match-data.
-rw-r--r--lisp/progmodes/simula.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index 9ea3d52836c..ec01c1e77db 100644
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -1703,7 +1703,7 @@ If not nil and not t, move to limit of search and return nil."
1703 limit t) 1703 limit t)
1704 (when (match-beginning 3) 1704 (when (match-beginning 3)
1705 ;; We've matched an end-comment. Yuck. Find the extent of it. 1705 ;; We've matched an end-comment. Yuck. Find the extent of it.
1706 (store-match-data 1706 (set-match-data
1707 (list (point) 1707 (list (point)
1708 (if (re-search-forward "\\<\\(end\\|else\\|when\\|otherwise\\)\\>\\|;" 1708 (if (re-search-forward "\\<\\(end\\|else\\|when\\|otherwise\\)\\>\\|;"
1709 limit 'move) 1709 limit 'move)