From ab765ff7cb039bce0526d1a3cfc2f615aa62a44a Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 14 Jul 2003 21:49:02 +0000 Subject: [PATCH] (apropos-sort-by-scores): Rename from apropos-show-scores. All uses changed. --- lisp/apropos.el | 9 +++++---- 1 file 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 -- 2.39.2