# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1035671874 0
# Node ID 73c9cc6e85380fcb983beb6219a05f5734cbb0e6
# Parent  6ee65f935a8ca04a62832770585ea2faaa6ac633
(Man-default-man-entry): Don't look for all word chars,
look only for characters that are normally part of a shell command.

diff -r 6ee65f935a8c -r 73c9cc6e8538 lisp/man.el
--- a/lisp/man.el	Sat Oct 26 22:37:04 2002 +0000
+++ b/lisp/man.el	Sat Oct 26 22:37:54 2002 +0000
@@ -497,7 +497,10 @@
     (save-excursion
       ;; Default man entry title is any word the cursor is on, or if
       ;; cursor not on a word, then nearest preceding word.
-      (setq word (current-word))
+      (skip-chars-backward "-a-zA-Z0-9._+:")
+      (let ((start (point)))
+	(skip-chars-forward "-a-zA-Z0-9._+:")
+	(setq word (buffer-substring start (point))))
       (if (string-match "[._]+$" word)
 	  (setq word (substring word 0 (match-beginning 0))))
       ;; If looking at something like ioctl(2) or brc(1M), include the