From: Juri Linkov Date: Sat, 18 May 2013 23:18:16 +0000 (+0300) Subject: * lisp/man.el (Man-default-man-entry): Remove `-' from the end of the default value. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~229^2~33 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1a6c0a42021df3d41ba782460965c5cc0ae902c;p=emacs.git * 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 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.