diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-11-21 08:45:45 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-11-21 08:45:45 +0100 |
commit | e21d1f67ede3d6bbf46c72ddd31eced735c59a70 (patch) | |
tree | 08317c4458fbf7dcb8ed865ce6cf4331bbb422cf | |
parent | cec6fb275fa37715bbcbf2abc716457521065068 (diff) |
Deactivate mark in etags action and
don't use a standard syntax-table to determine TAP.
* helm-tags.el (helm-etags-action-goto): Do it.
(helm-etags-select): Do it.
-rw-r--r-- | helm-tags.el | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/helm-tags.el b/helm-tags.el index f374fccc..9111d5b7 100644 --- a/helm-tags.el +++ b/helm-tags.el @@ -261,6 +261,7 @@ If no entry in cache, create one." (defun helm-etags-action-goto (switcher candidate) "Helm default action to jump to an etags entry in other window." (require 'etags) + (deactivate-mark t) (helm-log-run-hook 'helm-goto-line-before-hook) (let* ((split (helm-grep-split-line candidate)) (fname (cl-loop for tagf being the hash-keys of helm-etags-cache @@ -310,13 +311,7 @@ This function aggregates three sources of tag files: (str (if (region-active-p) (buffer-substring-no-properties (region-beginning) (region-end)) - ;; Use a raw syntax-table to determine tap. - ;; This may be wrong when calling etags - ;; with hff from a buffer that use - ;; a different syntax, but most of the time it - ;; should be better. - (with-syntax-table (standard-syntax-table) - (thing-at-point 'symbol))))) + (thing-at-point 'symbol)))) (if (cl-notany 'file-exists-p tag-files) (message "Error: No tag file found.\ Create with etags shell command, or visit with `find-tag' or `visit-tags-table'.") |