diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-09-12 15:43:50 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-09-12 15:43:50 -0400 |
| commit | 421084d2cb160261b259bddb687bb2c234f8f1ef (patch) | |
| tree | 27a2585a7020ef8798593e5b12f47342607e6595 | |
| parent | 7fbabaf96ab55437b42e6365885c9c780726594c (diff) | |
| download | emacs-421084d2cb160261b259bddb687bb2c234f8f1ef.tar.gz | |
* lisp/progmodes/sh-script.el (sh--assignment-collect): Only after `=`!
| -rw-r--r-- | lisp/progmodes/sh-script.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 230789eb6cd..cbc0ac74f09 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -4338,12 +4338,13 @@ option followed by a colon `:' if the option accepts an argument." (defun sh--assignment-collect () (sh-remember-variable - (save-excursion - (if (re-search-forward (sh-feature sh-assignment-regexp) - (prog1 (point) - (beginning-of-line 1)) - t) - (match-string 1))))) + (when (eq ?= (char-before)) + (save-excursion + (if (re-search-forward (sh-feature sh-assignment-regexp) + (prog1 (point) + (beginning-of-line 1)) + t) + (match-string 1)))))) (defun sh-maybe-here-document (arg) |