# HG changeset patch # User Glenn Morris # Date 1203206068 0 # Node ID 87f9ccff5dd6b8117363c588e16225b4eb0879e5 # Parent dc9cca14cbb139daa5603cbe5408ab4599098d5f Comment. diff -r dc9cca14cbb1 -r 87f9ccff5dd6 lisp/jka-cmpr-hook.el --- a/lisp/jka-cmpr-hook.el Sat Feb 16 23:18:58 2008 +0000 +++ b/lisp/jka-cmpr-hook.el Sat Feb 16 23:54:28 2008 +0000 @@ -179,6 +179,19 @@ ;; I have this defined so that .Z files are assumed to be in unix ;; compress format; and .gz files, in gzip format, and .bz2 files in bzip fmt. + +;; FIXME? It seems ugly that one has to add "\\(~\\|\\.~[0-9]+~\\)?" to +;; all the regexps here, in order to match backup files etc. +;; It's trivial to modify jka-compr-get-compression-info to match +;; regexps against file-name-sans-versions, but this regexp is also +;; used to build a file-name-handler-alist entry. +;; find-file-name-handler does not use file-name-sans-versions. +;; Perhaps it should, +;; http://lists.gnu.org/archive/html/emacs-devel/2008-02/msg00812.html, +;; but it's used all over the place and there are probably other ramifications. +;; One could modify jka-compr-build-file-regexp to add the backup regexp, +;; but jka-compr-compression-info-list is a defcustom to which +;; anything could be added, so it's easiest to leave things as they are. (defcustom jka-compr-compression-info-list ;;[regexp ;; compr-message compr-prog compr-args