From b368551b76e7e811a3cca2c8531efece04fbbd50 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sat, 22 Sep 2007 17:52:17 +0000 Subject: [PATCH] (file-name-sans-versions): Also allow `A-Z'. --- lisp/ChangeLog | 2 ++ lisp/files.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a115c0291b8..1efc5a39934 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2007-09-22 Dan Nicolaescu + * files.el (file-name-sans-versions): Also allow `A-Z'. + * vc.el: Mention all supported VC backends. 2007-09-22 Richard Stallman diff --git a/lisp/files.el b/lisp/files.el index bf7d34e2227..19762c18945 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3188,7 +3188,7 @@ we do not remove backup version numbers, only true file version numbers." (length name)) (if keep-backup-version (length name) - (or (string-match "\\.~[-0-9a-z._]+~\\'" name) + (or (string-match "\\.~[-0-9a-zA-Z._]+~\\'" name) (string-match "~\\'" name) (length name)))))))) -- 2.39.2