diff options
| author | Jim Blandy | 1993-05-03 03:35:01 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-05-03 03:35:01 +0000 |
| commit | f4c0acdb93b18501aee1dc7b95966bed85f5b041 (patch) | |
| tree | 2e65a71a9bce3e58e2668d00e5eb22f3e70229de | |
| parent | f33419002e134d9b1262ebab8e4e76c9b6f915aa (diff) | |
| download | emacs-f4c0acdb93b18501aee1dc7b95966bed85f5b041.tar.gz emacs-f4c0acdb93b18501aee1dc7b95966bed85f5b041.zip | |
* comint.el (comint-match-partial-pathname): Move "---" range in
character class in regular expressions to the end of the character
class; this way, it meets the POSIX regexp specs.
| -rw-r--r-- | lisp/comint.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 00c820af4a8..faa27f64d4d 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1037,11 +1037,11 @@ Useful if you accidentally suspend the top-level process." | |||
| 1037 | (defun comint-match-partial-pathname () | 1037 | (defun comint-match-partial-pathname () |
| 1038 | "Returns the filename at point or causes an error." | 1038 | "Returns the filename at point or causes an error." |
| 1039 | (save-excursion | 1039 | (save-excursion |
| 1040 | (if (re-search-backward "[^~/A-Za-z0-9---_.$#,=]" nil 'move) | 1040 | (if (re-search-backward "[^~/A-Za-z0-9_.$#,=-]" nil 'move) |
| 1041 | (forward-char 1)) | 1041 | (forward-char 1)) |
| 1042 | ;; Anchor the search forwards. | 1042 | ;; Anchor the search forwards. |
| 1043 | (if (not (looking-at "[~/A-Za-z0-9---_.$#,=]")) (error "")) | 1043 | (if (not (looking-at "[~/A-Za-z0-9_.$#,=-]")) (error "")) |
| 1044 | (re-search-forward "[~/A-Za-z0-9---_.$#,=]+") | 1044 | (re-search-forward "[~/A-Za-z0-9_.$#,=-]+") |
| 1045 | (substitute-in-file-name | 1045 | (substitute-in-file-name |
| 1046 | (buffer-substring (match-beginning 0) (match-end 0))))) | 1046 | (buffer-substring (match-beginning 0) (match-end 0))))) |
| 1047 | 1047 | ||