diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-05-11 15:49:59 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-05-11 15:49:59 +0200 |
commit | de48308ad103e460d7ea55dfa2a5122b2c8cc09b (patch) | |
tree | 702a134ae175b35f21d46b79a5860f75fd7ac0e5 /helm-adaptive.el | |
parent | b7578615623f3ba83e99cf8f1d712cfa07de4c87 (diff) |
Compare display in adaptive sort and not real.
* helm-adaptive.el (helm-adaptive-compare): Do this because the adaptives
records are display and not real.
Diffstat (limited to 'helm-adaptive.el')
-rw-r--r-- | helm-adaptive.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/helm-adaptive.el b/helm-adaptive.el index 23bbf060..22b6b939 100644 --- a/helm-adaptive.el +++ b/helm-adaptive.el @@ -254,10 +254,11 @@ Useful when you have a old or corrupted `helm-adaptive-history-file'." (delete-file helm-adaptive-history-file))) (defun helm-adaptive-compare (x y) - "Compare candidates X and Y taking into account that the -candidate can be in (DISPLAY . REAL) format." - (equal (if (listp x) (cdr x) x) - (if (listp y) (cdr y) y))) + "Compare display parts if some of candidates X and Y. + +Arguments X and Y are cons cell in (DISPLAY . REAL) format or atoms." + (equal (if (listp x) (car x) x) + (if (listp y) (car y) y))) (provide 'helm-adaptive) |