1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00

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

This commit is contained in:
Richard M. Stallman 2005-11-16 22:11:47 +00:00
parent 77f05e24e8
commit 347a20b867

View File

@ -341,7 +341,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
(and (string-match apropos-regexp str)
(and (string-match apropos-pattern str)
(list (match-beginning 0) (match-end 0))))))
(defun apropos-score-str (str)