ping II/IDEC networks :: develop.16 :: Обсуждение вопросов программирования | Contacts :: Login |
(setq new-messages-list (-concat 'new-messages-list '((content . message-content) (id . msg))))
(dolist (msg new-messages-list) (message (assoc 'id msg)))
(setq new-messages-list (make-hash-table :test 'equal)) (dolist (m my-list) ... (puthash msg message-content new-messages-list) ) (maphash (lambda (id msg) (message (concat "Get " id "\n" msg)) new-messages-list)