From b7a2a69670f86564c37c89044ca6646ed6c50187 Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Fri, 11 Feb 2005 16:09:50 +0000 Subject: [PATCH] (apropos-score-doc): Prevent division by zero. --- lisp/ChangeLog | 4 ++++ lisp/apropos.el | 16 ++++++++-------- 2 files changed, 12 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4856b5ec38c..9b41e08ef89 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-02-11 Lute Kamstra + + * apropos.el (apropos-score-doc): Prevent division by zero. + 2005-02-11 Ulf Jasper * calendar/icalendar.el (icalendar--get-event-property): Doc fix. diff --git a/lisp/apropos.el b/lisp/apropos.el index 1befefe8814..ae8a4ad628c 100644 --- 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 ;; Rewritten: Daniel Pfeiffer @@ -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." -- 2.39.5