comparison lisp/man.el @ 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.

78770:6db70c3a1837

      ;; Default man entry title is any word the cursor is on, or if
      ;; cursor not on a word, then nearest preceding word.
      (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 (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)))

78771:28d0c39b6c3b

      ;; Default man entry title is any word the cursor is on, or if
      ;; cursor not on a word, then nearest preceding word.
      (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 (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)))