Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 04:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(apropos-sort-by-scores): Rename from apropos-show-scores.

Browse source 
All uses changed.
This commit is contained in:
Kim F. Storm 2003-07-14 21:49:02 +00:00
parent 72b9a9d1a4
commit ab765ff7cb
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/apropos.el
View 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