Re: TUTORIAL.gz

[Stefan Monnier]

> !       (setq file (expand-file-name filename data-directory))
> !       (unless (file-exists-p file) 
> !     (if (file-exists-p (concat file ".gz"))
> !         (setq file (concat file ".gz"))
> !       (error "%s does not exist" file)))
> !       (let ((auto-compression-mode t))
> !     (find-file file))
>          =========

> Note that insert-file-contents on a special buffer was used to protect
> novices for accidently overwriting the original TUTORIAL file while
> trying different editing commands.  So replacing it with find-file is
> not a good idea.   But you can still leave insert-file-contents with
> let-binding ((auto-compression-mode t)) around it, because compression
> mode can handle compressed files on low-level file functions (including
> insert-file-contents).

Agreed.  Except that let-binding auto-compression-mode doesn't do much
if anything.  Better just check whether auto-compression-mode is nil and if
so don't try to load the .gz file.

Actually, jka-compr.el should provide a list of extensions it understands,
so we wouldn't have to hard-code .gz here.  I guess jka-compr-load-suffixes
could be used for that.  The code in info.el that handles compressed files
could/should also be merged in.


        Stefan