diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-10-23 18:10:43 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-10-23 18:10:43 +0200 |
commit | 1341b84aedd972e01396036ce4d496e70282dcac (patch) | |
tree | 96a6e8a3a9bfe7d1ba97c4ab9fcc3e78d04834ab /helm-tags.el | |
parent | ad31a7cc3c2c5f6209cc6bfde19f0bd34946b485 (diff) |
Fix error when cursor is not on symbol (#1164)
* helm-tags.el (helm-etags-select): Do it.
Diffstat (limited to 'helm-tags.el')
-rw-r--r-- | helm-tags.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/helm-tags.el b/helm-tags.el index 04e8b5a6..782e87b4 100644 --- a/helm-tags.el +++ b/helm-tags.el @@ -329,11 +329,12 @@ Create with etags shell command, or visit with `find-tag' or `visit-tags-table'. (helm-etags-build-source))) (helm :sources 'helm-source-etags-select :keymap helm-etags-map - :default (if (or helm-etags-fuzzy-match - (and (eq major-mode 'haskell-mode) - (string-match "[']\\'" str))) - str - (list (concat "\\_<" str "\\_>") str)) + :default (and (stringp str) + (if (or helm-etags-fuzzy-match + (and (eq major-mode 'haskell-mode) + (string-match "[']\\'" str))) + str + (list (concat "\\_<" str "\\_>") str))) :buffer "*helm etags*")))) (provide 'helm-tags) |