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

Fixes: debbugs:17965

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 42a44f9712d684b3f37a5b495baac6b14123cd4f..f204ab517e28b56b1b5c64ef16dc302ab12dd92e 100644 (file)
--- 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 66e7fbb467f3599d0ee14d394c89ae0533a54833..5f1f99c46776aea9304c01211c61b021b164f79b 100644 (file)
--- 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);