From d5b94e3704ab5d3e464101451a2d08a9c43d3ed6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Fri, 1 Apr 2022 01:19:31 +0200
Subject: Add Prolog support to TAGS.

---
 .dir-locals.el | 6 +++++-
 Makefile       | 4 ++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/.dir-locals.el b/.dir-locals.el
index 62e25f6..d9e0d06 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -1,2 +1,6 @@
 ((c-mode . ((flycheck-gcc-include-path . ("C:/Program Files/swipl/include"))
-	    (flycheck-gcc-definitions . ("UNICODE" "_UNICODE")))))
+	    (flycheck-gcc-definitions . ("UNICODE" "_UNICODE"))))
+ (nil . ((eval . (progn
+		   (require 'project)
+		   (setq-local tags-table-list
+			       (list (concat (car (project-roots (project-current))) "TAGS"))))))))
diff --git a/Makefile b/Makefile
index 2b16b1f..9207143 100644
--- a/Makefile
+++ b/Makefile
@@ -25,8 +25,8 @@ $(B)resource.obj: c/resource.h c/resource.rc
 $(B)%.obj: c/%.c c/defs.h
 	$(CC) -c $(CFLAGS) -o $@ $<
 
-TAGS: c/*.c c/*.h
-	etags $^
+TAGS: c/*.c c/*.h pl/*.pl
+	etags c/*.c c/*.h -lprolog pl/*.pl
 
 clean:
 	rm -fr $(B)EpisodeBrowser.exe $(B)*.obj
-- 
cgit v1.2.3