diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-08-28 06:45:40 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-08-28 07:42:31 +0200 |
| commit | b5468cfb2ce35e3ff9212885d27675f19cb74210 (patch) | |
| tree | 8607b57c1bffbfb9c1d97f1117d99320c8775d6d | |
| parent | c060a9761d0f97e38e5fcb89c55ac09b7d3ab95f (diff) | |
Unquote some more lambdas.
* helm-elisp.el (helm-lisp-completion-at-point): Do it.
* helm-files.el (helm-find-files-1): Do it.
* helm-mode.el (helm-comp-read-get-candidates): Do it.
* helm-source.el (helm-source-add-action-to-source-if): Do it.
* helm.el (helm-run-multi-key-command): Do it.
(helm-add-action-to-source-if): Do it.
(helm-resume-previous-session-after-quit): Do it.
| -rw-r--r-- | helm-elisp.el | 12 | ||||
| -rw-r--r-- | helm-files.el | 10 | ||||
| -rw-r--r-- | helm-mode.el | 14 | ||||
| -rw-r--r-- | helm-source.el | 10 | ||||
| -rw-r--r-- | helm.el | 16 |
5 files changed, 31 insertions, 31 deletions
diff --git a/helm-elisp.el b/helm-elisp.el index 61990b1f..889f59c1 100644 --- a/helm-elisp.el +++ b/helm-elisp.el @@ -316,12 +316,12 @@ Return a cons \(beg . end\)." :persistent-help (helm-lisp-completion-persistent-help) :filtered-candidate-transformer 'helm-lisp-completion-transformer - :action `(lambda (candidate) - (with-helm-current-buffer - (run-with-timer - 0.01 nil - 'helm-insert-completion-at-point - ,beg ,end candidate)))) + :action (lambda (candidate) + (with-helm-current-buffer + (run-with-timer + 0.01 nil + 'helm-insert-completion-at-point + beg end candidate)))) :input (if helm-lisp-fuzzy-completion target (concat target " ")) :resume 'noresume diff --git a/helm-files.el b/helm-files.el index 13944eab..6ec499bc 100644 --- a/helm-files.el +++ b/helm-files.el @@ -2575,11 +2575,11 @@ Use it for non--interactive calls of `helm-find-files'." :default def :prompt "Find files or url: " :buffer "*helm find files*") - (helm-attrset 'resume `(lambda () - (setq helm-ff-default-directory - ,helm-ff-default-directory - helm-ff-last-expanded - ,helm-ff-last-expanded)) + (helm-attrset 'resume (lambda () + (setq helm-ff-default-directory + helm-ff-default-directory + helm-ff-last-expanded + helm-ff-last-expanded)) helm-source-find-files) (setq helm-ff-default-directory nil)))) diff --git a/helm-mode.el b/helm-mode.el index aea54605..c2d5a252 100644 --- a/helm-mode.el +++ b/helm-mode.el @@ -219,13 +219,13 @@ If COLLECTION is an `obarray', a TEST should be needed. See `obarray'." ;; Also, the history collections generally collect their ;; elements as string, so intern them to call predicate. ((and (symbolp collection) (boundp collection) test) - (let ((predicate `(lambda (elm) - (condition-case err - (if (eq (quote ,test) 'commandp) - (funcall (quote ,test) (intern elm)) - (funcall (quote ,test) elm)) - (wrong-type-argument - (funcall (quote ,test) (intern elm))))))) + (let ((predicate (lambda (elm) + (condition-case _err + (if (eq test 'commandp) + (funcall test (intern elm)) + (funcall test elm)) + (wrong-type-argument + (funcall test (intern elm))))))) (all-completions input (symbol-value collection) predicate))) ((and (symbolp collection) (boundp collection)) (all-completions input (symbol-value collection))) diff --git a/helm-source.el b/helm-source.el index 26e64d17..c0238209 100644 --- a/helm-source.el +++ b/helm-source.el @@ -800,11 +800,11 @@ an eieio class." (let* ((actions (slot-value source 'action)) (action-transformers (slot-value source 'action-transformer)) (new-action (list (cons name fn))) - (transformer `(lambda (actions candidate) - (cond ((funcall (quote ,predicate) candidate) - (helm-append-at-nth - actions (quote ,new-action) ,index)) - (t actions))))) + (transformer (lambda (actions candidate) + (cond ((funcall predicate candidate) + (helm-append-at-nth + actions new-action index)) + (t actions))))) (if (functionp actions) (setf (slot-value source 'action) (list (cons "Default action" actions))) (setf (slot-value source 'action) (helm-interpret-value actions source))) @@ -94,8 +94,8 @@ Run each function in the FUNCTIONS list in turn when called within DELAY seconds (set iterator (helm-iter-list (funcall fn))) (setq next (helm-iter-next (symbol-value iterator)))) (and next (symbol-value iterator) (call-interactively (nth (1- next) functions))) - (when delay (run-with-idle-timer delay nil `(lambda () - (setq ,iterator nil)))))) + (when delay (run-with-idle-timer delay nil (lambda () + (setq iterator nil)))))) (helm-multi-key-defun helm-toggle-resplit-and-swap-windows "Multi key command to re-split and swap helm window. @@ -1288,11 +1288,11 @@ only when predicate helm-ff-candidates-lisp-p return non-`nil': (let* ((actions (helm-attr 'action source 'ignorefn)) (action-transformers (helm-attr 'action-transformer source)) (new-action (list (cons name fn))) - (transformer `(lambda (actions candidate) - (cond ((funcall (quote ,predicate) candidate) - (helm-append-at-nth - actions (quote ,new-action) ,index)) - (t actions))))) + (transformer (lambda (actions candidate) + (cond ((funcall predicate candidate) + (helm-append-at-nth + actions new-action index)) + (t actions))))) (when (functionp actions) (helm-attrset 'action (list (cons "Default action" actions)) source)) (when (or (symbolp action-transformers) (functionp action-transformers)) @@ -1953,7 +1953,7 @@ as a string with ARG." (interactive "p") (with-helm-alive-p (if (> (length helm-buffers) arg) - (helm-run-after-exit `(lambda () (helm-resume (nth ,arg helm-buffers)))) + (helm-run-after-exit (lambda () (helm-resume (nth arg helm-buffers)))) (message "No previous helm sessions available for resuming!")))) (put 'helm-resume-previous-session-after-quit 'helm-only t) |