Mercurial > emacs
changeset 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 | 9963e9da5850 |
children | e6dc36d887b2 |
files | lisp/man.el |
diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Sun Sep 28 08:24:56 2003 +0000 +++ b/lisp/man.el Sun Sep 28 08:30:20 2003 +0000 @@ -572,6 +572,9 @@ (setq word (buffer-substring-no-properties start (point)))) (if (string-match "[._]+$" word) (setq word (substring word 0 (match-beginning 0)))) + ;; If looking at something like *strcat(... , remove the '*' + (if (string-match "^*" word) + (setq word (substring word 1))) ;; If looking at something like ioctl(2) or brc(1M), include the ;; section number in the returned value. Remove text properties. (concat word