equal
deleted
inserted
replaced
937 (when (featurep 'fsm) |
937 (when (featurep 'fsm) |
938 (setq fsm-debug nil) ; Disable *fsm-debug* buffer. |
938 (setq fsm-debug nil) ; Disable *fsm-debug* buffer. |
939 ) |
939 ) |
940 |
940 |
941 (defvar my-jabber-users nil |
941 (defvar my-jabber-users nil |
942 "Assoc list of jabber user goup. Keys are strings, values are lists of JIDs.") |
942 "Assoc list of jabber user group. Keys are strings, values are lists of JIDs.") |
943 |
943 |
944 (defun my-jabber-send (group) |
944 (defun my-jabber-send (group) |
945 "GROUP is keys from `my-jabber-users'" |
945 "GROUP is keys from `my-jabber-users'" |
946 (interactive |
946 (interactive |
947 (list (completing-read "Select group: " my-jabber-users)) |
947 (list (completing-read "Select group: " my-jabber-users)) |