Mercurial > emacs
comparison lisp/ange-ftp.el @ 6309:9217f29851c2
Don't use triple-hyphen in a character class.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 12 Mar 1994 00:23:12 +0000 |
| parents | b7fa2446073e |
| children | 69c4ca88cf5e |
comparison
equal
deleted
inserted
replaced
| 6308:f34deea7dc2c | 6309:9217f29851c2 |
|---|---|
| 855 | 855 |
| 856 ;;;; ------------------------------------------------------------ | 856 ;;;; ------------------------------------------------------------ |
| 857 ;;;; Internal variables. | 857 ;;;; Internal variables. |
| 858 ;;;; ------------------------------------------------------------ | 858 ;;;; ------------------------------------------------------------ |
| 859 | 859 |
| 860 (defconst ange-ftp-version "$Revision: 1.42 $") | 860 (defconst ange-ftp-version "$Revision: 1.43 $") |
| 861 | 861 |
| 862 (defvar ange-ftp-data-buffer-name " *ftp data*" | 862 (defvar ange-ftp-data-buffer-name " *ftp data*" |
| 863 "Buffer name to hold directory listing data received from ftp process.") | 863 "Buffer name to hold directory listing data received from ftp process.") |
| 864 | 864 |
| 865 (defvar ange-ftp-netrc-modtime nil | 865 (defvar ange-ftp-netrc-modtime nil |
| 4500 ;; Because some VMS ftp servers convert filenames to lower case | 4500 ;; Because some VMS ftp servers convert filenames to lower case |
| 4501 ;; we allow a-z in the filename regexp. I'm not too happy about this. | 4501 ;; we allow a-z in the filename regexp. I'm not too happy about this. |
| 4502 | 4502 |
| 4503 (defconst ange-ftp-vms-filename-regexp | 4503 (defconst ange-ftp-vms-filename-regexp |
| 4504 (concat | 4504 (concat |
| 4505 "\\(\\([_A-Za-z0-9$]?\\|[_A-Za-z0-9$][_A-Za-z0-9$---]*\\)\\." | 4505 "\\(\\([_A-Za-z0-9$]?\\|[_A-Za-z0-9$][-_A-Za-z0-9$]*\\)\\." |
| 4506 "[_A-Za-z0-9$---]*;+[0-9]*\\)") | 4506 "[-_A-Za-z0-9$]*;+[0-9]*\\)") |
| 4507 "Regular expression to match for a valid VMS file name in Dired buffer. | 4507 "Regular expression to match for a valid VMS file name in Dired buffer. |
| 4508 Stupid freaking bug! Position of _ and $ shouldn't matter but they do. | 4508 Stupid freaking bug! Position of _ and $ shouldn't matter but they do. |
| 4509 Having [A-Z0-9$_] bombs on filename _$$CHANGE_LOG$.TXT$ and $CHANGE_LOG$.TX | 4509 Having [A-Z0-9$_] bombs on filename _$$CHANGE_LOG$.TXT$ and $CHANGE_LOG$.TX |
| 4510 Other orders of $ and _ seem to all work just fine.") | 4510 Other orders of $ and _ seem to all work just fine.") |
| 4511 | 4511 |