Mercurial > hg > xemacs-beta

comparison lisp/packages/jka-compr.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 1856695b1fa9
children 489f57a838ef
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
448 448
449 (set-buffer temp-buffer) 449 (set-buffer temp-buffer)
450 (jka-compr-run-real-handler 'write-region 450 (jka-compr-run-real-handler 'write-region
451 (list (point-min) (point-max) 451 (list (point-min) (point-max)
452 filename 452 filename
453 (and append can-append) 'dont lockname coding-system)) 453 (and append can-append)
454 'dont lockname 'binary))
454 (erase-buffer) 455 (erase-buffer)
455 (set-buffer cbuf) 456 (set-buffer cbuf)
456 457
457 (jka-compr-delete-temp-file temp-file) 458 (jka-compr-delete-temp-file temp-file)
458 459