From: Francesco Potortì <pot@gnu.org>
Date: Wed, 9 Aug 1995 16:08:55 +0000 (+0000)
Subject: * man.el (Man-translate-references): Anchor the regexps.
X-Git-Tag: emacs-19.34~3051
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f2228c0cc00793de8dc0fb2d08447950165c0a9;p=emacs.git

* man.el (Man-translate-references): Anchor the regexps.
---

diff --git a/lisp/man.el b/lisp/man.el
index 98538d60b30..174a72455ec 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -422,17 +422,17 @@ that string instead of from the current buffer."
   "Translates REF from \"chmod(2V)\" to \"2v chmod\" style.
 Leave it as is if already in that style.  Possibly downcase and
 translate the section (see the Man-downcase-section-letters-flag
-and the Man-section-translations-alist variables)." 
+and the Man-section-translations-alist variables)."
   (let ((name "")
 	(section "")
 	(slist Man-section-translations-alist))
     (cond
      ;; "chmod(2V)" case ?
-     ((string-match (concat Man-reference-regexp "$") ref)
+     ((string-match (concat "^" Man-reference-regexp "$") ref)
       (setq name (Man-match-substring 1 ref)
 	    section (Man-match-substring 2 ref)))
      ;; "2v chmod" case ?
-     ((string-match (concat "\\(" Man-section-regexp
+     ((string-match (concat "^\\(" Man-section-regexp
 			    "\\) +\\(" Man-name-regexp "\\)$") ref)
       (setq name (Man-match-substring 2 ref)
 	    section (Man-match-substring 1 ref))))