From 2f2228c0cc00793de8dc0fb2d08447950165c0a9 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Wed, 9 Aug 1995 16:08:55 +0000 Subject: [PATCH] * man.el (Man-translate-references): Anchor the regexps. --- lisp/man.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)))) -- 2.39.2