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 |