(apropos-calc-scores): Use `apropos-pattern'.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f8c1d4d7da7..4334eaf7cc6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-10  Romain Francoise  <romain@orebokech.com>
+
+        * apropos.el (apropos-calc-scores): Use `apropos-pattern'.
+
 2005-11-11  Nick Roberts  <nickrob@snap.net.nz>
 
         * progmodes/gud.el (gud-menu-map): Move parentheses.
diff --git a/lisp/apropos.el b/lisp/apropos.el
index ab2e72d98ce..e7446c6fc6c 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -308,7 +308,7 @@ Value is a list of offsets of the words into the string."
           (if (setq i (string-match word str))
               (setq scores (cons i scores))))
       ;; Return list of start and end position of regexp
-      (string-match apropos-regexp str)
+      (string-match apropos-pattern str)
       (list (match-beginning 0) (match-end 0)))))
 
 (defun apropos-score-str (str)