michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(emacs/lean-tags): call "linja TAGS" to make TAGS

Browse source 
fix #117
This commit is contained in:
Soonho Kong 2014-08-30 14:55:12 -07:00
parent d36a609388
commit 246d4224bc
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/emacs/lean-tags.el
View file

@ -7,11 +7,11 @@
(require 'dash) (require 'dash)
(defun lean-generate-tags () (defun lean-generate-tags ()
"Run lmake TAGS and let emacs use the generated TAGS file." "Run linja TAGS and let emacs use the generated TAGS file."
(interactive) (interactive)
(let ((ltags-file-name (lean-get-executable "lmake")) (let ((ltags-file-name (lean-get-executable "linja"))
tags-file-name) tags-file-name)
(call-process ltags-file-name nil nil nil "TAGS" "--jobs" "--keep-going" "--permissive")) (call-process ltags-file-name nil nil nil "TAGS"))
(unless tags-table-list (unless tags-table-list
(setq tags-file-name (lean-find-file-upward "TAGS")) (setq tags-file-name (lean-find-file-upward "TAGS"))
(when tags-file-name (when tags-file-name
@ -23,7 +23,7 @@
(symbol-name f)))) (symbol-name f))))
`(defadvice ,f `(defadvice ,f
(before ,(intern advice-name) first activate) (before ,(intern advice-name) first activate)
,(concat "Before call " f-name ", run 'lmake TAGS'") ,(concat "Before call " f-name ", run 'linja TAGS'")
(when (derived-mode-p 'lean-mode) (when (derived-mode-p 'lean-mode)
(lean-generate-tags))))) (lean-generate-tags)))))