diff options
| author | Karl Heuer <[email protected]> | 1994-03-12 00:23:12 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-03-12 00:23:12 +0000 |
| commit | 26add1bf463d21a7dc855798911eae45e96fa202 (patch) | |
| tree | f227ddc7a59807d3f0d596907f3bc2c87af5a2d4 /lisp/ange-ftp.el | |
| parent | 96a410bce6167f4ba9be55693dee79075325893e (diff) | |
Don't use triple-hyphen in a character class.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 2d2cd2fa29..a0fc2a2307 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -857,7 +857,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.42 $") +(defconst ange-ftp-version "$Revision: 1.43 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -4502,8 +4502,8 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (defconst ange-ftp-vms-filename-regexp (concat - "\\(\\([_A-Za-z0-9$]?\\|[_A-Za-z0-9$][_A-Za-z0-9$---]*\\)\\." - "[_A-Za-z0-9$---]*;+[0-9]*\\)") + "\\(\\([_A-Za-z0-9$]?\\|[_A-Za-z0-9$][-_A-Za-z0-9$]*\\)\\." + "[-_A-Za-z0-9$]*;+[0-9]*\\)") "Regular expression to match for a valid VMS file name in Dired buffer. Stupid freaking bug! Position of _ and $ shouldn't matter but they do. Having [A-Z0-9$_] bombs on filename _$$CHANGE_LOG$.TXT$ and $CHANGE_LOG$.TX |