diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-05-30 08:35:19 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-05-30 08:35:19 +0200 |
commit | 11fd36f518c629ede636034606599c4e46db136b (patch) | |
tree | da175d183f044ea639c0af7e3842944f2ca64b67 /helm-semantic.el | |
parent | 4a899b1754332d2b824ec0bd59f0f3f1dc2d094f (diff) |
Use default in semantic-or-imenu.
* helm-semantic.el (helm-semantic-or-imenu): Only when using imenu.
Diffstat (limited to 'helm-semantic.el')
-rw-r--r-- | helm-semantic.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/helm-semantic.el b/helm-semantic.el index 3de1c39e..5baa00ae 100644 --- a/helm-semantic.el +++ b/helm-semantic.el @@ -198,6 +198,7 @@ Fill in the symbol at point by default." 'helm-source-imenu)) (imenu-p (eq source 'helm-source-imenu)) (imenu-auto-rescan imenu-p) + (str (thing-at-point 'symbol)) (helm-execute-action-at-once-if-one (and imenu-p helm-imenu-execute-action-at-once-if-one)) @@ -207,9 +208,8 @@ Fill in the symbol at point by default." (format "\\_<%s\\_>" (car (semantic-current-tag)))))) (helm :sources source :candidate-number-limit 9999 - :preselect (if (or arg imenu-p) - (thing-at-point 'symbol) - tag) + :default (and imenu-p (list (concat "\\_<" str "\\_>") str)) + :preselect (if (or arg imenu-p) str tag) :buffer "*helm semantic/imenu*"))) (provide 'helm-semantic) |