Function: plstore--write-contents-functions

plstore--write-contents-functions is a byte-compiled function defined in plstore.el.gz.

Signature

(plstore--write-contents-functions)

Documentation

Convert the decoded form of a plstore in the current buffer.

Convert it to the regular file representation of a plstore if needed. This function is used on hook write-contents-functions in plstore mode buffers.

Source Code

;; Defined in /usr/src/emacs/lisp/plstore.el.gz
(defun plstore--write-contents-functions ()
  "Convert the decoded form of a plstore in the current buffer.
Convert it to the regular file representation of a plstore if
needed.  This function is used on hook `write-contents-functions'
in plstore mode buffers."
  (when plstore-encoded
    (let ((store (plstore--decode (buffer-string)))
	  (file (buffer-file-name)))
      (unwind-protect
	  (progn
	    (set-visited-file-name nil)
	    (with-temp-buffer
	      (plstore--insert-buffer store)
	      (write-region (buffer-string) nil file)))
	(set-visited-file-name file)
	(set-buffer-modified-p nil))
      t)))