diff options
author | Kim F. Storm <storm@cua.dk> | 2003-07-14 21:49:02 +0000 |
---|---|---|
committer | Kim F. Storm <storm@cua.dk> | 2003-07-14 21:49:02 +0000 |
commit | ab765ff7cb039bce0526d1a3cfc2f615aa62a44a (patch) | |
tree | ae995278e62e9cbe33d0c0bd3de2eb36051e2e74 /lisp/apropos.el | |
parent | 72b9a9d1a492e46dcd87300b9da14e6774df2371 (diff) | |
download | emacs-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.el | 9 |
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 |