Subject: Re: bug#75310: Eliminate obsolete alias warning

From: Eli Zaretskii <[email-masked]>
Date: Fri, 03 Jan 2025 14:02:21 +0200

> Date: Fri, 3 Jan 2025 11:41:46 +0000 (GMT)
> From: Peter Oliver <[email-masked]>
> 
> A patch is attached to eliminate a warning in lisp/treesit.el.
> 
> From 2a57f0e8b84ea8c99627b2e576cf71386f7c8aa6 Mon Sep 17 00:00:00 2001
> From: Peter Oliver <[email-masked]>
> Date: Fri, 3 Jan 2025 11:36:16 +0000
> Subject: [PATCH] Eliminate obsolete alias warning
> 
> * lisp/treesit.el (treesit-transpose-sexps): Replace obsolete alias loop
>   with cl-loop

I don't get any warning, and this 'loop' is not an obsolete alias:

  (and (treesit-available-p)
       (named-let loop ((res nil)  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                        (buffers (buffer-list)))
         (if (null buffers)
             (mapc (lambda (b)
                     (with-current-buffer b
                       (setq-local treesit-font-lock-level val)
                       (treesit-font-lock-recompute-features)
                       (treesit-font-lock-fontify-region (point-min)
                                                         (point-max))))
                   res)
           (let ((buffer (car buffers)))
             (with-current-buffer buffer
               (if treesit-font-lock-settings
                   (loop (append res (list buffer)) (cdr buffers))
                 (loop res (cdr buffers)))))))))