Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 21167:1d2bd6adba38
(fortran-match-!-comment): store-match-data => set-match-data.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 14 Mar 1998 04:53:12 +0000 |
| parents | 65ac561ad75c |
| children | d68f866455c6 |
comparison
equal
deleted
inserted
replaced
| 21166:acffd9b0ac6d | 21167:1d2bd6adba38 |
|---|---|
| 1496 (while (and (setq found (search-forward "!" limit t)) | 1496 (while (and (setq found (search-forward "!" limit t)) |
| 1497 (fortran-is-in-string-p (point)))) | 1497 (fortran-is-in-string-p (point)))) |
| 1498 (if (not found) | 1498 (if (not found) |
| 1499 nil | 1499 nil |
| 1500 ;; Cheaper than `looking-at' "!.*". | 1500 ;; Cheaper than `looking-at' "!.*". |
| 1501 (store-match-data | 1501 (set-match-data |
| 1502 (list (1- (point)) (progn (end-of-line) (min (point) limit)))) | 1502 (list (1- (point)) (progn (end-of-line) (min (point) limit)))) |
| 1503 t))) | 1503 t))) |
| 1504 | 1504 |
| 1505 ;; The above function is about 10% faster than the below... | 1505 ;; The above function is about 10% faster than the below... |
| 1506 ;;(defun fortran-match-!-comment (limit) | 1506 ;;(defun fortran-match-!-comment (limit) |