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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f8c1d4d7da76b214463b70e851e2e4a3d0c7152a..4334eaf7cc6e549c51690ba4f721c653d6b3d2d5 100644 (file)
--- 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 ab2e72d98ce2687f1d86455cbf932faebe8c170c..e7446c6fc6c4734c46e972b32c60515104c46773 100644 (file)
--- 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)