Function: ecomplete-save

ecomplete-save is a byte-compiled function defined in ecomplete.el.gz.

Signature

(ecomplete-save)

Documentation

Write the .ecompleterc file.

Source Code

;; Defined in /usr/src/emacs/lisp/ecomplete.el.gz
(defun ecomplete-save ()
  "Write the .ecompleterc file."
  ;; If the database is empty, it might be because we haven't called
  ;; `ecomplete-setup', so better not save at all, lest we lose the real
  ;; database!
  (when ecomplete-database
    (with-temp-buffer
      (let ((coding-system-for-write ecomplete-database-file-coding-system))
        (insert "(")
        (cl-loop for (type . elems) in ecomplete-database
                 do
                 (insert (format "(%s\n" type))
                 (dolist (entry elems)
                   (prin1 entry (current-buffer))
                   (insert "\n"))
                 (insert ")\n"))
	(insert ")")
	(write-region (point-min) (point-max)
		      ecomplete-database-file nil 'silent)))))