diff options
| author | Stefan Monnier | 2005-05-20 13:28:38 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-05-20 13:28:38 +0000 |
| commit | fe67016b3a575eacc0d12d7e14388fb77411d117 (patch) | |
| tree | 241ea91924e9e9024fc87b0149e53e5c988d0c16 | |
| parent | 9605a00f9c823ff0a5bc0f8412d2e1569ace377b (diff) | |
| download | emacs-fe67016b3a575eacc0d12d7e14388fb77411d117.tar.gz emacs-fe67016b3a575eacc0d12d7e14388fb77411d117.zip | |
(sh-mode, sh-get-word): Minor regexp fixes.
| -rw-r--r-- | lisp/progmodes/sh-script.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 7a647f97775..e2d82f7f13b 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el | |||
| @@ -1389,7 +1389,7 @@ with your script for an edit-interpret-debug cycle." | |||
| 1389 | (cond ((looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)") | 1389 | (cond ((looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)") |
| 1390 | (match-string 2)) | 1390 | (match-string 2)) |
| 1391 | ((and buffer-file-name | 1391 | ((and buffer-file-name |
| 1392 | (string-match "\\.m?spec$" buffer-file-name)) | 1392 | (string-match "\\.m?spec\\'" buffer-file-name)) |
| 1393 | "rpm"))))) | 1393 | "rpm"))))) |
| 1394 | (sh-set-shell (or interpreter sh-shell-file) nil nil)) | 1394 | (sh-set-shell (or interpreter sh-shell-file) nil nil)) |
| 1395 | (run-hooks 'sh-mode-hook)) | 1395 | (run-hooks 'sh-mode-hook)) |
| @@ -2290,7 +2290,7 @@ we go to the end of the previous line and do not check for continuations." | |||
| 2290 | (if (looking-at "[\"'`]") | 2290 | (if (looking-at "[\"'`]") |
| 2291 | (sh-safe-forward-sexp) | 2291 | (sh-safe-forward-sexp) |
| 2292 | ;; (> (skip-chars-forward "^ \t\n\"'`") 0) | 2292 | ;; (> (skip-chars-forward "^ \t\n\"'`") 0) |
| 2293 | (> (skip-chars-forward "-_a-zA-Z\$0-9") 0) | 2293 | (> (skip-chars-forward "-_a-zA-Z$0-9") 0) |
| 2294 | )) | 2294 | )) |
| 2295 | (buffer-substring start (point)) | 2295 | (buffer-substring start (point)) |
| 2296 | )) | 2296 | )) |