diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2018-05-12 08:52:00 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2018-05-12 08:56:43 +0200 |
| commit | 89ee2df6117e495f61441bd3c09986d6d8482920 (patch) | |
| tree | bd0260d91caf8b0308725d1eca6f9a2d27bc76e3 /helm.el | |
| parent | 17bb38a295fe114d558762f617e74ae35aca7397 (diff) | |
Allow getting marked with props (#2034)
* helm-source.el (helm-source): Add new slot marked-with-props.
* helm.el (helm-make-visible-mark): Use it.
(helm-marked-candidates): Use it.
Diffstat (limited to 'helm.el')
| -rw-r--r-- | helm.el | 12 |
1 files changed, 9 insertions, 3 deletions
@@ -6121,9 +6121,12 @@ Meaning of prefix ARG is the same as in `reposition-window'." (defun helm-make-visible-mark (&optional src selection) (let* ((source (or src (helm-get-current-source))) - (sel (or selection (helm-get-selection nil nil source))) + (sel (or selection (helm-get-selection + nil (helm-attr 'marked-with-props source) + source))) (selection-end (if (helm-pos-multiline-p) - (or (helm-get-next-candidate-separator-pos) ; Stays within source + ;; Stays within source + (or (helm-get-next-candidate-separator-pos) (helm-get-next-header-pos) (point-max)) ;; Not multiline @@ -6321,7 +6324,10 @@ sources." finally return (or cands (append (helm--compute-marked - (helm-get-selection nil nil current-src) + (helm-get-selection + nil (helm-attr 'marked-with-props + current-src) + current-src) current-src with-wildcard) cands))))) |