Mercurial > emacs
comparison lisp/allout.el @ 21151:79a284372cfb
(outline-end-of-prefix): store-match-data => set-match-data.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 14 Mar 1998 04:41:23 +0000 |
| parents | ac1673121774 |
| children | eb628ee6aa2b |
comparison
equal
deleted
inserted
replaced
| 21150:a9e9f674c9c9 | 21151:79a284372cfb |
|---|---|
| 1646 (goto-char (match-end 0)) | 1646 (goto-char (match-end 0)) |
| 1647 (if ignore-decorations | 1647 (if ignore-decorations |
| 1648 t | 1648 t |
| 1649 (while (looking-at "[0-9]") (forward-char 1)) | 1649 (while (looking-at "[0-9]") (forward-char 1)) |
| 1650 (if (and (not (eolp)) (looking-at "\\s-")) (forward-char 1))) | 1650 (if (and (not (eolp)) (looking-at "\\s-")) (forward-char 1))) |
| 1651 (store-match-data match-data)) | 1651 (set-match-data match-data)) |
| 1652 ;; Reestablish where we are: | 1652 ;; Reestablish where we are: |
| 1653 (outline-current-depth))) | 1653 (outline-current-depth))) |
| 1654 ;;;_ > outline-current-bullet-pos () | 1654 ;;;_ > outline-current-bullet-pos () |
| 1655 (defun outline-current-bullet-pos () | 1655 (defun outline-current-bullet-pos () |
| 1656 "Return position of current \(visible) topic's bullet." | 1656 "Return position of current \(visible) topic's bullet." |