From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Alex Branham Newsgroups: gmane.emacs.bugs Subject: bug#33309: Add flatten-list? Date: Wed, 07 Nov 2018 13:46:29 -0600 Message-ID: <87r2fw7jsa.fsf@gmail.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" X-Trace: blaine.gmane.org 1541619927 30020 195.159.176.226 (7 Nov 2018 19:45:27 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 7 Nov 2018 19:45:27 +0000 (UTC) User-Agent: mu4e 1.1.0; emacs 27.0.50 To: 33309@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Nov 07 20:45:23 2018 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gKTlT-0007fD-BS for geb-bug-gnu-emacs@m.gmane.org; Wed, 07 Nov 2018 20:45:23 +0100 Original-Received: from localhost ([::1]:50837 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gKTnZ-0004ap-J0 for geb-bug-gnu-emacs@m.gmane.org; Wed, 07 Nov 2018 14:47:33 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:43917) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gKTnJ-0004XQ-JF for bug-gnu-emacs@gnu.org; Wed, 07 Nov 2018 14:47:22 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gKTn6-0008BN-Pb for bug-gnu-emacs@gnu.org; Wed, 07 Nov 2018 14:47:12 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:35660) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gKTn4-0008AC-NY for bug-gnu-emacs@gnu.org; Wed, 07 Nov 2018 14:47:03 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gKTn4-0002Oq-Li for bug-gnu-emacs@gnu.org; Wed, 07 Nov 2018 14:47:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Alex Branham Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 07 Nov 2018 19:47:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 33309 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.15416200149194 (code B ref -1); Wed, 07 Nov 2018 19:47:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 7 Nov 2018 19:46:54 +0000 Original-Received: from localhost ([127.0.0.1]:39916 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gKTmv-0002OD-Lx for submit@debbugs.gnu.org; Wed, 07 Nov 2018 14:46:53 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:34094) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gKTmu-0002O2-7Z for submit@debbugs.gnu.org; Wed, 07 Nov 2018 14:46:52 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gKTmo-0007xb-7j for submit@debbugs.gnu.org; Wed, 07 Nov 2018 14:46:47 -0500 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:35127) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1gKTmo-0007w0-0E for submit@debbugs.gnu.org; Wed, 07 Nov 2018 14:46:46 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:43664) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gKTmn-0004Hr-5E for bug-gnu-emacs@gnu.org; Wed, 07 Nov 2018 14:46:45 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gKTmg-0007mA-Bj for bug-gnu-emacs@gnu.org; Wed, 07 Nov 2018 14:46:43 -0500 Original-Received: from mail-oi1-x22a.google.com ([2607:f8b0:4864:20::22a]:43224) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gKTmf-0007dN-5g for bug-gnu-emacs@gnu.org; Wed, 07 Nov 2018 14:46:38 -0500 Original-Received: by mail-oi1-x22a.google.com with SMTP id j202-v6so14856239oih.10 for ; Wed, 07 Nov 2018 11:46:33 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=user-agent:from:to:subject:date:message-id:mime-version; bh=evHC/rvRT79/KcUM7W1jSIxuOPWBCLbWDsaZfedFCFY=; b=J1Jb4A32j4bDa4Cq0gw5OmyWEyCjFpIWYoV/oaCWSbrkT63aPWBbtTjp/P/zKl3TiS M6IbpwubOeMqvlvpvwzkiPQy0FK12ZSDORcMiib8ydYGOGAuZG76Cb557G7WoeNGaWR+ xTw2R/S9LtlZUg6Aek4TQrqYLzmvfM16M9M8k6+CDhDBOnx+ZStlohgW1s1+AyzGtRLb nbBCpqEJqQMXe1uIV7UUj4ipwjOMI9MfKqTC+X3kemLKLfM2J7j1F4ivapYmvT2y3xCH IMhCiVkoSPh9ObkRXx7GI2ICOqAF77qxv1ozsAJVfIE5keiSGZk25qarXyL7Qu3eD2Yj rsEQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:user-agent:from:to:subject:date:message-id :mime-version; bh=evHC/rvRT79/KcUM7W1jSIxuOPWBCLbWDsaZfedFCFY=; b=pPvwh4Q9UXRxaf7OKLcQ0cGz181J5BlJMK8KEf9MPtmtM2pk8hKaZZeLwUSRNTLutE 2v9SefVEl6If3satIH7xc/o+jBsqXpa7nWL1Oz7pAn6FhQX0VJxW0BC4UXnBbJwlDzjr 4iZRN2sRLiSLdPSSAlGk1IK9TWEkFICdUgogqyx3lrOGqHP3K/teuPEAUuB8iypQwLw+ oylmxOCMIIhMaIwLmy5sP0PmZ3kFf68VXCfY9NT1zd6LCLZ6JZ9M4YpjvgdvKFYjsyFl YekFnxwvR//fh8067oPRuOH+FZSRtgIHBIBMCpqU5ocPQGNbDZ0go+FPOT3wh8oH7+nP jSfA== X-Gm-Message-State: AGRZ1gKJo9ltnGxkTXfMX2SEamlm4hf/sfdzwVIHGeWItNNz4DF9oD7M cDX8SepmeZ0kZpW3bswqKh9XB0Q+ X-Google-Smtp-Source: AJdET5cGrxnlApGBjLFkrFV4/sZcr6uiEbln0a2ef1QSQGZms/fapAObj30N/aoUSSgnNCJKv4RoeQ== X-Received: by 2002:aca:eb4b:: with SMTP id j72-v6mr907518oih.306.1541619992656; Wed, 07 Nov 2018 11:46:32 -0800 (PST) Original-Received: from earth (cpe-70-114-192-208.austin.res.rr.com. [70.114.192.208]) by smtp.gmail.com with ESMTPSA id r56sm731019ote.10.2018.11.07.11.46.31 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Wed, 07 Nov 2018 11:46:31 -0800 (PST) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:152132 Archived-At: --=-=-= Content-Type: text/plain Could we add a new function `flatten-list'? There seems to be a need for it. Inside Emacs itself, I see at least four implementations of the same basic thing: - eshell-flatten-list - message-flatten-list - lpr-flatten-list - js--flatten-list And there are many more in the various 3rd-party packages. I was thinking of putting it in subr.el. What do you think? Thanks, Alex diff --git a/lisp/subr.el b/lisp/subr.el index 41dc9aa45f..3ea75ddf56 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -5447,5 +5447,14 @@ This function is called from lisp/Makefile and leim/Makefile." (setq file (concat (substring file 1 2) ":" (substring file 2)))) file) +(defun flatten-list (list) + "Take LIST and \"flatten\" it. +The result will be a list containing all the elements of LIST. +\(flatten-list \\='(1 (2 3 (4 5 (6))) 7)) +=> (1 2 3 4 5 6 7)" + (cond ((null list) nil) + ((consp list) (append (flatten-list (car list)) + (flatten-list (cdr list)))) + (t (list list)))) ;;; subr.el ends here --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEEeEJ4XAMgliXNXicpHkInolPpmscFAlvjQRUACgkQHkInolPp mscp7wf/TB0H23OeigbxxDeldrZFvJiwbtYNq9Yi2I7j0Ly0LBXcrAHTdFOuG4k9 ewZHW+O/WYg9hu3HKYTHgbi7RLS4EwnGjYZr32P6MiJwDcWNRDi+2nuo31ntuIBu BwdxE4cgIb9Ehm1R+521MfNfBVAGy7L1fTJ8F6DtzKzLAygOcEWcRDdMu71Cf8By oNL9cpxEdziZ/SHbE6/xwJJDS6pRlMvlerOTYVB2qWDyo4GNLlSFuT1Ao7hKGKNg g3YugmwrXPo5kqQz2pc0nNUqKHiOKb5GqLV7BYv+6mD4nMQYCwiZxeBxhGrlr9vn AxUEOgbDeunaGl7hASLx+OOJGPYR0w== =mA2L -----END PGP SIGNATURE----- --=-=-=--