(Man-default-man-entry): Remove the leading `*' from the word at point.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81f822398b14a82f12e690c3c9e32b763f711686..469988dcbd569816c30e686b2881b54cdeba16ae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-28  Evgeni Dobrev  <evgeni_dobrev@developer.bg> (tiny patch)
+
+       * man.el (Man-default-man-entry): Remove the leading `*' from the
+       word at point.
+
 2003-09-26  Lute Kamstra  <Lute.Kamstra@cwi.nl>
 
        * bindings.el (mode-line-position): Mention size indication in

diff --git a/lisp/man.el b/lisp/man.el
index 075c38866fbec31527c6b09e63aed7262f612a04..4a768e1effbb5c324d03aec5a1bb98319c01f56c 100644 (file)
--- 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