Mercurial > emacs
comparison lisp/files.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 | 6044f2615082 |
| children | 62886e6eefe6 |
comparison
equal
deleted
inserted
replaced
| 6308:f34deea7dc2c | 6309:9217f29851c2 |
|---|---|
| 1328 ;; VMS version number is (a) semicolon, optional | 1328 ;; VMS version number is (a) semicolon, optional |
| 1329 ;; sign, zero or more digits or (b) period, option | 1329 ;; sign, zero or more digits or (b) period, option |
| 1330 ;; sign, zero or more digits, provided this is the | 1330 ;; sign, zero or more digits, provided this is the |
| 1331 ;; second period encountered outside of the | 1331 ;; second period encountered outside of the |
| 1332 ;; device/directory part of the file name. | 1332 ;; device/directory part of the file name. |
| 1333 (or (string-match ";[---+]?[0-9]*\\'" name) | 1333 (or (string-match ";[-+]?[0-9]*\\'" name) |
| 1334 (if (string-match "\\.[^]>:]*\\(\\.[---+]?[0-9]*\\)\\'" | 1334 (if (string-match "\\.[^]>:]*\\(\\.[-+]?[0-9]*\\)\\'" |
| 1335 name) | 1335 name) |
| 1336 (match-beginning 1)) | 1336 (match-beginning 1)) |
| 1337 (length name)) | 1337 (length name)) |
| 1338 (if keep-backup-version | 1338 (if keep-backup-version |
| 1339 (length name) | 1339 (length name) |