From 7bf6712498ad2618bee7bf5b3866fb6da0772339 Mon Sep 17 00:00:00 2001
From: Simeon Simeonov
Date: Thu, 19 Sep 2013 22:27:58 +0200
Subject: All snippets imported, init file polished

---
 .../mysnippets/text-mode/emacs-lisp-mode/file.process   | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 .emacs.d/mysnippets/text-mode/emacs-lisp-mode/file.process

(limited to '.emacs.d/mysnippets/text-mode/emacs-lisp-mode/file.process')

diff --git a/.emacs.d/mysnippets/text-mode/emacs-lisp-mode/file.process b/.emacs.d/mysnippets/text-mode/emacs-lisp-mode/file.process
new file mode 100644
index 0000000..abd1a33
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/emacs-lisp-mode/file.process
@@ -0,0 +1,17 @@
+#name : a function that process a file
+#contributor : Xah Lee
+# --
+(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")))
-- 
cgit v1.3