Mercurial > emacs
comparison lisp/apropos.el @ 66803:d94cbfddc07a
(apropos-calc-scores): Use `apropos-pattern'.
author | Romain Francoise <romain@orebokech.com> |
---|---|
date | Thu, 10 Nov 2005 19:45:03 +0000 |
parents | d1d47a44eee5 |
children | 8139e472d52b |
comparison
equal
deleted
inserted
replaced
66802:b486268fac00 | 66803:d94cbfddc07a |
---|---|
306 (if words | 306 (if words |
307 (dolist (word words scores) | 307 (dolist (word words scores) |
308 (if (setq i (string-match word str)) | 308 (if (setq i (string-match word str)) |
309 (setq scores (cons i scores)))) | 309 (setq scores (cons i scores)))) |
310 ;; Return list of start and end position of regexp | 310 ;; Return list of start and end position of regexp |
311 (string-match apropos-regexp str) | 311 (string-match apropos-pattern str) |
312 (list (match-beginning 0) (match-end 0))))) | 312 (list (match-beginning 0) (match-end 0))))) |
313 | 313 |
314 (defun apropos-score-str (str) | 314 (defun apropos-score-str (str) |
315 "Return apropos score for string STR." | 315 "Return apropos score for string STR." |
316 (if str | 316 (if str |