diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-01-21 23:46:41 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-01-21 23:46:41 +0100 |
commit | 6a4d35088036aaf9602e9e234a58f2ec4198d8e0 (patch) | |
tree | 38900842cc950cb61c9b7fa331fbc1891c8f0061 /helm-mode.el | |
parent | 46252ca4d7e97408ef4badf52cc9b16a9672b5cc (diff) |
* helm-mode.el (helm-completing-read-symbols): Get rid of quoted lambda.
Diffstat (limited to 'helm-mode.el')
-rw-r--r-- | helm-mode.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/helm-mode.el b/helm-mode.el index 56a7def6..98e95d76 100644 --- a/helm-mode.el +++ b/helm-mode.el @@ -502,22 +502,22 @@ that use `helm-comp-read' See `helm-M-x' for example." (or (helm :sources (helm-build-in-buffer-source name - :init `(lambda () - (require 'helm-elisp) - (with-current-buffer (helm-candidate-buffer 'global) - (goto-char (point-min)) - (when (and ,default (stringp ,default) - ;; Some defaults args result as - ;; (symbol-name nil) == "nil". - ;; e.g debug-on-entry. - (not (string= ,default "nil")) - (not (string= ,default ""))) - (insert (concat ,default "\n"))) - (cl-loop for sym in (all-completions "" obarray ',test) - for s = (intern sym) - unless (or (and ,default (string= sym ,default)) - (keywordp s)) - do (insert (concat sym "\n"))))) + :init (lambda () + (require 'helm-elisp) + (with-current-buffer (helm-candidate-buffer 'global) + (goto-char (point-min)) + (when (and default (stringp default) + ;; Some defaults args result as + ;; (symbol-name nil) == "nil". + ;; e.g debug-on-entry. + (not (string= default "nil")) + (not (string= default ""))) + (insert (concat default "\n"))) + (cl-loop for sym in (all-completions "" obarray test) + for s = (intern sym) + unless (or (and default (string= sym default)) + (keywordp s)) + do (insert (concat sym "\n"))))) :persistent-action 'helm-lisp-completion-persistent-action :persistent-help "Show brief doc in mode-line") :prompt prompt |