[Emacs-diffs] /srv/bzr/emacs/trunk r112636: * lisp/man.el (Man-default-man-entry): Remove `-' from the end of the default value.

[Juri Linkov]

------------------------------------------------------------
revno: 112636
fixes bug: http://debbugs.gnu.org/14400
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sun 2013-05-19 02:18:16 +0300
message:
  * lisp/man.el (Man-default-man-entry): Remove `-' from the end of the default 
value.
modified:
  lisp/ChangeLog
  lisp/man.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-18 19:38:35 +0000
+++ b/lisp/ChangeLog    2013-05-18 23:18:16 +0000
@@ -1,3 +1,8 @@
+2013-05-18  Juri Linkov  <address@hidden>
+
+       * man.el (Man-default-man-entry): Remove `-' from the end
+       of the default value.  (Bug#14400)
+
 2013-05-18  Glenn Morris  <address@hidden>
 
        * comint.el (comint-password-prompt-regexp):

=== modified file 'lisp/man.el'
--- a/lisp/man.el       2013-02-12 04:46:18 +0000
+++ b/lisp/man.el       2013-05-18 23:18:16 +0000
@@ -752,7 +752,7 @@
        (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.