Fix use of `telega-chat-attach-commands' in contrib packages

Fixes https://t.me/emacs_telega/42545
zevlg · Nov 8, 2023 · 3e7bc49 · 3e7bc49
1 parent 4f08c83
commit 3e7bc49
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/contrib/telega-live-location.el b/contrib/telega-live-location.el
@@ -98,8 +98,9 @@ Return live location from geo module, otherwise fallback to
         ;; For `C-c C-a live-geo-location RET'
         (unless (assoc "live-geo-location" telega-chat-attach-commands)
           (add-to-list 'telega-chat-attach-commands
-                       (list "live-geo-location" #'geo-last-location
-                             #'telega-live-location-attach-live-geo-location)
+                       '("live-geo-location"
+                         (eval (geo-last-location))
+                         #'telega-live-location-attach-live-geo-location)
                        'append))
 
         ;; Update location on start

diff --git a/contrib/telega-mnz.el b/contrib/telega-mnz.el
@@ -512,7 +512,7 @@ ARG is passed directly to function `telega-mnz-mode'."
 ;; For `C-c C-a code RET'
 (unless (assoc "code" telega-chat-attach-commands)
   (add-to-list 'telega-chat-attach-commands
-               (list "code" nil #'telega-mnz-chatbuf-attach-code) 'append))
+               '("code" (return t) #'telega-mnz-chatbuf-attach-code) 'append))
 
 (provide 'telega-mnz)