18 lines
602 B
Plaintext
18 lines
602 B
Plaintext
|
#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")))
|