procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Man-default-man-entry): Don't look for all word chars,

Browse source 
look only for characters that are normally part of a shell command.
This commit is contained in:
Richard M. Stallman 2002-10-26 22:37:54 +00:00
parent 3def0d2493
commit 146afb5f31
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/man.el
View file

@ -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