diff 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
line wrap: on
line diff
--- a/lisp/files.el	Fri Sep 21 23:11:25 2007 +0000
+++ b/lisp/files.el	Sat Sep 22 00:02:52 2007 +0000
@@ -3188,7 +3188,7 @@
 			 (length name))
 		   (if keep-backup-version
 		       (length name)
-		     (or (string-match "\\.~[0-9.]+~\\'" name)
+		     (or (string-match "\\.~[-0-9a-z.]+~\\'" name)
 			 (string-match "~\\'" name)
 			 (length name))))))))