(goto-char p)
nil))))
(while
- (progn (skip-syntax-backward ".w_'()")
+ (progn (skip-syntax-backward ".w_'")
(or (not (zerop (skip-syntax-backward "\\")))
(when (eq ?\\ (char-before (1- (point))))
(let ((p (point)))
(should (equal
(buffer-substring-no-properties (point-min) (point-max))
"relative-path/to/configure --prefix=$prefix\\
- --with-x")))
- (with-temp-buffer
- (insert "${path_to_root}/configure --prefix=$prefix\\
- --with-x")
- (shell-script-mode)
- (goto-char (point-min))
- (forward-line 1)
- (indent-for-tab-command)
- (should (equal
- (buffer-substring-no-properties (point-min) (point-max))
- "${path_to_root}/configure --prefix=$prefix\\
- --with-x"))))
+ --with-x"))))
;;; sh-script-tests.el ends here