- (interactive
- (list (region-beginning) (region-end)
- (read-file-name "Write decoded region to file: ")))
- (let ((coding-system-for-write 'mel-ccl-b-rev)
- jka-compr-compression-info-list)
- (write-region start end filename)))
+ (interactive "*r\nFWrite decoded region to file: ")
+ (write-region-as-coding-system 'mel-ccl-b-rev start end filename))