diff options
author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-09-22 17:52:17 +0000 |
---|---|---|
committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-09-22 17:52:17 +0000 |
commit | 52e737698bf516238369ddbc607d587ac89d5c57 (patch) | |
tree | f72e9d11a12d149aa5e8a6fbe14aa4f2e157931c /lisp/files.el | |
parent | 8240c8be84dfabc02c41004316f6acf587201187 (diff) | |
download | emacs-52e737698bf516238369ddbc607d587ac89d5c57.tar.gz |
(file-name-sans-versions): Also allow `A-Z'.
Diffstat (limited to 'lisp/files.el')
-rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)))))))) |