diff lisp/apropos.el @ 49588:37645a051842

Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 11:26:42 +0000
parents 1cc18f262eab
children 58bf3c3670d8 d7ddb3e565de
line wrap: on
line diff
--- a/lisp/apropos.el	Tue Feb 04 10:58:53 2003 +0000
+++ b/lisp/apropos.el	Tue Feb 04 11:26:42 2003 +0000
@@ -247,7 +247,7 @@
   (concat "\\("
 	  (mapconcat 'identity words "\\|")
 	  "\\)" wild
-	  (if (cdr words) 
+	  (if (cdr words)
 	      (concat "\\("
 		      (mapconcat 'identity words "\\|")
 		      "\\)")
@@ -314,7 +314,7 @@
 	(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."
   (setq symbol (symbol-name symbol))
@@ -413,7 +413,7 @@
 		     (if (functionp symbol)
 			 (if (setq doc (documentation symbol t))
 			     (progn
-			       (setq score (+ score (apropos-score-doc doc))) 
+			       (setq score (+ score (apropos-score-doc doc)))
 			       (substring doc 0 (string-match "\n" doc)))
 			   "(not documented)")))
 		   (and var-predicate
@@ -531,7 +531,7 @@
 	(if (apropos-false-hit-str p)
 	    (setq p nil))
 	(if (or f v p)
-	    (setq apropos-accumulator (cons (list symbol 
+	    (setq apropos-accumulator (cons (list symbol
 						  (+ (apropos-score-str f)
 						     (apropos-score-str v)
 						     (apropos-score-str p))
@@ -580,7 +580,7 @@
 				 (setcar (nthcdr 2 apropos-item) v)
 				 (setcar apropos-item (+ (car apropos-item) sv)))))
 		       (setq apropos-accumulator
-			     (cons (list symbol 
+			     (cons (list symbol
 					 (+ (apropos-score-symbol symbol 2) sf sv)
 					 f v)
 				   apropos-accumulator)))))))
@@ -665,7 +665,7 @@
 	      (or (and (setq apropos-item (assq symbol apropos-accumulator))
 		       (setcar (cdr apropos-item)
 			       (+ (cadr apropos-item) (apropos-score-doc doc))))
-		  (setq apropos-item (list symbol 
+		  (setq apropos-item (list symbol
 					   (+ (apropos-score-symbol symbol 2)
 					      (apropos-score-doc doc))
 					   nil nil)
@@ -755,7 +755,7 @@
 (defun apropos-print (do-keys spacing)
   "Output result of apropos searching into buffer `*Apropos*'.
 The value of `apropos-accumulator' is the list of items to output.
-Each element should have the format 
+Each element should have the format
  (SYMBOL SCORE FN-DOC VAR-DOC [PLIST-DOC WIDGET-DOC FACE-DOC GROUP-DOC]).
 The return value is the list that was in `apropos-accumulator', sorted
 alphabetically by symbol name; but this function also sets