Mercurial > emacs
comparison lisp/files.el @ 78871:0315f6cc72de
(file-name-sans-versions): Also allow `_'.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Sat, 22 Sep 2007 08:51:41 +0000 |
parents | 82b0e30f9888 |
children | 6824f67c5a37 |
comparison
equal
deleted
inserted
replaced
78870:72989badaad7 | 78871:0315f6cc72de |
---|---|
3186 name) | 3186 name) |
3187 (match-beginning 1)) | 3187 (match-beginning 1)) |
3188 (length name)) | 3188 (length name)) |
3189 (if keep-backup-version | 3189 (if keep-backup-version |
3190 (length name) | 3190 (length name) |
3191 (or (string-match "\\.~[-0-9a-z.]+~\\'" name) | 3191 (or (string-match "\\.~[-0-9a-z._]+~\\'" name) |
3192 (string-match "~\\'" name) | 3192 (string-match "~\\'" name) |
3193 (length name)))))))) | 3193 (length name)))))))) |
3194 | 3194 |
3195 (defun file-ownership-preserved-p (file) | 3195 (defun file-ownership-preserved-p (file) |
3196 "Return t if deleting FILE and rewriting it would preserve the owner." | 3196 "Return t if deleting FILE and rewriting it would preserve the owner." |