diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-08-09 11:41:55 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-08-09 11:41:55 +0200 |
commit | c302c0a1597324e454292e72946695caf5fa78b1 (patch) | |
tree | ae18a50f8a447dd476a7331dd18bb34f640dd6f5 /helm-eval.el | |
parent | b7ed6b2ccb47692ef09ae11f43bc155462ff60e2 (diff) |
Add messages in sexp and calculation (#1110)
* helm-eval.el (helm-source-calculation-result,
helm-build-evaluation-result-source): Do it.
Diffstat (limited to 'helm-eval.el')
-rw-r--r-- | helm-eval.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/helm-eval.el b/helm-eval.el index 1b3790d9..a45e771e 100644 --- a/helm-eval.el +++ b/helm-eval.el @@ -99,9 +99,11 @@ Should take one arg: the string to display." :action '(("Copy result to kill-ring" . (lambda (candidate) (kill-new (replace-regexp-in-string - "\n" "" candidate)))) + "\n" "" candidate)) + (message "Result copied to kill-ring"))) ("copy sexp to kill-ring" . (lambda (_candidate) - (kill-new helm-input)))))) + (kill-new helm-input) + (message "Sexp copied to kill-ring")))))) (defun helm-eval-new-line-and-indent () (interactive) @@ -149,7 +151,9 @@ Should take one arg: the string to display." (calc-eval helm-pattern) (error "error")))) :nohighlight t - :action '(("Copy result to kill-ring" . kill-new)))) + :action '(("Copy result to kill-ring" . (lambda (candidate) + (kill-new candidate) + (message "Result copied to kill-ring")))))) ;;;###autoload (defun helm-eval-expression (arg) |