/bin/emacs-tags
#! | 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")