diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 11:26:42 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 11:26:42 +0000 |
| commit | 71296446d3cec5bb2a27bc5ad6da574df38d0ec8 (patch) | |
| tree | 0204c3c252547a44e2404959409034406f7680cd /lisp/apropos.el | |
| parent | 693ff6134cb2ec65c7d188696f012662edadfbf0 (diff) | |
| download | emacs-71296446d3cec5bb2a27bc5ad6da574df38d0ec8.tar.gz | |
Trailing whitespace deleted.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 63450adbc62..f5305f3b290 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -247,7 +247,7 @@ before finding a label." (concat "\\(" (mapconcat 'identity words "\\|") "\\)" wild - (if (cdr words) + (if (cdr words) (concat "\\(" (mapconcat 'identity words "\\|") "\\)") @@ -314,7 +314,7 @@ Value is a list of offsets of the words into the string." (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 @@ satisfy the predicate VAR-PREDICATE." (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 @@ Returns list of symbols and values found." (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 @@ Returns list of symbols and documentation found." (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 @@ Returns list of symbols and documentation found." (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 @@ Will return nil instead." (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 |