[Emacs-diffs] Changes to emacs/lisp/apropos.el

[Kim F. Storm]

Index: emacs/lisp/apropos.el
diff -c emacs/lisp/apropos.el:1.93 emacs/lisp/apropos.el:1.94
*** emacs/lisp/apropos.el:1.93  Sat Jul 12 17:57:50 2003
--- emacs/lisp/apropos.el       Mon Jul 14 17:49:02 2003
***************
*** 102,109 ****
    :group 'apropos
    :type 'face)
  
! (defcustom apropos-show-scores nil
!   "*Non-nil means show score for each match, and sort matches by scores."
    :group 'apropos
    :type 'boolean)
  
--- 102,110 ----
    :group 'apropos
    :type 'face)
  
! (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,777 ****
                (lambda (a b)
                  ;; Don't sort by score if user can't see the score.
                  ;; It would be confusing.  -- rms.
!                 (if apropos-show-scores
                      (or (> (cadr a) (cadr b))
                          (and (= (cadr a) (cadr b))
                               (string-lessp (car a) (car b))))
--- 772,778 ----
                (lambda (a b)
                  ;; Don't sort by score if user can't see the score.
                  ;; It would be confusing.  -- rms.
!                 (if apropos-sort-by-scores
                      (or (> (cadr a) (cadr b))
                          (and (= (cadr a) (cadr b))
                               (string-lessp (car a) (car b))))
***************
*** 804,810 ****
                              ;; changed the variable!
                              ;; Just say `no' to variables containing faces!
                              'face apropos-symbol-face)
!         (if apropos-show-scores
              (insert " (" (number-to-string (cadr apropos-item)) ") "))
          ;; Calculate key-bindings if we want them.
          (and do-keys
--- 805,811 ----
                              ;; changed the variable!
                              ;; Just say `no' to variables containing faces!
                              'face apropos-symbol-face)
!         (if apropos-sort-by-scores
              (insert " (" (number-to-string (cadr apropos-item)) ") "))
          ;; Calculate key-bindings if we want them.
          (and do-keys