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

From: Juri Linkov <[email-masked]>
Date: Thu, 16 May 2013 01:54:40 +0300

> 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.