# HG changeset patch # User Glenn Morris # Date 1189670678 0 # Node ID d2335a891526a60f2884b4a4f0e74f6e427949bb # Parent 99c064562a39e79788bc14050b10587a58b46783 Tabify previous change. diff -r 99c064562a39 -r d2335a891526 lisp/man.el --- a/lisp/man.el Thu Sep 13 08:01:54 2007 +0000 +++ b/lisp/man.el Thu Sep 13 08:04:38 2007 +0000 @@ -652,13 +652,13 @@ (skip-chars-backward "-a-zA-Z0-9._+:") (let ((start (point))) (skip-chars-forward "-a-zA-Z0-9._+:") - ;; 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 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 '*'