diff options
| author | Stefan Monnier | 2012-07-17 07:52:00 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-07-17 07:52:00 -0400 |
| commit | 4dc7c8d5795458e89d19b59f64760e155c2cd70b (patch) | |
| tree | 2eb1ef73d69102f0ebee4e39056078adcdd49529 /lisp/progmodes/sh-script.el | |
| parent | 2143fa32671374cdef26fdb24355bf690728a344 (diff) | |
| parent | fbf31a9c2c08c86a7ab490cb7b920245b829a61d (diff) | |
| download | emacs-4dc7c8d5795458e89d19b59f64760e155c2cd70b.tar.gz emacs-4dc7c8d5795458e89d19b59f64760e155c2cd70b.zip | |
Merge from emacs-24
Diffstat (limited to 'lisp/progmodes/sh-script.el')
| -rw-r--r-- | lisp/progmodes/sh-script.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 034cfa4b394..be664c6fc6e 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el | |||
| @@ -1096,12 +1096,12 @@ subshells can nest." | |||
| 1096 | (")" (0 (sh-font-lock-paren (match-beginning 0)))) | 1096 | (")" (0 (sh-font-lock-paren (match-beginning 0)))) |
| 1097 | ;; Highlight (possibly nested) subshells inside "" quoted | 1097 | ;; Highlight (possibly nested) subshells inside "" quoted |
| 1098 | ;; regions correctly. | 1098 | ;; regions correctly. |
| 1099 | ("\"\\(?:\\(?:[^\\\"]\\|\\)*?[^\\]\\(?:\\\\\\\\\\)*\\)??\\(\\$(\\|`\\)" | 1099 | ("\"\\(?:\\(?:[^\\\"]\\|\\\\.\\)*?\\)??\\(\\$(\\|`\\)" |
| 1100 | (1 (ignore | 1100 | (1 (ignore |
| 1101 | ;; Save excursion because we want to also apply other | 1101 | (if (nth 8 (save-excursion (syntax-ppss (match-beginning 0)))) |
| 1102 | ;; syntax-propertize rules within the affected region. | ||
| 1103 | (if (nth 8 (syntax-ppss)) | ||
| 1104 | (goto-char (1+ (match-beginning 0))) | 1102 | (goto-char (1+ (match-beginning 0))) |
| 1103 | ;; Save excursion because we want to also apply other | ||
| 1104 | ;; syntax-propertize rules within the affected region. | ||
| 1105 | (save-excursion | 1105 | (save-excursion |
| 1106 | (sh-font-lock-quoted-subshell end))))))) | 1106 | (sh-font-lock-quoted-subshell end))))))) |
| 1107 | (point) end)) | 1107 | (point) end)) |