create-tags-file.el

(defun create-tags-file ()
  (interactive)
  (let*
	  ((project-dir (read-directory-name "Project directory? "))
	   (project-tags-file (concat project-dir ".tags"))
	   (project-files (concat project-dir "*"))
	   (ctags-args '()))
	(call-process "ctags-exuberant" nil nil t "-e" "-f" project-tags-file " " project-files))
  )