From ba9418579f23659bd913c539792590da03d84eae Mon Sep 17 00:00:00 2001 From: wgreenhouse Date: Sat, 8 May 2021 01:10:32 -0400 Subject: [PATCH] Bring back `flet' to restore MUC nick completion. --- jabber.el | 2 +- jabber.org | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/jabber.el b/jabber.el index e8f1230..7e1b4a6 100644 --- a/jabber.el +++ b/jabber.el @@ -9263,7 +9263,7 @@ Optional argument GROUP to look." (defun jabber-sort-nicks (nicks group) "Return list of NICKS in GROUP, sorted." (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) (let ((t1 (cdr nt1)) (t2 (cdr nt2))) diff --git a/jabber.org b/jabber.org index f33d8c4..70a6a96 100644 --- a/jabber.org +++ b/jabber.org @@ -11542,7 +11542,7 @@ Optional argument GROUP to look." (defun jabber-sort-nicks (nicks group) "Return list of NICKS in GROUP, sorted." (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) (let ((t1 (cdr nt1)) (t2 (cdr nt2)))