From a069f50952b1d8f8f6ade9524ac95b82cc0b8456 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 28 Sep 2003 08:31:45 +0000 Subject: [PATCH] (Man-default-man-entry): Remove the leading `*' from the word at point. --- lisp/ChangeLog | 5 +++++ lisp/man.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 81f822398b1..469988dcbd5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-09-28 Evgeni Dobrev (tiny patch) + + * man.el (Man-default-man-entry): Remove the leading `*' from the + word at point. + 2003-09-26 Lute Kamstra * bindings.el (mode-line-position): Mention size indication in 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