Commit aded9c1e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(simula-match-string-or-comment): store-match-data => set-match-data.

parent eef4375a
......@@ -1703,7 +1703,7 @@ If not nil and not t, move to limit of search and return nil."
limit t)
(when (match-beginning 3)
;; We've matched an end-comment. Yuck. Find the extent of it.
(store-match-data
(set-match-data
(list (point)
(if (re-search-forward "\\<\\(end\\|else\\|when\\|otherwise\\)\\>\\|;"
limit 'move)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment