X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mel-g.el;h=88eae900970f886b59ef35409cec864c5e757d7b;hb=78d112053d1500b2fe8a166dec28a300f69ef18f;hp=73db30f338f4ece3ea2adc3fd4b5c31784b67c0c;hpb=98aa301b8b00f7ff51993a8d7b975e51d6cd0aa3;p=elisp%2Fflim.git diff --git a/mel-g.el b/mel-g.el index 73db30f..88eae90 100644 --- a/mel-g.el +++ b/mel-g.el @@ -82,21 +82,18 @@ ) )) -(defalias 'gzip64-encode-region 'gzip64-external-encode-region) -(defalias 'gzip64-decode-region 'gzip64-external-decode-region) - ;;; @ encoder/decoder for file ;;; -(defun gzip64-insert-encoded-file (filename) +(defun gzip64-external-insert-encoded-file (filename) (interactive (list (read-file-name "Insert encoded file: "))) (apply (function call-process) (car gzip64-external-encoder) filename t nil (cdr gzip64-external-encoder)) ) -(defun gzip64-write-decoded-region (start end filename) +(defun gzip64-external-write-decoded-region (start end filename) "Decode and write current region encoded by gzip64 into FILENAME. START and END are buffer positions." (interactive