branch: externals/hyperbole
commit e33e04bb57fa100a0bd90806ce061c6b1fcf0b30
Author: Bob Weiner <[email protected]>
Commit: Bob Weiner <[email protected]>
Ignore tags within double quoted strings
---
hmouse-tag.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/hmouse-tag.el b/hmouse-tag.el
index f4930a0..a409fdc 100644
--- a/hmouse-tag.el
+++ b/hmouse-tag.el
@@ -664,10 +664,10 @@ Return nil when point is on the first line of a non-alias
Lisp definition."
(unless (smart-lisp-at-definition-p)
(save-excursion
(skip-chars-backward smart-lisp-identifier-chars)
- ;; Ignore environment variables: $PATH, ${PATH}, $(PATH), {$PATH},
($PATH)
+ ;; Ignore double quoted strings and environment variables: $PATH,
${PATH}, $(PATH), {$PATH}, ($PATH)
(unless (save-excursion
- (skip-chars-backward "[${(]")
- (looking-at "\\$[{(]\\|[{]\\$]"))
+ (skip-chars-backward "[\"${(]")
+ (looking-at "\"\\|\\$[{(]\\|[{]\\$]"))
(when (and (looking-at smart-lisp-identifier)
;; Ignore any punctuation matches.
(save-match-data
