Mercurial > emacs
comparison lisp/man.el @ 52636:87642088b41e
(Man-default-man-entry): Remove the leading `*' from the word at point.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 28 Sep 2003 08:30:20 +0000 |
| parents | 695cf19ef79e |
| children | 79093b308520 |
comparison
equal
deleted
inserted
replaced
| 52635:9963e9da5850 | 52636:87642088b41e |
|---|---|
| 570 (let ((start (point))) | 570 (let ((start (point))) |
| 571 (skip-chars-forward "-a-zA-Z0-9._+:") | 571 (skip-chars-forward "-a-zA-Z0-9._+:") |
| 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 *strcat(... , remove the '*' | |
| 576 (if (string-match "^*" word) | |
| 577 (setq word (substring word 1))) | |
| 575 ;; If looking at something like ioctl(2) or brc(1M), include the | 578 ;; If looking at something like ioctl(2) or brc(1M), include the |
| 576 ;; section number in the returned value. Remove text properties. | 579 ;; section number in the returned value. Remove text properties. |
| 577 (concat word | 580 (concat word |
| 578 (if (looking-at | 581 (if (looking-at |
| 579 (concat "[ \t]*([ \t]*\\(" Man-section-regexp "\\)[ \t]*)")) | 582 (concat "[ \t]*([ \t]*\\(" Man-section-regexp "\\)[ \t]*)")) |