Source

.emacs.d / vendor / yasnippet / snippets / emacs-lisp-mode / x-file.process.yasnippet

Full commit
# contributor: Xah Lee (XahLee.org)
# name: a function that process a file
# key: x-file
# --
(defun doThisFile (fpath)
  "Process the file at path FPATH ..."
  (let ()
    ;; create temp buffer without undo record or font lock. (more efficient)
    ;; first space in temp buff name is necessary
    (set-buffer (get-buffer-create " myTemp"))
    (insert-file-contents fpath nil nil nil t)

    ;; process it ...
    ;; (goto-char 0) ; move to begining of file's content (in case it was open)
    ;; ... do something here
    ;; (write-file fpath) ;; write back to the file

    (kill-buffer " myTemp")))