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." |