Campana Visual - Utilización de bzip2 con emacs

6.1 Cambio de emacs para todos:

He escrito el siguiente parche para jka-compr.el que añade bzip2 al auto-compression-mode.

Renuncia: Sólo lo he comprobado con emacs-20.2, pero no tengo ninguna razón para creer que un parche parecido no pueda funcionar con otras versiones.

Para utilizarlo,

1. Vaya al directorio emacs-20.2/lisp (o donde lo haya desempaquetado)
2. Ponga el parche en un fichero llamado jka-compr.el.diff (en este fichero sólo debe estar el parche ;)
3. Haga

    patch < jka-compr.el.diff
   

4. Ejecute emacs, y haga

    M-x byte-compile-file jka-compr.el
   

5. Salga de emacs.
6. Cambie su fichero jka-compr.elc original a un lugar seguro para evitar fallos.
7. Cámbielo con el nuevo jka-compr.elc.
8. ¡Diviértase!

--- jka-compr.el        Sat Jul 26 17:02:39 1997
+++ jka-compr.el.new    Thu Feb  5 17:44:35 1998
@@ -44,7 +44,7 @@
 ;; The variable, jka-compr-compression-info-list can be used to
 ;; customize jka-compr to work with other compression programs.
 ;; The default value of this variable allows jka-compr to work with
-;; Unix compress and gzip.
+;; Unix compress and gzip.  David Fetter added bzip2 support :)
 ;;
 ;; If you are concerned about the stderr output of gzip and other
 ;; compression/decompression programs showing up in your buffers, you
@@ -121,7 +121,9 @@
 
 
 ;;; I have this defined so that .Z files are assumed to be in unix
-;;; compress format; and .gz files, in gzip format.
+;;; compress format; and .gz files, in gzip format, and .bz2 files,
+;;; in the snappy new bzip2 format from http://www.muraroa.demon.co.uk.
+;;; Keep up the good work, people!
 (defcustom jka-compr-compression-info-list
   ;;[regexp
   ;; compr-message  compr-prog  compr-args
@@ -131,6 +133,10 @@
      "compressing"    "compress"     ("-c")
      "uncompressing"  "uncompress"   ("-c")
      nil t]
+    ["\\.bz2\\'"
+     "bzip2ing"        "bzip2"         (

)
+ "bunzip2ing" "bzip2" ("-d")
+ nil t]
["\\.tgz\\'"
"zipping" "gzip" ("-c" "-q")
"unzipping" "gzip" ("-c" "-q" "-d")
</FONT></PRE></CODE></BLOCKQUOTE>
<P><FONT size=2></FONT></P>
<H2><FONT size=2>6.2 Cambiar emacs para uno mismo:</FONT></H2>
<P><FONT size=2>Este truco se lo tengo que agradecer a Ulrick Dickow, <CODE>ukd@kampsax.dk</CODE>, programador de sistemas en <I>Kampsax Technology</I>: </FONT></P>
<P><FONT size=2>Para hacer que se pueda utilizar <CODE>bzip2</CODE> automáticamente cuando no es el administrador del sistema, sólo tiene que añadir lo siguiente al fichero <CODE>.emacs</CODE>:</FONT></P>
<P><FONT size=2></FONT>
<BLOCKQUOTE><CODE><PRE><FONT size=2>;; Automatic (un)compression on loading/saving files (gzip(1) and similar)
;; We start it in the off state, so that bzip2(1) support can be added.
;; Code thrown together by Ulrik Dickow for ~/.emacs with Emacs 19.34.
;; Should work with many older and newer Emacsen too. No warranty though.
;;
(if (fboundp 'auto-compression-mode) ; Emacs 19.30+
(auto-compression-mode 0)
(require 'jka-compr)
(toggle-auto-compression 0))
;; Now add bzip2 support and turn auto compression back on.
(add-to-list 'jka-compr-compression-info-list
["\\.bz2\\(~\\|\\.~[0-9]+~\\)?\\'"
"zipping" "bzip2" ()
"unzipping" "bzip2" ("-d")
nil t])
(toggle-auto-compression 1 t)
</FONT></PRE></CODE></BLOCKQUOTE>""