/bin/emacs-tags

 1#!/usr/bin/env emacs --script
 2
 3;; Creates a TAGS file for all .el files in the given path (none path
 4;; means ~/.emacs.d) and places it in the current folder.
 5;;
 6;; Usage:
 7;;   emacs-tags
 8;;   emacs-tags path
 9;;   emacs-tags path1 path2 ...
10
11(require 'find-lisp)
12
13(let ((files) (paths (or argv (list "~/.emacs.d"))))
14  (dolist (path paths)
15    (setq files (append files (find-lisp-find-files path "\\.el$"))))
16  (shell-command (concat "etags " (mapconcat 'identity files " "))))
17(message "Successfully created TAGS file")