Mercurial > emacs
changeset 78771:28d0c39b6c3b
Jari Aalto <jari.aalto at cante.net>
(Man-default-man-entry): At end of line, continue looking to the next
line for possible end of hyphenated command.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 13 Sep 2007 08:00:47 +0000 |
| parents | 6db70c3a1837 |
| children | 578320c8f7ec |
| files | lisp/man.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Thu Sep 13 07:26:32 2007 +0000 +++ b/lisp/man.el Thu Sep 13 08:00:47 2007 +0000 @@ -652,7 +652,13 @@ (skip-chars-backward "-a-zA-Z0-9._+:") (let ((start (point))) (skip-chars-forward "-a-zA-Z0-9._+:") - (setq word (buffer-substring-no-properties start (point)))) + ;; If there is a continuation at the end of line, check the + ;; following line too, eg: + ;; see this- + ;; command-here(1) + (setq word (buffer-substring-no-properties start (point))) + (if (looking-at "[ \t\r\n]+\\([-a-zA-Z0-9._+:]+\\)([0-9])") + (setq word (concat word (match-string 1))))) (if (string-match "[._]+$" word) (setq word (substring word 0 (match-beginning 0)))) ;; If looking at something like *strcat(... , remove the '*'