[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [AUCTeX-devel] Call for patches for last release on 11.x series

From: Arash Esbati
Subject: Re: [AUCTeX-devel] Call for patches for last release on 11.x series
Date: Sun, 12 Nov 2017 17:34:55 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3

Mosè Giordano <address@hidden> writes:

> 2017-11-10 18:42 GMT+01:00 David Kastrup <address@hidden>:
>> Uwe Brauer <address@hidden> writes:
>>> Ok, what's about styles? Could those go in the future in both branches,
>>> in master in the 11.92-old or whatever the name of the branch will be??
>> The point of stopping development for XEmacs is not to increase the
>> workload.
> Yes, we don't want to port any new feature --- including style files
> --- to the then frozen 11.x series.


>> I'd recommend not making a branch but a _tag_ for the last
>> version known to work with XEmacs to make unambiguously clear that the
>> AUCTeX developers are not responsible for working on an XEmacs version
>> any more.
> For sure we'll just tag release_11_92 for the time being.  I think
> that we reserve the possibility to create a branch if it'll be
> necessary to port important bug fixes to 11.x series, but this can be
> decided later.

I'm also in favor of this version.  We have a situation right now that
the current master is not really compatible with XEmacs and older
Emacsen because of the `delete-dups' usage here and there.  I think we
should create a new branch and add a compatibility function there.  Can
we use the one from Emacs 25.3 and just rename it to `TeX-delete-dups'?

--8<---------------cut here---------------start------------->8---
(defun delete-dups (list)
  "Destructively remove `equal' duplicates from LIST.
Store the result in LIST and return it.  LIST must be a proper list.
Of several `equal' occurrences of an element in LIST, the first
one is kept."
  (let ((l (length list)))
    (if (> l 100)
        (let ((hash (make-hash-table :test #'equal :size l))
              (tail list) retail)
          (puthash (car list) t hash)
          (while (setq retail (cdr tail))
            (let ((elt (car retail)))
              (if (gethash elt hash)
                  (setcdr tail (cdr retail))
                (puthash elt t hash)
                (setq tail retail)))))
      (let ((tail list))
        (while tail
          (setcdr tail (delete (car tail) (cdr tail)))
          (setq tail (cdr tail))))))
--8<---------------cut here---------------end--------------->8---

Best, Arash

reply via email to

[Prev in Thread] Current Thread [Next in Thread]