diff options
author | Jim Blandy <jimb@redhat.com> | 1993-05-03 03:35:01 +0000 |
---|---|---|
committer | Jim Blandy <jimb@redhat.com> | 1993-05-03 03:35:01 +0000 |
commit | 1acb11140526c98637b3aec1160ee6682caf4af9 (patch) | |
tree | 283a6e9c5836b845caf290895cf50099cd86fd97 /lisp/comint.el | |
parent | 8deca049df2d7fdb936d7eb5bd51528bb4e52f85 (diff) | |
download | emacs-1acb11140526c98637b3aec1160ee6682caf4af9.tar.gz |
* 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.
Diffstat (limited to 'lisp/comint.el')
-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." (defun comint-match-partial-pathname () "Returns the filename at point or causes an error." (save-excursion - (if (re-search-backward "[^~/A-Za-z0-9---_.$#,=]" nil 'move) + (if (re-search-backward "[^~/A-Za-z0-9_.$#,=-]" nil 'move) (forward-char 1)) ;; Anchor the search forwards. - (if (not (looking-at "[~/A-Za-z0-9---_.$#,=]")) (error "")) - (re-search-forward "[~/A-Za-z0-9---_.$#,=]+") + (if (not (looking-at "[~/A-Za-z0-9_.$#,=-]")) (error "")) + (re-search-forward "[~/A-Za-z0-9_.$#,=-]+") (substitute-in-file-name (buffer-substring (match-beginning 0) (match-end 0))))) |