aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristoph Lange2018-04-19 16:12:02 +0200
committerChristoph Lange2018-04-19 16:12:02 +0200
commita2b7e8ce331a05d099f05c261ec36dc235caa222 (patch)
tree21fb662f24ca73f132fe518d5dcba7d68234d220
parent675add4136bb4ac7eed0ec347373a41f14f5e567 (diff)
downloadTelebot-a2b7e8ce331a05d099f05c261ec36dc235caa222.tar
Telebot-a2b7e8ce331a05d099f05c261ec36dc235caa222.tar.gz
Telebot-a2b7e8ce331a05d099f05c261ec36dc235caa222.tar.bz2
Telebot-a2b7e8ce331a05d099f05c261ec36dc235caa222.tar.lz
Telebot-a2b7e8ce331a05d099f05c261ec36dc235caa222.tar.xz
Telebot-a2b7e8ce331a05d099f05c261ec36dc235caa222.tar.zst
Telebot-a2b7e8ce331a05d099f05c261ec36dc235caa222.zip
is-edited_message? -- check if message is edited
-rw-r--r--telebot.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/telebot.scm b/telebot.scm
index 34fc466..292151c 100644
--- a/telebot.scm
+++ b/telebot.scm
@@ -24,6 +24,7 @@
answerInlineQuery
;;; framework
is-message?
+ is-edited_message?
is-inline_query?
is-chosen_inline_result?
poll-updates
@@ -248,6 +249,7 @@
(not (equal? #f (alist-ref type update)))))
(define is-message? (update-predicate 'message))
+ (define is-edited_message? (update-predicate 'edited_message))
(define is-inline_query? (update-predicate 'inline_query))
(define is-chosen_inline_result? (update-predicate 'chosen_inline_result))