wgreenhouse
/
emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Replacing incf and defstruct to cl-incf and cl-defstruct

This commit is contained in:
cnngimenez 2021-03-22 11:22:17 -03:00 committed by wgreenhouse
parent 6978a71f64
commit 7780475042
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
jabber.org
View File

@ -12442,7 +12442,7 @@ obtained from `xml-parse-region'."
(dolist (jc jabber-connections)
(dolist (buddy (plist-get (fsm-get-state-data jc) :roster))
(when (assoc (get buddy 'show) count)
(incf (cdr (assoc (get buddy 'show) count))))))
(cl-incf (cdr (assoc (get buddy 'show) count))))))
(setq jabber-mode-line-contacts
(if jabber-mode-line-compact
(format "(%d/%d/%d)"
@ -13605,7 +13605,8 @@ A contact with an avatar has the image in the avatar property of the JID symbol.
**** avatar data handling
***** avatar :struct:
#+BEGIN_SRC emacs-lisp
(defstruct avatar sha1-sum mime-type url base64-data height width bytes)
(cl-defstruct
avatar sha1-sum mime-type url base64-data height width bytes)
#+END_SRC
***** jabber-avatar-from-url :function: