diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2020-01-26 18:47:31 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2020-01-26 18:47:31 +0100 |
commit | c8c91e89cb7f5fca90e0c35ae181a4930f78032f (patch) | |
tree | e5887562997b244bd824b523b879f85e3a100924 /helm-mode.el | |
parent | 1abeb896350c243acc737a2d51f382887480a1c4 (diff) |
Remove hook in the unwind-protect form
to ensure the hook is removed even on quit.
* helm-mode.el (helm--completion-in-region): Do it.
Diffstat (limited to 'helm-mode.el')
-rw-r--r-- | helm-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/helm-mode.el b/helm-mode.el index 73aadfce..35b7760c 100644 --- a/helm-mode.el +++ b/helm-mode.el @@ -1827,11 +1827,11 @@ Can be used for `completion-in-region-function' by advicing it with an ;; out properties on RESULT and by side-effect (perhaps ;; `choose-completion-string'?) modify STRING so make a copy. (setq string (copy-sequence result)) - (remove-hook 'helm-before-action-hook 'helm-completion-in-region-selection) (helm-completion-in-region--insert-result result start point end base-size)) ;; Allow running extra property :exit-function (Issue #2265) (when (stringp string) (completion--done string 'finished)) + (remove-hook 'helm-before-action-hook 'helm-completion-in-region-selection) (customize-set-variable 'helm-completion-style old--helm-completion-style) (setq helm-completion--sorting-done nil) (advice-remove 'lisp--local-variables |