Commit b7a2a696 authored by Lute Kamstra's avatar Lute Kamstra
Browse files

(apropos-score-doc): Prevent division by zero.

parent df21b47d
2005-02-11 Lute Kamstra <lute@gnu.org>
* apropos.el (apropos-score-doc): Prevent division by zero.
2005-02-11 Ulf Jasper <ulf.jasper@web.de>
 
* calendar/icalendar.el (icalendar--get-event-property): Doc fix.
......
;;; apropos.el --- apropos commands for users and programmers
;; Copyright (C) 1989,94,1995,2001,02,03,2004 Free Software Foundation, Inc.
;; Copyright (C) 1989,94,1995,2001,02,03,04,2005 Free Software Foundation, Inc.
;; Author: Joe Wells <jbw@bigbird.bu.edu>
;; Rewritten: Daniel Pfeiffer <occitan@esperanto.org>
......@@ -322,13 +322,13 @@ Value is a list of offsets of the words into the string."
(defun apropos-score-doc (doc)
"Return apropos score for documentation string DOC."
(if doc
(let ((score 0)
(l (length doc))
i)
(dolist (s (apropos-calc-scores doc apropos-all-words) score)
(setq score (+ score 50 (/ (* (- l s) 50) l)))))
0))
(let ((l (length doc)))
(if (> l 0)
(let ((score 0)
i)
(dolist (s (apropos-calc-scores doc apropos-all-words) score)
(setq score (+ score 50 (/ (* (- l s) 50) l)))))
0)))
(defun apropos-score-symbol (symbol &optional weight)
"Return apropos score for SYMBOL."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment