Function: project--write-project-list

project--write-project-list is a byte-compiled function defined in project.el.gz.

Signature

(project--write-project-list)

Documentation

Save project--list in project-list-file.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/project.el.gz
(defun project--write-project-list ()
  "Save `project--list' in `project-list-file'."
  (let ((filename project-list-file))
    (with-temp-buffer
      (insert ";;; -*- lisp-data -*-\n")
      (let ((print-length nil)
            (print-level nil))
        (if-let* ((pred (alist-get 'list-write project-prune-zombie-projects))
                  ((consp project--list))
                  (inhibit-message t))
            (project--delete-zombie-projects pred))
        (pp (mapcar (lambda (elem)
                      (let ((name (car elem)))
                        (list (if (file-remote-p name) name
                                (expand-file-name name)))))
                    project--list)
            (current-buffer)))
      (write-region nil nil filename nil 'silent))))