From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 12 Jul 2014 16:26:54 +0000 (-0700)
Subject: * etags.c (Lisp_functions): Also record cl-defun etc.
X-Git-Tag: emacs-24.3.93~70
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb02552638b0c653bfc3d269d879fdffba37bd31;p=emacs.git

* etags.c (Lisp_functions): Also record cl-defun etc.

Fixes: debbugs:17965
---

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 42a44f9712d..f204ab517e2 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,7 @@
+2014-07-12  Paul Eggert  <eggert@cs.ucla.edu>
+
+	* etags.c (Lisp_functions): Also record cl-defun etc. (Bug#17965)
+
 2014-05-20  Paul Eggert  <eggert@cs.ucla.edu>
 
 	Fix rcs2log problems with CVS.
diff --git a/lib-src/etags.c b/lib-src/etags.c
index 66e7fbb467f..5f1f99c4677 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -4747,6 +4747,9 @@ Lisp_functions (FILE *inf)
 	    }
 	}
 
+      if (strneq (dbp + 1, "cl-", 3) || strneq (dbp + 1, "CL-", 3))
+	dbp += 3;
+
       if (strneq (dbp+1, "def", 3) || strneq (dbp+1, "DEF", 3))
 	{
 	  dbp = skip_non_spaces (dbp);