Mercurial > emacs
changeset 78886:da3f83794d1f
(file-name-sans-versions): Use [:alnum:] and also allow
#, @, : and ^.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 23 Sep 2007 16:01:40 +0000 |
| parents | 30c6b45091fa |
| children | 8faf94b6c420 |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Sep 23 01:09:20 2007 +0000 +++ b/lisp/ChangeLog Sun Sep 23 16:01:40 2007 +0000 @@ -1,3 +1,8 @@ +2007-09-23 Dan Nicolaescu <dann@ics.uci.edu> + + * files.el (file-name-sans-versions): Use [:alnum:] and also allow + #, @, : and ^. + 2007-09-23 Glenn Morris <rgm@gnu.org> * ses.el (ses-calculate-cell): Don't evaluate unsafe formulae.
--- a/lisp/files.el Sun Sep 23 01:09:20 2007 +0000 +++ b/lisp/files.el Sun Sep 23 16:01:40 2007 +0000 @@ -3188,7 +3188,7 @@ (length name)) (if keep-backup-version (length name) - (or (string-match "\\.~[-0-9a-zA-Z._]+~\\'" name) + (or (string-match "\\.~[-[:alnum:]:#@^._]+~\\'" name) (string-match "~\\'" name) (length name))))))))