Mercurial > emacs
comparison lisp/imenu.el @ 16244:2d2356e78b9e
(imenu--generic-function): Use markers for positions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 19 Sep 1996 04:25:40 +0000 |
| parents | 52620db97569 |
| children | 00bece0cd6c2 |
comparison
equal
deleted
inserted
replaced
| 16243:b311d8755530 | 16244:2d2356e78b9e |
|---|---|
| 638 (let ((menu-title (car pat)) | 638 (let ((menu-title (car pat)) |
| 639 (regexp (cadr pat)) | 639 (regexp (cadr pat)) |
| 640 (index (caddr pat))) | 640 (index (caddr pat))) |
| 641 (if (and (not found) ; Only allow one entry; | 641 (if (and (not found) ; Only allow one entry; |
| 642 (looking-at regexp)) | 642 (looking-at regexp)) |
| 643 (let ((beg (match-beginning index)) | 643 (let ((beg (make-marker)) |
| 644 (end (match-end index))) | 644 (end (match-end index))) |
| 645 (set-marker beg (match-beginning index)) | |
| 645 (setq found t) | 646 (setq found t) |
| 646 (push | 647 (push |
| 647 (cons (buffer-substring-no-properties beg end) beg) | 648 (cons (buffer-substring-no-properties beg end) beg) |
| 648 (cdr | 649 (cdr |
| 649 (or (assoc menu-title index-alist) | 650 (or (assoc menu-title index-alist) |