From d2f95fcaf907bcf7c494af208429e061de821eed Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 22 Sep 2007 08:51:58 +0000 Subject: [PATCH] (file-name-sans-versions): Also allow `_'. --- lisp/ChangeLog | 4 ++++ lisp/files.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 768a3a83a3c..457a25efbaf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-09-22 Andreas Schwab + + * files.el (file-name-sans-versions): Also allow `_'. + 2007-09-22 Glenn Morris * eshell/esh-mode.el (eshell-output-filter-functions): Add diff --git a/lisp/files.el b/lisp/files.el index 17b4a6504db..bf7d34e2227 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-z._]+~\\'" name) (string-match "~\\'" name) (length name)))))))) -- 2.39.2