Mercurial > emacs

changeset 12809:c388f6f7f210

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* man.el (Man-translate-references): Anchor the regexps.
author Francesco Potortì <pot@gnu.org>
date Wed, 09 Aug 1995 16:08:55 +0000
parents 4db1f387e85f
children bd486675e103
files lisp/man.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Tue Aug 08 21:22:16 1995 +0000
+++ b/lisp/man.el	Wed Aug 09 16:08:55 1995 +0000
@@ -422,17 +422,17 @@
   "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))))