From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Lars Ingebrigtsen Newsgroups: gmane.emacs.bugs Subject: bug#58278: Add new function seq-keep Date: Tue, 04 Oct 2022 15:56:08 +0200 Message-ID: <87a66b7kw7.fsf@gnus.org> References: <87y1twtx22.fsf@bernoul.li> <87pmf84ggg.fsf@gnus.org> <87v8ozu50r.fsf@bernoul.li> <87h70j7laz.fsf@gnus.org> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="39508"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Cc: 58278@debbugs.gnu.org To: Jonas Bernoulli Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Tue Oct 04 17:07:01 2022 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1ofjVd-000A64-EM for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 04 Oct 2022 17:07:01 +0200 Original-Received: from localhost ([::1]:55378 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ofjVb-0008Sz-Rt for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 04 Oct 2022 11:07:00 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:59150) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ofiPu-0000Rm-CT for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2022 09:57:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:55780) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ofiPu-0006OB-3m for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2022 09:57:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ofiPt-0005XE-Vv for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2022 09:57:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Lars Ingebrigtsen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 04 Oct 2022 13:57:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 58278 X-GNU-PR-Package: emacs Original-Received: via spool by 58278-submit@debbugs.gnu.org id=B58278.166489178221256 (code B ref 58278); Tue, 04 Oct 2022 13:57:01 +0000 Original-Received: (at 58278) by debbugs.gnu.org; 4 Oct 2022 13:56:22 +0000 Original-Received: from localhost ([127.0.0.1]:54858 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ofiPF-0005Wm-LD for submit@debbugs.gnu.org; Tue, 04 Oct 2022 09:56:21 -0400 Original-Received: from quimby.gnus.org ([95.216.78.240]:46420) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ofiPD-0005Wd-UK for 58278@debbugs.gnu.org; Tue, 04 Oct 2022 09:56:20 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Content-Type:MIME-Version:Message-ID:Date:References: In-Reply-To:Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=OnKWvglAvGgDQAU31swHFu+uBzosQ8slPmBHVo0GBCE=; b=NQLkztmcdGVgSr8xuwdEbkuOKr u7btnMa0L6N4MBThkda8DJ1qpLCSRaS02Kr53nIVg7qjZCDYTX9fVgIVyQLQAYAO8AGemUt4v/EC+ kOGaFLqr+vwr5tY8eIBbyczhvLwaMst1QzBMj5ugi2K11cIPAlYnZMu21u1DvEaGNdrQ=; Original-Received: from [84.212.220.105] (helo=downe) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1ofiP5-0004OZ-4a; Tue, 04 Oct 2022 15:56:13 +0200 In-Reply-To: <87h70j7laz.fsf@gnus.org> (Lars Ingebrigtsen's message of "Tue, 04 Oct 2022 15:47:16 +0200") Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAABGdBTUEAALGPC/xhBQAAACBj SFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAElBMVEWdkXFgYltBNSxv gX6urpL////1g5C3AAAAAWJLR0QF+G/pxwAAAAd0SU1FB+YKBA0qBkfLJ4cAAAGISURBVDjLdZPh kYQgDIXhoAACV4BQAcgWwI70X9O9BHTVc/PDGfKRl5BEpa5GbAn2zT+B/sEZXv8AioB4A1eprzn8 HdBufgJTqLIRhVpD7/09gaYTeF1AGCCAnYEJNbzs9h9o3M6qllCRrB/AKgOgACBW6QDNtgFMgFLN B+i9aZIIgCJFTdAkh6r8naBMYPrGUgBBlDYBrXcGmkYm+BE4cwCQDiajQlwrs1eWQXf8nmb10nUa fUcwcvRsM3RKWt4+0ZAaYHPZKEgsKUUKEmG5qt7IKi8DinGXQqEvPNLhxI7Ic/8AYxw2QULSBSDx mhh4BuUETGBpdt9BphX3JcsH1K6ckWP6Byx6PHLz/sR9tI03hR3k0Ftp1ogA4KctRL8dW/aRyuot b9ZRnkGobYKApoY17T1B3SNHFv4BR47sXMh63TuyV6UwCl6vZ6BOYP8NMDxXz0C6i2kTRyD/FcBB bvxRZW+JSHEnNJ1stlIRPXjvwMdH4GnsyQRjAHL5JCQgzZFeTaUv9gchl3huqTRFngAAACV0RVh0 ZGF0ZTpjcmVhdGUAMjAyMi0xMC0wNFQxMzo0MjowNiswMDowMGSjw44AAAAldEVYdGRhdGU6bW9k aWZ5ADIwMjItMTAtMDRUMTM6NDI6MDYrMDA6MDAV/nsyAAAAAElFTkSuQmCC X-Now-Playing: Latin Quarter's _Modern Times_: "No Ordinary Return" X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list 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-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:244440 Archived-At: Just for kicks, here's some random "del.*map" instances from the Emacs sources: (delq nil (mapcar (lambda (n) (and (>= n 0) n)) articles)) This should be (seq-filter #'cl-plusp articles). (delq nil (mapcar #'gnus-server-to-method gnus-agent-covered-methods)) This would be nice as seq-keep. (delq nil (mapcar (lambda (c) (when (string-prefix-p base c) (substring c base-size))) hist))))) Ditto. (delq nil (mapcar (lambda (action) (cond ((eq action 'create) 'created) ((eq action 'modify) 'changed) ((eq action 'attrib) 'attribute-changed) ((memq action '(delete delete-self move-self)) 'deleted) ((eq action 'moved-from) 'renamed-from) ((eq action 'moved-to) 'renamed-to) ((eq action 'ignored) 'stopped))) actions)) Ditto. (delq nil (mapcar (lambda (x) (if (string-match "\\`\\." x) x)) ido-temp-list))) This should be seq-filter. (cookies (delq nil (mapcar (lambda (e) (org-list-get-checkbox e s)) items)))) seq-keep. (let* ((have (delq nil (mapcar (lambda (x) (get-text-property 1 'time-of-day x)) list))) seq-keep. (string-join (delq nil (mapcar (lambda (item) (when (cdr item) (format "%s='%s'" (car item) (cdr item)))) `(("type" . ,type) ("sender" . ,sender) ("destination" . ,destination) ("path" . ,path) ("interface" . ,interface) ("member" . ,member)))) ",") seq-keep. (reverse (delete "" (mapcar (lambda (r) (replace-regexp-in-string "nil" "" r)) result0))))))) This suggest that the signature should be (func sequence &optional delete-element) which defaults to nil, but could be "" here, and use seq-keep. (delq 'type (mapcar #'car (haiku-selection-data clipboard nil)))) Ditto.