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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4856b5ec38c27f57b61bc42bed91f698782398f8..9b41e08ef89b6e42f201208ed56fb69d320fc1fb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 1befefe881477e15258de234032dd1a01a189913..ae8a4ad628cb35b93c6bfad84f7e52574e5da794 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -1,6 +1,6 @@
 ;;; 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."