Mercurial > emacs
changeset 2627:bc86243d1361
* 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 03 May 1993 03:35:01 +0000 |
| parents | 7ff77992fca0 |
| children | 6b17fe69a82f |
| files | lisp/comint.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Mon May 03 03:34:20 1993 +0000 +++ b/lisp/comint.el Mon May 03 03:35:01 1993 +0000 @@ -1037,11 +1037,11 @@ (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)))))