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 |