diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2003-09-28 08:31:45 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2003-09-28 08:31:45 +0000 |
| commit | a069f50952b1d8f8f6ade9524ac95b82cc0b8456 (patch) | |
| tree | b3ba963fbc59b99117e68e08f3ef09f72dd41a9a /lisp/man.el | |
| parent | 872093579a7ca35aa65a89d4050204868b82d5ce (diff) | |
| download | emacs-a069f50952b1d8f8f6ade9524ac95b82cc0b8456.tar.gz | |
(Man-default-man-entry): Remove the leading `*' from the word at point.
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/man.el b/lisp/man.el index 075c38866fb..4a768e1effb 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -572,6 +572,9 @@ This guess is based on the text surrounding the cursor." (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 |