Function: org-mobile-write-checksums

org-mobile-write-checksums is a byte-compiled function defined in org-mobile.el.gz.

Signature

(org-mobile-write-checksums)

Documentation

Create checksums for all files in org-mobile-directory.

The table of checksums is written to the file mobile-checksums.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-mobile.el.gz
(defun org-mobile-write-checksums ()
  "Create checksums for all files in `org-mobile-directory'.
The table of checksums is written to the file mobile-checksums."
  (let ((sumfile (expand-file-name "checksums.dat" org-mobile-directory))
	(files org-mobile-checksum-files)
	entry file sum)
    (with-temp-file sumfile
      (set-buffer-file-coding-system 'undecided-unix nil)
      (while (setq entry (pop files))
	(setq file (car entry) sum (cdr entry))
	(insert (format "%s  %s\n" sum file))))))