[gnus git] branch master updated: m0-9-48-g9edbfcd =1= gmm-utils.el (gmm-flet, gmm-labels): Add edebug spec

       via  9edbfcd5fac631cc5098da65c55534d4a46054e1 (commit)
      from  ed7f80188640e6271daa2a3b38d0d513f6d693ee (commit)


- Log -----------------------------------------------------------------
commit 9edbfcd5fac631cc5098da65c55534d4a46054e1
Author: Katsumi Yamaoka <[email protected]>
Date:   Fri Feb 7 04:12:21 2014 +0000

    gmm-utils.el (gmm-flet, gmm-labels): Add edebug spec

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81be6a5..a5491c1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-02-07  Katsumi Yamaoka  <[email protected]>
+
+	* gmm-utils.el (gmm-flet, gmm-labels): Add edebug spec.
+
 2014-02-07  Lars Ingebrigtsen  <[email protected]>
 
 	* gnus-srvr.el (gnus-server-toggle-cloud-server): New command and
diff --git a/lisp/gmm-utils.el b/lisp/gmm-utils.el
index 459a786..1355406 100644
--- a/lisp/gmm-utils.el
+++ b/lisp/gmm-utils.el
@@ -445,6 +445,7 @@ the function cell of FUNCs rather than their value cell.
 	 ,@body)
     `(flet ,bindings ,@body)))
 (put 'gmm-flet 'lisp-indent-function 1)
+(put 'gmm-flet 'edebug-form-spec '((&rest (sexp sexp &rest form)) &rest form))
 
 (defmacro gmm-labels (bindings &rest body)
   "Make temporary function bindings.
@@ -457,6 +458,7 @@ rather than relying on `lexical-binding'.
   `(,(progn (require 'cl) (if (fboundp 'cl-labels) 'cl-labels 'labels))
     ,bindings ,@body))
 (put 'gmm-labels 'lisp-indent-function 1)
+(put 'gmm-labels 'edebug-form-spec '((&rest (sexp sexp &rest form)) &rest form))
 
 (provide 'gmm-utils)
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog    |    4 ++++
 lisp/gmm-utils.el |    2 ++
 2 files changed, 6 insertions(+)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project