From 146afb5f31f4caaca64629909f8b79f490e6aa57 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 26 Oct 2002 22:37:54 +0000 Subject: [PATCH] (Man-default-man-entry): Don't look for all word chars, look only for characters that are normally part of a shell command. --- lisp/man.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/man.el b/lisp/man.el index 1cf5f498ca2..c5a5acd1282 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -497,7 +497,10 @@ This guess is based on the text surrounding the cursor." (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 -- 2.39.5