[Emacs-diffs] Changes to emacs/lisp/apropos.el

[Lute Kamstra]

Index: emacs/lisp/apropos.el
diff -c emacs/lisp/apropos.el:1.100 emacs/lisp/apropos.el:1.101
*** emacs/lisp/apropos.el:1.100 Fri Dec 17 15:17:22 2004
--- emacs/lisp/apropos.el       Fri Feb 11 16:08:49 2005
***************
*** 1,6 ****
  ;;; apropos.el --- apropos commands for users and programmers
  
! ;; Copyright (C) 1989,94,1995,2001,02,03,2004  Free Software Foundation, Inc.
  
  ;; Author: Joe Wells <address@hidden>
  ;; Rewritten: Daniel Pfeiffer <address@hidden>
--- 1,6 ----
  ;;; apropos.el --- apropos commands for users and programmers
  
! ;; Copyright (C) 1989,94,1995,2001,02,03,04,2005  Free Software Foundation, 
Inc.
  
  ;; Author: Joe Wells <address@hidden>
  ;; Rewritten: Daniel Pfeiffer <address@hidden>
***************
*** 322,334 ****
  
  (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))
  
  (defun apropos-score-symbol (symbol &optional weight)
    "Return apropos score for SYMBOL."
--- 322,334 ----
  
  (defun apropos-score-doc (doc)
    "Return apropos score for documentation string DOC."
!   (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."