Mercurial > emacs
comparison lisp/files.el @ 78867:82b0e30f9888
* files.el (file-name-sans-versions): Allow - and a-z in version
names.
* log-view.el (log-view-mode-map, log-view-mode-menu): Bind
log-view-annotate-version.
(log-view-beginning-of-defun, log-view-end-of-defun)
(log-view-annotate-version): New functions.
(log-view-mode): Use log-view-beginning-of-defun and
log-view-end-of-defun.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 22 Sep 2007 00:02:52 +0000 |
| parents | 279dcb8bebb0 |
| children | 0315f6cc72de |
comparison
equal
deleted
inserted
replaced
| 78866:b38afb999811 | 78867:82b0e30f9888 |
|---|---|
| 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-9.]+~\\'" 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." |