mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Eli Zaretskii 2003-09-28 08:31:45 +00:00
parent 872093579a
commit a069f50952
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

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

3
lisp/man.el
View File

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