# HG changeset patch # User Richard M. Stallman # Date 889851217 0 # Node ID 3b9934a8d938c1d73e0cce510cb2da3dedf8f714 # Parent 1d2bd6adba3809c11cf29ba21a871e095d6f468b (simula-match-string-or-comment): store-match-data => set-match-data. diff -r 1d2bd6adba38 -r 3b9934a8d938 lisp/progmodes/simula.el --- a/lisp/progmodes/simula.el Sat Mar 14 04:53:12 1998 +0000 +++ b/lisp/progmodes/simula.el Sat Mar 14 04:53:37 1998 +0000 @@ -1703,7 +1703,7 @@ 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)