Mercurial > emacs
diff lisp/jka-compr.el @ 26039:fb6b9c37cdc4
Use make-temp-file.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 15 Oct 1999 16:03:59 +0000 |
parents | b4f8e285c891 |
children | af30e0897839 |
line wrap: on
line diff
--- a/lisp/jka-compr.el Fri Oct 15 15:48:53 1999 +0000 +++ b/lisp/jka-compr.el Fri Oct 15 16:03:59 1999 +0000 @@ -356,49 +356,11 @@ :type 'string :group 'jka-compr) -(defvar jka-compr-temp-name-table (make-vector 31 nil)) - (defun jka-compr-make-temp-name (&optional local-copy) "This routine will return the name of a new file." - (let* ((lastchar ?a) - (prevchar ?a) - (template (concat jka-compr-temp-name-template "aa")) - (lastpos (1- (length template))) - (not-done t) - file - entry) - - (while not-done - (aset template lastpos lastchar) - (setq file (concat (make-temp-name template) "#")) - (setq entry (intern file jka-compr-temp-name-table)) - (if (or (get entry 'active) - (file-exists-p file)) + (make-temp-file jka-compr-temp-name-template)) - (progn - (setq lastchar (1+ lastchar)) - (if (> lastchar ?z) - (progn - (setq prevchar (1+ prevchar)) - (setq lastchar ?a) - (if (> prevchar ?z) - (error "Can't allocate temp file.") - (aset template (1- lastpos) prevchar))))) - - (put entry 'active (not local-copy)) - (setq not-done nil))) - - file)) - - -(defun jka-compr-delete-temp-file (temp) - - (put (intern temp jka-compr-temp-name-table) - 'active nil) - - (condition-case () - (delete-file temp) - (error nil))) +(defalias 'jka-compr-delete-temp-file 'delete-file) (defun jka-compr-write-region (start end file &optional append visit)