]> git.eshelyaron.com Git - emacs.git/commitdiff
(apropos-sort-by-scores): Rename from apropos-show-scores.
authorKim F. Storm <storm@cua.dk>
Mon, 14 Jul 2003 21:49:02 +0000 (21:49 +0000)
committerKim F. Storm <storm@cua.dk>
Mon, 14 Jul 2003 21:49:02 +0000 (21:49 +0000)
All uses changed.

lisp/apropos.el

index 3bcaeafdcaae34e7552a854eec08b84ddba04ab9..74b0f3fa838aca6a1450d9a42766e53ea4be018f 100644 (file)
@@ -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