Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-folder.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 7e54bd776075
children 05472e90ae02
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
2609 (setq got-mail (/= opoint-max (point-max))) 2609 (setq got-mail (/= opoint-max (point-max)))
2610 (if (not got-mail) 2610 (if (not got-mail)
2611 nil 2611 nil
2612 (write-region opoint-max (point-max) buffer-file-name t t) 2612 (write-region opoint-max (point-max) buffer-file-name t t)
2613 (vm-increment vm-modification-counter) 2613 (vm-increment vm-modification-counter)
2614 (set-buffer-modified-p old-buffer-modified-p) 2614 (set-buffer-modified-p old-buffer-modified-p))
2615 (kill-buffer crash-buf) 2615 (kill-buffer crash-buf)
2616 (if (not (stringp vm-keep-crash-boxes)) 2616 (if (not (stringp vm-keep-crash-boxes))
2617 (vm-error-free-call 'delete-file crash-box) 2617 (vm-error-free-call 'delete-file crash-box)
2618 (let ((time (decode-time (current-time))) 2618 (let ((time (decode-time (current-time)))
2619 name) 2619 name)
2620 (setq name
2621 (expand-file-name (format "Z-%02d-%02d-%05d"
2622 (nth 4 time)
2623 (nth 3 time)
2624 (% (vm-abs (random)) 100000))
2625 vm-keep-crash-boxes))
2626 (while (file-exists-p name)
2620 (setq name 2627 (setq name
2621 (expand-file-name (format "Z-%02d-%02d-%05d" 2628 (expand-file-name (format "Z-%02d-%02d-%05d"
2622 (nth 4 time) 2629 (nth 4 time)
2623 (nth 3 time) 2630 (nth 3 time)
2624 (% (vm-abs (random)) 100000)) 2631 (% (vm-abs (random)) 100000))
2625 vm-keep-crash-boxes)) 2632 vm-keep-crash-boxes)))
2626 (while (file-exists-p name) 2633 (rename-file crash-box name)))
2627 (setq name
2628 (expand-file-name (format "Z-%02d-%02d-%05d"
2629 (nth 4 time)
2630 (nth 3 time)
2631 (% (vm-abs (random)) 100000))
2632 vm-keep-crash-boxes)))
2633 (rename-file crash-box name))))
2634 got-mail )))) 2634 got-mail ))))
2635 2635
2636 (defun vm-compute-spool-files () 2636 (defun vm-compute-spool-files ()
2637 (let ((fallback-triples nil) 2637 (let ((fallback-triples nil)
2638 triples) 2638 triples)