Permalink
Browse files

* helm-elisp.el (helm-c-apropos-init): Issue #186 Revert precedent ch…

…anges, only check for keywords.

* helm-mode.el (helm-completing-read-symbols): Same.
  • Loading branch information...
1 parent 07f8307 commit 70991e7a4c368f76a19e3cc848dc7fba91955bef @thierryvolpiatto thierryvolpiatto committed Jan 5, 2013
Showing with 2 additions and 9 deletions.
  1. +1 −4 helm-elisp.el
  2. +1 −5 helm-mode.el
View
@@ -277,13 +277,10 @@ Filename completion happen if string start after or between a double quote."
(not (string= default "nil"))
(funcall test (intern default)))
(insert (concat default "\n")))
- (loop with bl = (and (eq test 'boundp)
- (apropos-internal "^any-" 'symbolp))
- with all = (all-completions "" obarray test)
+ (loop with all = (all-completions "" obarray test)
for sym in all
for s = (intern sym)
unless (or (and default (string= sym default))
- (and bl (memq s bl))
(keywordp s))
do (insert (concat sym "\n")))))
View
@@ -444,14 +444,10 @@ that use `helm-comp-read' See `helm-M-x' for example."
(not (string= default "nil"))
(not (string= default "")))
(insert (concat default "\n")))
- (loop with bl = (and (eq (helm-this-command)
- 'describe-variable)
- (apropos-internal "^any-" 'symbolp))
- with all = (all-completions "" obarray test)
+ (loop with all = (all-completions "" obarray test)
for sym in all
for s = (intern sym)
unless (or (and default (string= sym default))
- (and bl (memq s bl))
(keywordp s))
do (insert (concat sym "\n"))))))
(persistent-action . helm-lisp-completion-persistent-action)

0 comments on commit 70991e7

Please sign in to comment.