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 '*'