Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents e121b013d1f0
children b405438285a2
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
510 (message "Uncompressing image...") 510 (message "Uncompressing image...")
511 (set-buffer buffer) 511 (set-buffer buffer)
512 (erase-buffer) 512 (erase-buffer)
513 (let ((coding-system-for-read 'binary) 513 (let ((coding-system-for-read 'binary)
514 (coding-system-for-write 'binary)) 514 (coding-system-for-write 'binary))
515 (insert-file-contents file) 515 (insert-file-contents-literally file)
516 (call-process-region (point-min) (point-max) 516 (call-process-region (point-min) (point-max)
517 "zcat" t t nil) 517 "zcat" t t nil)
518 (setq data 518 (setq data
519 (buffer-substring (point-min) (point-max)))) 519 (buffer-substring (point-min) (point-max))))
520 (message "Uncompressing image... done")) 520 (message "Uncompressing image... done"))