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