PageRenderTime 16ms CodeModel.GetById 11ms app.highlight 1ms RepoModel.GetById 4ms app.codeStats 0ms

/bin/emacs-tags

http://github.com/rejeep/emacs
#! | 17 lines | 14 code | 3 blank | 0 comment | 0 complexity | 4e9edc1afa7b7f5adf8f1d087e697f22 MD5 | raw file
Possible License(s): GPL-2.0
 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")