summaryrefslogtreecommitdiff
path: root/lisp/apropos.el
diff options
context:
space:
mode:
authorKim F. Storm <storm@cua.dk>2003-07-14 21:49:02 +0000
committerKim F. Storm <storm@cua.dk>2003-07-14 21:49:02 +0000
commitab765ff7cb039bce0526d1a3cfc2f615aa62a44a (patch)
treeae995278e62e9cbe33d0c0bd3de2eb36051e2e74 /lisp/apropos.el
parent72b9a9d1a492e46dcd87300b9da14e6774df2371 (diff)
downloademacs-ab765ff7cb039bce0526d1a3cfc2f615aa62a44a.tar.gz
(apropos-sort-by-scores): Rename from apropos-show-scores.
All uses changed.
Diffstat (limited to 'lisp/apropos.el')
-rw-r--r--lisp/apropos.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el
index 3bcaeafdcaa..74b0f3fa838 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -102,8 +102,9 @@ for the regexp; the part that matches gets displayed in this font."
: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 @@ separate items with that string."
(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 @@ separate items with that string."
;; 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