From c1a6c0a42021df3d41ba782460965c5cc0ae902c Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 19 May 2013 02:18:16 +0300 Subject: [PATCH] * lisp/man.el (Man-default-man-entry): Remove `-' from the end of the default value. Fixes: debbugs:14400 --- lisp/ChangeLog | 5 +++++ lisp/man.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d5957fb01c2..52711c47163 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-05-18 Juri Linkov + + * man.el (Man-default-man-entry): Remove `-' from the end + of the default value. (Bug#14400) + 2013-05-18 Glenn Morris * comint.el (comint-password-prompt-regexp): diff --git a/lisp/man.el b/lisp/man.el index 04abc3d4d88..34131f43692 100644 --- 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. -- 2.39.2