Function: srecode-compile-file

srecode-compile-file is a byte-compiled function defined in compile.el.gz.

Signature

(srecode-compile-file FNAME)

Documentation

Compile the templates from the file FNAME.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/srecode/compile.el.gz
;;;  TEMPLATE COMPILER
;;
(defun srecode-compile-file (fname)
  "Compile the templates from the file FNAME."
  (let ((peb (get-file-buffer fname)))
    (save-excursion
      ;; Make whatever it is local.
      (if (not peb)
	  (set-buffer (semantic-find-file-noselect fname))
	(set-buffer peb))
      ;; Do the compile.
      (unless (semantic-active-p)
	(semantic-new-buffer-fcn))
      (srecode-compile-templates)
      ;; Trash the buffer if we had to read it in.
      (if (not peb)
	  (kill-buffer (current-buffer)))
      )))