[nongnu] elpa/subed 52fa457512 20/22: subed-define-generic-function: edebug and indent like a defun

[ELPA Syncer]

branch: elpa/subed
commit 52fa457512cda44ea24dfc3a218e830a1f89be3a
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    subed-define-generic-function: edebug and indent like a defun
    
    * subed/subed-common.el (subed-define-generic-function): edebug and
    indent like a defun. Also, tweak how the quotes and functions are
    done. Thanks to Phil Hudson for the suggestions!
---
 subed/subed-common.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index 84804f7753..49177af10a 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -45,7 +45,9 @@ NAME is the part of the function name that will go after the
 subed- prefix.  ARGS are the arguments for the function.  BODY is
 the body of the function, and may include a docstring or an
 interactive form."
-  (declare (indent 2))
+  (declare
+   (indent defun)
+   (debug defun))
   (let (is-interactive
         doc)
     (when (stringp (car body))
@@ -68,8 +70,8 @@ interactive form."
                                       (unless (string-match "^&" (symbol-name 
a))
                                         a))
                                     args))))
-          `(defalias (quote ,(intern (concat "subed-" (symbol-name name))))
-             (function ,(intern (concat "subed--" (symbol-name name))))
+          `(defalias ',(intern (concat "subed-" (symbol-name name)))
+             #',(intern (concat "subed--" (symbol-name name)))
              ,doc)))))
 
 (subed-define-generic-function timestamp-to-msecs (time-string)