diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-02-09 08:30:25 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-02-09 08:30:25 +0100 |
commit | aad266317a76665671f4ab5c5c590ec91a6a8805 (patch) | |
tree | 33eda6488fe9d99f586c3e90dfdc1555ddb08f7f /helm-ring.el | |
parent | a5254ba16c1bf77b0a1393f35c161d932c1626c1 (diff) |
Remove unneeded binding in helm-register-action-transformer loop.
* helm-ring.el (helm-register-action-transformer): Do it.
Diffstat (limited to 'helm-ring.el')
-rw-r--r-- | helm-ring.el | 55 |
1 files changed, 27 insertions, 28 deletions
diff --git a/helm-ring.el b/helm-ring.el index 79899e8f..66ea2721 100644 --- a/helm-ring.el +++ b/helm-ring.el @@ -386,34 +386,33 @@ the `global-mark-ring' after each new visit." (defun helm-register-action-transformer (actions register-and-functions) "Decide actions by the contents of register." - (cl-loop with transformer-actions = nil - with func-actions = - '((insert-register - "Insert Register" . - (lambda (c) (insert-register (car c)))) - (jump-to-register - "Jump to Register" . - (lambda (c) (jump-to-register (car c)))) - (append-to-register - "Append Region to Register" . - (lambda (c) (append-to-register - (car c) (region-beginning) (region-end)))) - (prepend-to-register - "Prepend Region to Register" . - (lambda (c) (prepend-to-register - (car c) (region-beginning) (region-end)))) - (increment-register - "Increment Prefix Arg to Register" . - (lambda (c) (increment-register - helm-current-prefix-arg (car c)))) - (undo-tree-restore-state-from-register - "Restore Undo-tree register" . - (lambda (c) (and (fboundp 'undo-tree-restore-state-from-register) - (undo-tree-restore-state-from-register (car c)))))) - for func in (cdr register-and-functions) - when (assq func func-actions) - collect (cdr it) into transformer-actions - finally return (append transformer-actions actions))) + (cl-loop with func-actions = + '((insert-register + "Insert Register" . + (lambda (c) (insert-register (car c)))) + (jump-to-register + "Jump to Register" . + (lambda (c) (jump-to-register (car c)))) + (append-to-register + "Append Region to Register" . + (lambda (c) (append-to-register + (car c) (region-beginning) (region-end)))) + (prepend-to-register + "Prepend Region to Register" . + (lambda (c) (prepend-to-register + (car c) (region-beginning) (region-end)))) + (increment-register + "Increment Prefix Arg to Register" . + (lambda (c) (increment-register + helm-current-prefix-arg (car c)))) + (undo-tree-restore-state-from-register + "Restore Undo-tree register" . + (lambda (c) (and (fboundp 'undo-tree-restore-state-from-register) + (undo-tree-restore-state-from-register (car c)))))) + for func in (cdr register-and-functions) + when (assq func func-actions) + collect (cdr it) into transformer-actions + finally return (append transformer-actions actions))) ;;;###autoload (defun helm-mark-ring () |