GNU bug report logs - #75310
Eliminate obsolete alias warning

Previous Next

Full log

Message #8 received at 75310 <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Peter Oliver <p.d.oliver <at> mavit.org.uk>
Cc: 75310 <at> debbugs.gnu.org
Subject: Re: bug#75310: Eliminate obsolete alias warning
Date: Fri, 03 Jan 2025 14:02:21 +0200

> Date: Fri, 3 Jan 2025 11:41:46 +0000 (GMT)
> From: Peter Oliver <p.d.oliver <at> mavit.org.uk>
> 
> A patch is attached to eliminate a warning in lisp/treesit.el.
> 
> From 2a57f0e8b84ea8c99627b2e576cf71386f7c8aa6 Mon Sep 17 00:00:00 2001
> From: Peter Oliver <git <at> mavit.org.uk>
> 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)))))))))

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.