diff options
| author | Stefan Monnier | 2012-07-09 09:54:50 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-07-09 09:54:50 -0400 |
| commit | aa7aaf8f0bf845b57961dff1b702098e50cb16ee (patch) | |
| tree | 701470de261a764d1863623491de663fa946888f | |
| parent | cb4429739a65b6a17511ef85cdcb1846c5a088c2 (diff) | |
| download | emacs-aa7aaf8f0bf845b57961dff1b702098e50cb16ee.tar.gz emacs-aa7aaf8f0bf845b57961dff1b702098e50cb16ee.zip | |
* lisp/progmodes/sh-script.el (sh-syntax-propertize-function): Fix last
change.
Fixes: debbugs:11826
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/progmodes/sh-script.el | 8 |
2 files changed, 11 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e5f4bb8f770..1faebf5b083 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-07-09 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * progmodes/sh-script.el (sh-syntax-propertize-function): Fix last | ||
| 4 | change (bug#11826). | ||
| 5 | |||
| 1 | 2012-07-02 Glenn Morris <rgm@gnu.org> | 6 | 2012-07-02 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * simple.el (kill-whole-line): Doc tweak. | 8 | * simple.el (kill-whole-line): Doc tweak. |
| @@ -11,8 +16,8 @@ | |||
| 11 | 16 | ||
| 12 | 2012-06-28 Andreas Schwab <schwab@linux-m68k.org> | 17 | 2012-06-28 Andreas Schwab <schwab@linux-m68k.org> |
| 13 | 18 | ||
| 14 | * calendar/cal-dst.el (calendar-current-time-zone): Return | 19 | * calendar/cal-dst.el (calendar-current-time-zone): |
| 15 | calendar-current-time-zone-cache if non-nil. | 20 | Return calendar-current-time-zone-cache if non-nil. |
| 16 | 21 | ||
| 17 | 2012-06-25 Masatake YAMATO <yamato@redhat.com> | 22 | 2012-06-25 Masatake YAMATO <yamato@redhat.com> |
| 18 | 23 | ||
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 48b19524b8c..7d38df6aff6 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el | |||
| @@ -1105,12 +1105,12 @@ subshells can nest." | |||
| 1105 | (")" (0 (sh-font-lock-paren (match-beginning 0)))) | 1105 | (")" (0 (sh-font-lock-paren (match-beginning 0)))) |
| 1106 | ;; Highlight (possibly nested) subshells inside "" quoted | 1106 | ;; Highlight (possibly nested) subshells inside "" quoted |
| 1107 | ;; regions correctly. | 1107 | ;; regions correctly. |
| 1108 | ("\"\\(?:\\(?:[^\\\"]\\|\\)*?[^\\]\\(?:\\\\\\\\\\)*\\)??\\(\\$(\\|`\\)" | 1108 | ("\"\\(?:\\(?:[^\\\"]\\|\\\\.\\)*?\\)??\\(\\$(\\|`\\)" |
| 1109 | (1 (ignore | 1109 | (1 (ignore |
| 1110 | ;; Save excursion because we want to also apply other | 1110 | (if (nth 8 (save-excursion (syntax-ppss (match-beginning 0)))) |
| 1111 | ;; syntax-propertize rules within the affected region. | ||
| 1112 | (if (nth 8 (syntax-ppss)) | ||
| 1113 | (goto-char (1+ (match-beginning 0))) | 1111 | (goto-char (1+ (match-beginning 0))) |
| 1112 | ;; Save excursion because we want to also apply other | ||
| 1113 | ;; syntax-propertize rules within the affected region. | ||
| 1114 | (save-excursion | 1114 | (save-excursion |
| 1115 | (sh-font-lock-quoted-subshell end))))))) | 1115 | (sh-font-lock-quoted-subshell end))))))) |
| 1116 | (point) end)) | 1116 | (point) end)) |