diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-08-08 07:42:11 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-08-08 07:45:22 +0200 |
commit | abe9d3c52bda9db852f71723474860d422ae2fbc (patch) | |
tree | 2c7a24c7cb6c7eef42fa9f3ed5dd8033e740041f /helm-occur.el | |
parent | 4524a40bf4d5381e944b1b267b48569d762cf20b (diff) |
Set :get-line in init fn in helm-occur
Diffstat (limited to 'helm-occur.el')
-rw-r--r-- | helm-occur.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/helm-occur.el b/helm-occur.el index 6cd132f0..a3eab90d 100644 --- a/helm-occur.el +++ b/helm-occur.el @@ -218,7 +218,6 @@ engine beeing completely different and also much faster." (condition-case _err (re-search-forward pattern nil t) (invalid-regexp nil))) - :get-line 'buffer-substring :init `(lambda () (with-current-buffer ,buf (let* ((bsfn (or (cdr (assq @@ -226,6 +225,7 @@ engine beeing completely different and also much faster." helm-occur-buffer-substring-fn-for-modes)) #'buffer-substring-no-properties)) (contents (funcall bsfn (point-min) (point-max)))) + (helm-attrset 'get-line bsfn) (with-current-buffer (helm-candidate-buffer 'local) (insert contents) (goto-char (point-min)) |