Function: project-am--with-makefile-current

project-am--with-makefile-current is a byte-compiled function defined in project-am.el.gz.

Signature

(project-am--with-makefile-current DIR FUN)

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/project-am.el.gz
(defun project-am--with-makefile-current (dir fun)
  (let* ((fn (expand-file-name "Makefile.am" dir))
	 (kb (get-file-buffer fn)))
    (if (not (file-exists-p fn))
	nil
      (with-current-buffer
	  (or kb
	      ;; We need to find-file this thing, but don't use
	      ;; any semantic features.
	      (let ((semantic-init-hook nil)
		    (recentf-exclude `(,(lambda (_f) t))))
		(find-file-noselect fn)))
	(unwind-protect (funcall fun)
	  (if (not kb) (kill-buffer (current-buffer))))))))