[elpa] externals/taxy 2368c34421 2/2: Change: (deffy) Further improve categorization

[ELPA Syncer]

branch: externals/taxy
commit 2368c3442115cbd80a80595773c0c97a16c225c4
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (deffy) Further improve categorization
---
 examples/deffy.el | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/examples/deffy.el b/examples/deffy.el
index 81afd45ab1..1b68286716 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -86,15 +86,25 @@
                          'struct)
                          (`(,(or 'defclass) . ,_)
                          'class)
-                         (`(,(or 'defcustom 'defgroup 'defvar 'defvar-local) . 
,_)
+                         (`(,(or 'cl-defmethod 'defmethod) . ,_)
+                         'method)
+                         (`(,(or 'define-error) . ,_)
+                         'error)
+                         (`(,(or 'defconst 'defcustom 'defgroup 'defvar 
'defvar-local) . ,_)
                           'variable)
+                         (`(,(or 'define-hash-table-test) . ,_)
+                          'hash-table-test)
+                         (`(,(or 'defface) . ,_)
+                          'face)
                          (`(,(or 'provide 'require) . ,_)
                           'feature)
                          ;; Top-level forms that don't usually correspond to 
definitions,
                          ;; so we ignore them.
-                         (`(,(or 'cl-eval-when 'eval-when-compile 
'with-eval-after-load) . ,_)
+                         (`(,(or 'cl-eval-when 'eval-and-compile 
'eval-when-compile 'with-eval-after-load) . ,_)
                           nil)
-                         (`(,(or 'unless 'when) . ,_)
+                         (`(,(or 'declare-function) . ,_)
+                          nil)
+                         (`(,(or 'unless 'when 'if-let 'if-let* 'when-let 
'when-let* '-if-let '-if-let* '-when-let '-when-let* 'setf 'setq) . ,_)
                           nil)
                          ;; Top-level forms that are macro calls (e.g. custom 
defining macros).
                          ((and `(,car . ,_) (guard (macrop car))) car)