diff options
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 734b2fb2f6..35a3ac3c09 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -371,8 +371,8 @@ Value is a list of offsets of the words into the string." "Return apropos score for documentation string DOC." (let ((l (length doc))) (if (> l 0) - (let ((score 0) i) - (when (setq i (string-match apropos-pattern-quoted doc)) + (let ((score 0)) + (when (string-match apropos-pattern-quoted doc) (setq score 10000)) (dolist (s (apropos-calc-scores doc apropos-all-words) score) (setq score (+ score 50 (/ (* (- l s) 50) l))))) |