From 4ee2abdbcfc577a30af636378e56034cb9c5dd17 Mon Sep 17 00:00:00 2001
From: Feng Lee <ery.lee@gmail.com>
Date: Fri, 30 Oct 2015 18:00:36 +0800
Subject: [PATCH] record_to_proplist/3

---
 include/emqttd_internal.hrl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/include/emqttd_internal.hrl b/include/emqttd_internal.hrl
index fa8440e45..4f2eb378c 100644
--- a/include/emqttd_internal.hrl
+++ b/include/emqttd_internal.hrl
@@ -29,3 +29,7 @@
         lists:zip(record_info(fields, Def),
                   tl(tuple_to_list(Rec)))).
 
+-define(record_to_proplist(Def, Rec, Fields),
+    [{K, V} || {K, V} <- ?record_to_proplist(Def, Rec),
+                         lists:member(K, Fields)]).
+