986 |
(when (memq (char-before) '(?\" ?\')) |
(when (memq (char-before) '(?\" ?\')) |
987 |
(condition-case nil (progn (backward-sexp 1) t) |
(condition-case nil (progn (backward-sexp 1) t) |
988 |
(error nil))))) |
(error nil))))) |
989 |
(forward-comment (- (point-max))) |
(while (progn |
990 |
|
(forward-comment (- (point-max))) |
991 |
|
;; Maybe we've bumped into an escaped newline. |
992 |
|
(sh-is-quoted-p (point))) |
993 |
|
(backward-char 1)) |
994 |
(when (eq (char-before) ?|) |
(when (eq (char-before) ?|) |
995 |
(backward-char 1) t))) |
(backward-char 1) t))) |
996 |
(when (save-excursion (backward-char 2) (looking-at ";;\\|in")) |
(when (save-excursion (backward-char 2) (looking-at ";;\\|in")) |