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

Bring back `flet' to restore MUC nick completion.

This commit is contained in:
wgreenhouse 2021-05-08 01:10:32 -04:00
parent ae20460e54
commit ba9418579f
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
jabber.el
View File

@ -9263,7 +9263,7 @@ Optional argument GROUP to look."
(defun jabber-sort-nicks (nicks group) (defun jabber-sort-nicks (nicks group)
"Return list of NICKS in GROUP, sorted." "Return list of NICKS in GROUP, sorted."
(let ((times (cdr (assoc group *jabber-muc-participant-last-speaking*)))) (let ((times (cdr (assoc group *jabber-muc-participant-last-speaking*))))
(cl-flet ((fetch-time (nick) (or (assoc nick times) (cons nick 0))) (flet ((fetch-time (nick) (or (assoc nick times) (cons nick 0)))
(cmp (nt1 nt2) (cmp (nt1 nt2)
(let ((t1 (cdr nt1)) (let ((t1 (cdr nt1))
(t2 (cdr nt2))) (t2 (cdr nt2)))

2
jabber.org
View File

@ -11542,7 +11542,7 @@ Optional argument GROUP to look."
(defun jabber-sort-nicks (nicks group) (defun jabber-sort-nicks (nicks group)
"Return list of NICKS in GROUP, sorted." "Return list of NICKS in GROUP, sorted."
(let ((times (cdr (assoc group *jabber-muc-participant-last-speaking*)))) (let ((times (cdr (assoc group *jabber-muc-participant-last-speaking*))))
(cl-flet ((fetch-time (nick) (or (assoc nick times) (cons nick 0))) (flet ((fetch-time (nick) (or (assoc nick times) (cons nick 0)))
(cmp (nt1 nt2) (cmp (nt1 nt2)
(let ((t1 (cdr nt1)) (let ((t1 (cdr nt1))
(t2 (cdr nt2))) (t2 (cdr nt2)))