diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-12 00:23:12 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-12 00:23:12 +0000 |
| commit | 26add1bf463d21a7dc855798911eae45e96fa202 (patch) | |
| tree | f227ddc7a59807d3f0d596907f3bc2c87af5a2d4 /lisp/files.el | |
| parent | 96a410bce6167f4ba9be55693dee79075325893e (diff) | |
| download | emacs-26add1bf463d21a7dc855798911eae45e96fa202.tar.gz | |
Don't use triple-hyphen in a character class.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 8f33ee8d975..7b1c3cbec89 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1330,8 +1330,8 @@ we do not remove backup version numbers, only true file version numbers." ;; sign, zero or more digits, provided this is the ;; second period encountered outside of the ;; device/directory part of the file name. - (or (string-match ";[---+]?[0-9]*\\'" name) - (if (string-match "\\.[^]>:]*\\(\\.[---+]?[0-9]*\\)\\'" + (or (string-match ";[-+]?[0-9]*\\'" name) + (if (string-match "\\.[^]>:]*\\(\\.[-+]?[0-9]*\\)\\'" name) (match-beginning 1)) (length name)) |