(defun generate-and-load-tags (top-tag-directory)
  (let ((tag-file (concat top-tag-directory "/TAGS")))
    (delete-file-or-ignore tag-file)
    (shell-command (concat "ctags " "-f " tag-file " -R -e " top-tag-directory))
    (visit-tags-table tag-file)))