# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1064737820 0
# Node ID 87642088b41e312a0806e743ee23ad750e8dbd65
# Parent  9963e9da58508d57a820a080f4388ec3a6c34acb
(Man-default-man-entry): Remove the leading `*' from the word at point.

diff -r 9963e9da5850 -r 87642088b41e lisp/man.el
--- 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