Mercurial > emacs
changeset 51933:8604d171445a
(apropos-sort-by-scores): Rename from apropos-show-scores.
All uses changed.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 14 Jul 2003 21:49:02 +0000 |
| parents | 2a48b71ac770 |
| children | 6c938273685a |
| files | lisp/apropos.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/apropos.el Mon Jul 14 21:48:18 2003 +0000 +++ b/lisp/apropos.el Mon Jul 14 21:49:02 2003 +0000 @@ -102,8 +102,9 @@ :group 'apropos :type 'face) -(defcustom apropos-show-scores nil - "*Non-nil means show score for each match, and sort matches by scores." +(defcustom apropos-sort-by-scores nil + "*Non-nil means sort matches by scores; best match is shown first. +The computed score is shown for each match." :group 'apropos :type 'boolean) @@ -771,7 +772,7 @@ (lambda (a b) ;; Don't sort by score if user can't see the score. ;; It would be confusing. -- rms. - (if apropos-show-scores + (if apropos-sort-by-scores (or (> (cadr a) (cadr b)) (and (= (cadr a) (cadr b)) (string-lessp (car a) (car b)))) @@ -804,7 +805,7 @@ ;; changed the variable! ;; Just say `no' to variables containing faces! 'face apropos-symbol-face) - (if apropos-show-scores + (if apropos-sort-by-scores (insert " (" (number-to-string (cadr apropos-item)) ") ")) ;; Calculate key-bindings if we want them. (and do-keys