Mercurial > emacs
comparison lisp/man.el @ 52330:40544f522d02
(Man-default-man-entry): Don't whizz past the section number
before looking for it.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 25 Aug 2003 03:48:22 +0000 |
| parents | c97fe9557de4 |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 52329:06717a26a254 | 52330:40544f522d02 |
|---|---|
| 572 (setq word (buffer-substring-no-properties start (point)))) | 572 (setq word (buffer-substring-no-properties start (point)))) |
| 573 (if (string-match "[._]+$" word) | 573 (if (string-match "[._]+$" word) |
| 574 (setq word (substring word 0 (match-beginning 0)))) | 574 (setq word (substring word 0 (match-beginning 0)))) |
| 575 ;; If looking at something like ioctl(2) or brc(1M), include the | 575 ;; If looking at something like ioctl(2) or brc(1M), include the |
| 576 ;; section number in the returned value. Remove text properties. | 576 ;; section number in the returned value. Remove text properties. |
| 577 (forward-word 1) | |
| 578 (concat word | 577 (concat word |
| 579 (if (looking-at | 578 (if (looking-at |
| 580 (concat "[ \t]*([ \t]*\\(" Man-section-regexp "\\)[ \t]*)")) | 579 (concat "[ \t]*([ \t]*\\(" Man-section-regexp "\\)[ \t]*)")) |
| 581 (format "(%s)" (match-string-no-properties 1))))))) | 580 (format "(%s)" (match-string-no-properties 1))))))) |
| 582 | 581 |