mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(file-name-sans-versions): Also allow `_'.

Browse Source
This commit is contained in:
Andreas Schwab 2007-09-22 08:51:58 +00:00
parent 257c97151c
commit d2f95fcaf9
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2007-09-22 Andreas Schwab <schwab@suse.de>
* files.el (file-name-sans-versions): Also allow `_'.
2007-09-22 Glenn Morris <rgm@gnu.org>
* eshell/esh-mode.el (eshell-output-filter-functions): Add

2
lisp/files.el
View File

@ -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))))))))