summaryrefslogblamecommitdiffstats
path: root/emacs.d/lisp/yasnippet/snippets/emacs-lisp-mode/x-file.process.yasnippet
blob: 7e09cb8eec7b388693600e57236a02b0274cbecc (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
















                                                                               
#contributor: Xah Lee (XahLee.org)
#name: a function that process a 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")))