branch: externals/taxy
commit 2368c3442115cbd80a80595773c0c97a16c225c4
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@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)
