* lisp/man.el (Man-default-man-entry): Remove `-' from the end of the default value.

Fixes: debbugs:14400

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d5957fb01c23b2599f2a1c66ca3282f4892eb564..52711c471637722d7365fc7998178fb43fcd33a3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-18  Juri Linkov  <juri@jurta.org>
+
+       * man.el (Man-default-man-entry): Remove `-' from the end
+       of the default value.  (Bug#14400)
+
 2013-05-18  Glenn Morris  <rgm@gnu.org>
 
        * comint.el (comint-password-prompt-regexp):

diff --git a/lisp/man.el b/lisp/man.el
index 04abc3d4d881da7ee11f28510a22a42b77bb7dad..34131f43692d759a53fb0e56bfe5962d90345b72 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -752,7 +752,7 @@ POS defaults to `point'."
        (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.