bug#14400: M-x man should know that "->" can't be part of a man page name

[jid...@jidanni.org]

M-x man should know that "->" can't be part of a man page name.
(In fact "->" even displays as one character.) so M-x man should think
twice, and back off, so that when the cursor is upon the word UserAgent,
my $ua = LWP::UserAgent->new(...
and one types M-x man, instead of
Manual entry (default LWP::UserAgent-):
it should prompt with
Manual entry (default LWP::UserAgent):

Seen with
emacs-snapshot:
Installed: 2:20130510-1
# su - nobody -c 'HOME=/tmp emacs /some/perl/file.pl'

[Juri Linkov]

> my $ua = LWP::UserAgent->new(...
> and one types M-x man, instead of
> Manual entry (default LWP::UserAgent-):
> it should prompt with
> Manual entry (default LWP::UserAgent):

Removing `-' from the end of the default value could be
fixed in `Man-default-man-entry' by this patch:

=== modified file 'lisp/man.el'
--- lisp/man.el 2013-02-12 07:57:04 +0000
+++ lisp/man.el 2013-05-15 22:51:39 +0000
@@ -767,7 +767,7 @@ (defun Man-default-man-entry (&optional
(setq word (concat word (match-string-no-properties 1)))
;; Make sure the section number gets included by the code below.
(goto-char (match-end 1)))
- (when (string-match "[._]+$" word)
+ (when (string-match "[._-]+$" word)
(setq word (substring word 0 (match-beginning 0))))
;; The following was commented out since the preceding code
;; should not produce a leading "*" in the first place.

[jid...@jidanni.org]

Yes please use that.

[Juri Linkov]

> Yes please use that.

This is fixed now.