summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThierry Volpiatto <thierry.volpiatto@gmail.com>2017-11-21 08:45:45 +0100
committerThierry Volpiatto <thierry.volpiatto@gmail.com>2017-11-21 08:45:45 +0100
commite21d1f67ede3d6bbf46c72ddd31eced735c59a70 (patch)
tree08317c4458fbf7dcb8ed865ce6cf4331bbb422cf
parentcec6fb275fa37715bbcbf2abc716457521065068 (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.el9
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'.")