From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Ihor Radchenko Newsgroups: gmane.emacs.bugs Subject: bug#75292: 31.0.50; igc: (file-error "Doing vfork" "Bad address") Date: Thu, 02 Jan 2025 17:54:45 +0000 Message-ID: <87pll5qexm.fsf@localhost> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="22854"; mail-complaints-to="usenet@ciao.gmane.io" To: 75292@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Thu Jan 02 18:53:24 2025 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 1tTPNs-0005kl-1z for geb-bug-gnu-emacs@m.gmane-mx.org; Thu, 02 Jan 2025 18:53:24 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1tTPNZ-0002z8-Lu; Thu, 02 Jan 2025 12:53:05 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tTPNX-0002yL-38 for bug-gnu-emacs@gnu.org; Thu, 02 Jan 2025 12:53:03 -0500 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1tTPNW-0002is-Qd for bug-gnu-emacs@gnu.org; Thu, 02 Jan 2025 12:53:02 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=MIME-Version:Date:From:To:Subject; bh=76Cs2gbdwIM8gM6Gzk0outPrWgr+8In0XY5bHzvhiaI=; b=VeYiEJSXzJLa62PMzYqzrUzNjWI27ex/Xc8TrmjGkqntFmLu3jPoMvqqYqxaIOaK91Vk+nECQXCHqmSOoM+X5eztfkiH7W931QKhhZp3QmRJ7H+mf4slRULmXw1vkigzUV8FKuW/py1O3hL5DJCuidx8zjzVR8+5Kc8fZ8Kc263VBzDxvInKs6oDUCaaq2gImlhT8/gUsfwfmVKaueAsKrp0+RfjleaUlU/KvqIYak9JAOz4lYM0eSEpRw7hFJnTvRvgpi11zmfJJFr/qMsDvgHNBFSi9a5KFYqRPYywWJb//ssR9nmTGMlkQ65CEY6JoiKRMjslELvNHcwMh0zFaA==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1tTPNW-00061T-LQ for bug-gnu-emacs@gnu.org; Thu, 02 Jan 2025 12:53:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Ihor Radchenko Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 02 Jan 2025 17:53:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 75292 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.173584036423114 (code B ref -1); Thu, 02 Jan 2025 17:53:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 2 Jan 2025 17:52:44 +0000 Original-Received: from localhost ([127.0.0.1]:46521 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tTPNC-00060i-Hs for submit@debbugs.gnu.org; Thu, 02 Jan 2025 12:52:44 -0500 Original-Received: from lists.gnu.org ([2001:470:142::17]:37770) by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.84_2) (envelope-from ) id 1tTPN9-00060E-JO for submit@debbugs.gnu.org; Thu, 02 Jan 2025 12:52:41 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tTPN1-0002kA-LE for bug-gnu-emacs@gnu.org; Thu, 02 Jan 2025 12:52:32 -0500 Original-Received: from mout01.posteo.de ([185.67.36.65]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tTPMx-0002fD-NS for bug-gnu-emacs@gnu.org; Thu, 02 Jan 2025 12:52:31 -0500 Original-Received: from submission (posteo.de [185.67.36.169]) by mout01.posteo.de (Postfix) with ESMTPS id D59AF240027 for ; Thu, 2 Jan 2025 18:52:25 +0100 (CET) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017; t=1735840345; bh=aKF89vEFu0pawJZEOmxB8zZROiqHNHbZwwAXA3TVLg4=; h=From:To:Subject:Date:Message-ID:MIME-Version:Content-Type: Content-Transfer-Encoding:From; b=Qiuh1o0zXy79RTw00+ZG2jk7uQHoo4HWzaKlDd1m4nAk/uXuWv7Q+JrdeM4mTHlUK NGau0/NEYXCUmEsMmPp1qLEKe1spku44aJK8A3h2zr64I+9I18tijVpg9U+5onFCht f+sixiC6LLQR+la+5yDBNkwNcoIVxosfGy7N9PvKMPAzIjhcOu0r/w75RILVfzcqR8 QqG4hGu4o+eJSUPNQBqDeRZwHyrPD8y7U00RagwELQlGIyFjZ1okdXzlQQ0p3cmNCc gVa2lIvkzATcBxzIxNZ2V9WIwrwzUK7ewGYpKnG+KPg9wnLEk/ksUrt1OSl/76FKtz 4vVWrtb8WxCZw== Original-Received: from customer (localhost [127.0.0.1]) by submission (posteo.de) with ESMTPSA id 4YPDn53PhNz6v00 for ; Thu, 2 Jan 2025 18:52:25 +0100 (CET) Received-SPF: pass client-ip=185.67.36.65; envelope-from=yantar92@posteo.net; helo=mout01.posteo.de X-Spam_score_int: -43 X-Spam_score: -4.4 X-Spam_bar: ---- X-Spam_report: (-4.4 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_MED=-2.3, RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, RCVD_IN_VALIDITY_SAFE_BLOCKED=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action 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-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.bugs:298212 Archived-At: I am getting the belo error regularly, when Emacs is spawning external process. Not every time though. See the full backtrace below. Please advice what I can do to debug further. Debugger entered--Lisp error: (file-error "Doing vfork" "Bad address") (call-process-shell-command "grep -anE '^:(Sourc.URL\\+?):[ \11[]+https:/= /curiouscoding\\.nl/posts/static-search-tree/[]]*$' '/home/yantar92/Org/rss= _archive_2019.org'" nil t) (# "grep -anE '^:(Sourc.URL\\+?):[ \11[]+https://curi= ouscoding\\.nl/posts/static-search-tree/[]]*$' '/home/yantar92/Org/rss_arch= ive_2019.org'" t nil) (shell-command@shell-command-with-editor-mode # "grep= -anE '^:(Sourc.URL\\+?):[ \11[]+https://curiouscoding\\.nl/posts/static-se= arch-tree/[]]*$' '/home/yantar92/Org/rss_archive_2019.org'" t nil) (apply shell-command@shell-command-with-editor-mode #= ("grep -anE '^:(Sourc.URL\\+?):[ \11[]+https://curiouscoding\\.nl/posts/st= atic-search-tree/[]]*$' '/home/yantar92/Org/rss_archive_2019.org'" t)) (shell-command "grep -anE '^:(Sourc.URL\\+?):[ \11[]+https://curiouscodin= g\\.nl/posts/static-search-tree/[]]*$' '/home/yantar92/Org/rss_archive_2019= .org'" t) (shell-command-to-string "grep -anE '^:(Sourc.URL\\+?):[ \11[]+https://cu= riouscoding\\.nl/posts/static-search-tree/[]]*$' '/home/yantar92/Org/rss_ar= chive_2019.org'") (let ((ans (shell-command-to-string (format "grep -anE '%s' '%s'" regexp = file)))) (if (string-empty-p ans) nil (setq matches (append matches (mapcar= #'(lambda (str) (if ... ...)) (string-lines ans)))))) (progn (let ((ans (shell-command-to-string (format "grep -anE '%s' '%s'" = regexp file)))) (if (string-empty-p ans) nil (setq matches (append matches = (mapcar #'(lambda ... ...) (string-lines ans))))))) (if (file-exists-p file) (progn (let ((ans (shell-command-to-string (form= at "grep -anE '%s' '%s'" regexp file)))) (if (string-empty-p ans) nil (setq= matches (append matches (mapcar #'... (string-lines ans)))))))) (let ((file (car tail))) (if (file-exists-p file) (progn (let ((ans (shel= l-command-to-string (format "grep -anE '%s' '%s'" regexp file)))) (if (stri= ng-empty-p ans) nil (setq matches (append matches (mapcar ... ...))))))) (s= etq tail (cdr tail))) (while tail (let ((file (car tail))) (if (file-exists-p file) (progn (let= ((ans (shell-command-to-string ...))) (if (string-empty-p ans) nil (setq m= atches (append matches ...)))))) (setq tail (cdr tail)))) (let ((tail files)) (while tail (let ((file (car tail))) (if (file-exists= -p file) (progn (let ((ans ...)) (if (string-empty-p ans) nil (setq matches= ...))))) (setq tail (cdr tail))))) (let (files matches) (if (eq org-capture-ref--org-agenda-files-cached org= -agenda-files) (setq files org-capture-ref--org-agenda-files-and-archives-c= ached) (setq files (org-agenda-files t t)) (setq org-capture-ref--org-agend= a-files-cached org-agenda-files) (setq org-capture-ref--org-agenda-files-an= d-archives-cached files)) (if (eq (car org-agenda-text-search-extra-files) = 'agenda-archives) (progn (car-safe (prog1 org-agenda-text-search-extra-file= s (setq org-agenda-text-search-extra-files (cdr org-agenda-text-search-extr= a-files)))))) (setq files (append files org-agenda-text-search-extra-files)= ) (let ((inhibit-message t)) (org-save-all-org-buffers)) (let ((tail files)= ) (while tail (let ((file (car tail))) (if (file-exists-p file) (progn (let= (...) (if ... nil ...)))) (setq tail (cdr tail))))) (setq matches (remove = nil matches)) (if matches (progn (if dont-show-match-p nil (save-excursion = (save-restriction (switch-to-buffer (marker-buffer ...)) (goto-char (car ma= tches)) (org-back-to-heading t) (org-show-set-visibility 'lineage) (org-sho= w-entry) (jit-lock-fontify-now (point) (save-excursion ...)) (if (yes-or-no= -p "Update the entry according to the new capture? ") (progn ... ... ...)))= )) (if dont-show-match-p (org-capture-ref-message (string-join (mapcar #'or= g-capture-ref-get-message-string matches) "\n") 'error) (user-error ""))))) (org-capture-ref-check-regexp-grep "^:(Sourc.URL\\+?):[ \11[]+https://cur= iouscoding\\.nl/posts/static-search-tree/[]]*$" t) (let nil (org-capture-ref-check-regexp-grep (seq-reduce #'(lambda (str re= pl-pair) (replace-regexp-in-string (car repl-pair) (cdr repl-pair) str)) '(= ("\\(^\\|[^\\]\\)|" . ".") ("\\\\|" . "|") ("\\\\\\." . "\\\\.") ("'" . "."= ) ("\\\\(" . "(") ("\\\\)" . ")")) regexp) dont-show-match-p)) (cond ((eq org-capture-ref-check-regexp-method 'grep) (let nil (org-captu= re-ref-check-regexp-grep (seq-reduce #'(lambda (str repl-pair) (replace-reg= exp-in-string ... ... str)) '(("\\(^\\|[^\\]\\)|" . ".") ("\\\\|" . "|") ("= \\\\\\." . "\\\\.") ("'" . ".") ("\\\\(" . "(") ("\\\\)" . ")")) regexp) do= nt-show-match-p))) ((eq org-capture-ref-check-regexp-method 'org-search-vie= w) (let nil (org-capture-ref-check-regexp-search-view regexp dont-show-matc= h-p))) (t (let nil (org-capture-ref-message (format "Invalid value of org-c= apture-ref-check-regexp-method: %s" org-capture-ref-check-regexp-method) 'e= rror)))) (org-capture-ref-check-regexp "^:(Source|URL\\+?):[ \11[]+https://curious= coding\\.nl/posts/static-search-tree/[]]*$" t) (progn (org-capture-ref-check-regexp (format (alist-get org-capture-ref-c= heck-regexp-method org-capture-ref-check-link-regexp) (regexp-quote (org-ca= pture-ref-get-capture-info :link))) (org-capture-ref-get-capture-template-i= nfo :immediate-finish))) (if (org-capture-ref-get-capture-info :link) (progn (org-capture-ref-chec= k-regexp (format (alist-get org-capture-ref-check-regexp-method org-capture= -ref-check-link-regexp) (regexp-quote (org-capture-ref-get-capture-info :li= nk))) (org-capture-ref-get-capture-template-info :immediate-finish)))) (org-capture-ref-check-link) (run-hooks org-capture-ref-check-bibtex-functions) (catch :finish (run-hooks 'org-capture-ref-check-bibtex-functions)) (if (org-capture-ref-get-bibtex-field :org-hd-marker) nil (catch :finish = (run-hooks 'org-capture-ref-check-bibtex-functions))) (org-capture-ref-check-bibtex) (if (org-capture-ref-get-capture-info '(:query :force)) nil (org-capture-= ref-check-bibtex)) (progn (org-capture-ref-reset-state) (add-hook 'org-capture-after-finaliz= e-hook #'org-capture-ref-fetch-collection-maybe 100) (if org-capture-ref-qu= iet-verbosity nil (org-capture-ref-message "Capturing BiBTeX...")) (if (org= -capture-ref-get-capture-info '(:query :force)) nil (org-capture-ref-check-= bibtex)) (org-capture-ref-get-bibtex) (if (and (org-capture-ref-get-bibtex-= field :key) (not (string-match-p "[a-zA-Z]+_[0-9]+" (org-capture-ref-get-bi= btex-field :key))) (< 10 (length (org-capture-ref-get-bibtex-field :key))))= nil (org-capture-ref-set-bibtex-field :key nil 'force) (org-capture-ref-se= t-bibtex-field :key (org-capture-ref-generate-key))) (org-capture-ref-set-b= ibtex-field :bibtex-string (org-capture-ref-format-bibtex)) (if (or (org-ca= pture-ref-get-capture-info '(:query :org-hd-marker)) (org-capture-ref-get-b= ibtex-field :org-hd-marker)) (progn (let ((--mepom (or (org-capture-ref-get= -capture-info ...) (org-capture-ref-get-bibtex-field :org-hd-marker)))) (sa= ve-excursion (cond ((markerp --mepom) (set-buffer ...)) ((numberp --mepom))= (t (if ... ...) (setq --mepom ...))) (save-excursion (save-restriction (wi= den) (goto-char ...) (org-back-to-heading) (org-capture-ref-get-bibtex-org-= heading) (add-hook ... ... 100))))))) (if (org-capture-ref-get-capture-info= '(:query :force)) nil (org-capture-ref-check-bibtex)) (if org-capture-ref-= quiet-verbosity nil (org-capture-ref-message "Capturing BiBTeX... done")) (= org-capture-ref-message (format "Captured: %s" (string-trim-right (org-capt= ure-ref-get-org-entry) "\n[^z-a]*")) 'info)) (unwind-protect (progn (org-capture-ref-reset-state) (add-hook 'org-captu= re-after-finalize-hook #'org-capture-ref-fetch-collection-maybe 100) (if or= g-capture-ref-quiet-verbosity nil (org-capture-ref-message "Capturing BiBTe= X...")) (if (org-capture-ref-get-capture-info '(:query :force)) nil (org-ca= pture-ref-check-bibtex)) (org-capture-ref-get-bibtex) (if (and (org-capture= -ref-get-bibtex-field :key) (not (string-match-p "[a-zA-Z]+_[0-9]+" (org-ca= pture-ref-get-bibtex-field :key))) (< 10 (length (org-capture-ref-get-bibte= x-field :key)))) nil (org-capture-ref-set-bibtex-field :key nil 'force) (or= g-capture-ref-set-bibtex-field :key (org-capture-ref-generate-key))) (org-c= apture-ref-set-bibtex-field :bibtex-string (org-capture-ref-format-bibtex))= (if (or (org-capture-ref-get-capture-info '(:query :org-hd-marker)) (org-c= apture-ref-get-bibtex-field :org-hd-marker)) (progn (let ((--mepom (or ... = ...))) (save-excursion (cond (... ...) (...) (t ... ...)) (save-excursion (= save-restriction ... ... ... ... ...)))))) (if (org-capture-ref-get-capture= -info '(:query :force)) nil (org-capture-ref-check-bibtex)) (if org-capture= -ref-quiet-verbosity nil (org-capture-ref-message "Capturing BiBTeX... done= ")) (org-capture-ref-message (format "Captured: %s" (string-trim-right (org= -capture-ref-get-org-entry) "\n[^z-a]*")) 'info)) (if (buffer-live-p org-ca= pture-ref--buffer) (progn (kill-buffer org-capture-ref--buffer)))) (org-capture-ref-process-capture) ((lambda nil (org-capture-ref-process-capture))) (doct--replace-template-strings "%{fetch-bibtex}* TODO %?%{space}%{org-en= try}") (doct--fill-template "%{fetch-bibtex}* TODO %?%{space}%{org-entry}") (# "%{fetch-b= ibtex}* TODO %?%{space}%{org-entry}") (doct--fill-template) (org-capture-get-template) (#f(compiled-function (&optional goto keys) "Capture something.\n\\\nThis will let you select a template from `org-capture-tem= plates', and\nthen file the newly captured information. The text is immedi= ately\ninserted at the target location, and an indirect buffer is shown whe= re\nyou can edit it. Pressing `\\[org-capture-finalize]' brings you back t= o the previous\nstate of Emacs, so that you can continue your work.\n\nWhen= called interactively with a `\\[universal-argument]' prefix argument GOTO,= don't\ncapture anything, just go to the file/headline where the selected\n= template stores its notes.\n\nWith a `\\[universal-argument] \\[universal-a= rgument]' prefix argument, go to the last note stored.\n\nWhen called with = a `C-0' (zero) prefix, insert a template at point.\n\nWhen called with a `C= -1' (one) prefix, force prompting for a date when\na datetree entry is made= .\n\nELisp programs can set KEYS to a string associated with a template\nin= `org-capture-templates'. In this case, interactive selection\nwill be byp= assed.\n\nIf `org-capture-use-agenda-date' is non-nil, capturing from the\n= agenda will use the date at point as the default date. Then, a\n`C-1' pref= ix will tell the capture process to use the HH:MM time\nof the day at point= (if any) or the current HH:MM time." (interactive "P") #) nil "B") (funcall #f(compiled-function (&optional goto keys) "Capture something.\n= \\\nThis will let you select a template from `org-cap= ture-templates', and\nthen file the newly captured information. The text i= s immediately\ninserted at the target location, and an indirect buffer is s= hown where\nyou can edit it. Pressing `\\[org-capture-finalize]' brings yo= u back to the previous\nstate of Emacs, so that you can continue your work.= \n\nWhen called interactively with a `\\[universal-argument]' prefix argume= nt GOTO, don't\ncapture anything, just go to the file/headline where the se= lected\ntemplate stores its notes.\n\nWith a `\\[universal-argument] \\[uni= versal-argument]' prefix argument, go to the last note stored.\n\nWhen call= ed with a `C-0' (zero) prefix, insert a template at point.\n\nWhen called w= ith a `C-1' (one) prefix, force prompting for a date when\na datetree entry= is made.\n\nELisp programs can set KEYS to a string associated with a temp= late\nin `org-capture-templates'. In this case, interactive selection\nwil= l be bypassed.\n\nIf `org-capture-use-agenda-date' is non-nil, capturing fr= om the\nagenda will use the date at point as the default date. Then, a\n`C= -1' prefix will tell the capture process to use the HH:MM time\nof the day = at point (if any) or the current HH:MM time." (interactive "P") #) nil "B") (if (or (and (boundp 'yant/suppress-pop-frame) yant/suppress-pop-frame) (= member :immediate-finish (assoc keys org-capture-templates))) (funcall orig= -fun goto keys) (funcall old-fun orig-fun goto keys)) (ocpf--org-capture@suppress-pop-frame-maybe #f(lambda (orig-fun &optional= goto keys) :dynbind "Create a new frame and run org-capture." (interactive= nil) (let ((frame-window-system (cond ((eq system-type ...) 'ns) ((eq syst= em-type ...) 'x) ((eq system-type ...) 'w32))) (after-make-frame-functions = #'(lambda (frame) (let ... ...)))) (make-frame (cons (cons 'window-system f= rame-window-system) ocpf-frame-parameters)))) #f(compiled-function (&option= al goto keys) "Capture something.\n\\\nThis will let = you select a template from `org-capture-templates', and\nthen file the newl= y captured information. The text is immediately\ninserted at the target lo= cation, and an indirect buffer is shown where\nyou can edit it. Pressing `= \\[org-capture-finalize]' brings you back to the previous\nstate of Emacs, = so that you can continue your work.\n\nWhen called interactively with a `\\= [universal-argument]' prefix argument GOTO, don't\ncapture anything, just g= o to the file/headline where the selected\ntemplate stores its notes.\n\nWi= th a `\\[universal-argument] \\[universal-argument]' prefix argument, go to= the last note stored.\n\nWhen called with a `C-0' (zero) prefix, insert a = template at point.\n\nWhen called with a `C-1' (one) prefix, force promptin= g for a date when\na datetree entry is made.\n\nELisp programs can set KEYS= to a string associated with a template\nin `org-capture-templates'. In th= is case, interactive selection\nwill be bypassed.\n\nIf `org-capture-use-ag= enda-date' is non-nil, capturing from the\nagenda will use the date at poin= t as the default date. Then, a\n`C-1' prefix will tell the capture process= to use the HH:MM time\nof the day at point (if any) or the current HH:MM t= ime." (interactive "P") #) nil "B") (apply ocpf--org-capture@suppress-pop-frame-maybe #f(lambda (orig-fun &op= tional goto keys) :dynbind "Create a new frame and run org-capture." (inter= active nil) (let ((frame-window-system (cond ((eq system-type ...) 'ns) ((e= q system-type ...) 'x) ((eq system-type ...) 'w32))) (after-make-frame-func= tions #'(lambda (frame) (let ... ...)))) (make-frame (cons (cons 'window-sy= stem frame-window-system) ocpf-frame-parameters)))) (#f(compiled-function (= &optional goto keys) "Capture something.\n\\\nThis wi= ll let you select a template from `org-capture-templates', and\nthen file t= he newly captured information. The text is immediately\ninserted at the ta= rget location, and an indirect buffer is shown where\nyou can edit it. Pre= ssing `\\[org-capture-finalize]' brings you back to the previous\nstate of = Emacs, so that you can continue your work.\n\nWhen called interactively wit= h a `\\[universal-argument]' prefix argument GOTO, don't\ncapture anything,= just go to the file/headline where the selected\ntemplate stores its notes= .\n\nWith a `\\[universal-argument] \\[universal-argument]' prefix argument= , go to the last note stored.\n\nWhen called with a `C-0' (zero) prefix, in= sert a template at point.\n\nWhen called with a `C-1' (one) prefix, force p= rompting for a date when\na datetree entry is made.\n\nELisp programs can s= et KEYS to a string associated with a template\nin `org-capture-templates'.= In this case, interactive selection\nwill be bypassed.\n\nIf `org-capture= -use-agenda-date' is non-nil, capturing from the\nagenda will use the date = at point as the default date. Then, a\n`C-1' prefix will tell the capture = process to use the HH:MM time\nof the day at point (if any) or the current = HH:MM time." (interactive "P") #) nil "B")) (ocpf--org-capture #f(compiled-function (&optional goto keys) "Capture so= mething.\n\\\nThis will let you select a template fro= m `org-capture-templates', and\nthen file the newly captured information. = The text is immediately\ninserted at the target location, and an indirect b= uffer is shown where\nyou can edit it. Pressing `\\[org-capture-finalize]'= brings you back to the previous\nstate of Emacs, so that you can continue = your work.\n\nWhen called interactively with a `\\[universal-argument]' pre= fix argument GOTO, don't\ncapture anything, just go to the file/headline wh= ere the selected\ntemplate stores its notes.\n\nWith a `\\[universal-argume= nt] \\[universal-argument]' prefix argument, go to the last note stored.\n\= nWhen called with a `C-0' (zero) prefix, insert a template at point.\n\nWhe= n called with a `C-1' (one) prefix, force prompting for a date when\na date= tree entry is made.\n\nELisp programs can set KEYS to a string associated w= ith a template\nin `org-capture-templates'. In this case, interactive sele= ction\nwill be bypassed.\n\nIf `org-capture-use-agenda-date' is non-nil, ca= pturing from the\nagenda will use the date at point as the default date. T= hen, a\n`C-1' prefix will tell the capture process to use the HH:MM time\no= f the day at point (if any) or the current HH:MM time." (interactive "P") #= ) nil "B") (apply ocpf--org-capture #f(compiled-function (&optional goto keys) "Capt= ure something.\n\\\nThis will let you select a templa= te from `org-capture-templates', and\nthen file the newly captured informat= ion. The text is immediately\ninserted at the target location, and an indi= rect buffer is shown where\nyou can edit it. Pressing `\\[org-capture-fina= lize]' brings you back to the previous\nstate of Emacs, so that you can con= tinue your work.\n\nWhen called interactively with a `\\[universal-argument= ]' prefix argument GOTO, don't\ncapture anything, just go to the file/headl= ine where the selected\ntemplate stores its notes.\n\nWith a `\\[universal-= argument] \\[universal-argument]' prefix argument, go to the last note stor= ed.\n\nWhen called with a `C-0' (zero) prefix, insert a template at point.\= n\nWhen called with a `C-1' (one) prefix, force prompting for a date when\n= a datetree entry is made.\n\nELisp programs can set KEYS to a string associ= ated with a template\nin `org-capture-templates'. In this case, interactiv= e selection\nwill be bypassed.\n\nIf `org-capture-use-agenda-date' is non-n= il, capturing from the\nagenda will use the date at point as the default da= te. Then, a\n`C-1' prefix will tell the capture process to use the HH:MM t= ime\nof the day at point (if any) or the current HH:MM time." (interactive = "P") #) (nil "B")) (org-capture nil "B") (org-protocol-capture (:template "B" :url "https://curiouscoding.nl/posts= /static-search-tree/" :title "Hacker News: Static search trees: faster than= binary search" :elfeed-data #s(elfeed-entry :id ("news.ycombinator.com" . = "https://curiouscoding.nl/posts/static-search-tree/") :title "Static search= trees: faster than binary search" :link "https://curiouscoding.nl/posts/st= atic-search-tree/" :date 1735690083.0 :content #s(elfeed-ref :id "8e2e9d3bf= 05bcac3908e187a096bb899ea3dfefc") :content-type html :enclosures nil :tags = (opened) :feed-id "https://news.ycombinator.com/rss" :meta (:elfeed-score/s= core 0)))) (let ((yant/suppress-pop-frame t)) (org-protocol-capture (list :template = "B" :url it :title (format "%s: %s" (elfeed-feed-title (elfeed-entry-feed e= ntry)) (elfeed-entry-title entry)) :elfeed-data entry))) (progn (fset 'raise-frame vnew) (let ((yant/suppress-pop-frame t)) (org-p= rotocol-capture (list :template "B" :url it :title (format "%s: %s" (elfeed= -feed-title (elfeed-entry-feed entry)) (elfeed-entry-title entry)) :elfeed-= data entry)))) (unwind-protect (progn (fset 'raise-frame vnew) (let ((yant/suppress-pop-= frame t)) (org-protocol-capture (list :template "B" :url it :title (format = "%s: %s" (elfeed-feed-title (elfeed-entry-feed entry)) (elfeed-entry-title = entry)) :elfeed-data entry)))) (fset 'raise-frame old)) (let* ((vnew #'(lambda (&rest _) nil)) (old (symbol-function 'raise-frame= ))) (unwind-protect (progn (fset 'raise-frame vnew) (let ((yant/suppress-po= p-frame t)) (org-protocol-capture (list :template "B" :url it :title (forma= t "%s: %s" (elfeed-feed-title ...) (elfeed-entry-title entry)) :elfeed-data= entry)))) (fset 'raise-frame old))) (progn (let* ((vnew #'(lambda (&rest _) nil)) (old (symbol-function 'rais= e-frame))) (unwind-protect (progn (fset 'raise-frame vnew) (let ((yant/supp= ress-pop-frame t)) (org-protocol-capture (list :template "B" :url it :title= (format "%s: %s" ... ...) :elfeed-data entry)))) (fset 'raise-frame old)))) (if it (progn (let* ((vnew #'(lambda (&rest _) nil)) (old (symbol-functio= n 'raise-frame))) (unwind-protect (progn (fset 'raise-frame vnew) (let ((ya= nt/suppress-pop-frame t)) (org-protocol-capture (list :template "B" :url it= :title ... :elfeed-data entry)))) (fset 'raise-frame old))))) (let ((it (elfeed-entry-link entry))) (if it (progn (let* ((vnew #'(lambd= a ... nil)) (old (symbol-function 'raise-frame))) (unwind-protect (progn (f= set 'raise-frame vnew) (let (...) (org-protocol-capture ...))) (fset 'raise= -frame old)))))) (while (consp --cl-var--) (setq entry (car --cl-var--)) (elfeed-untag ent= ry 'unread) (let ((it (elfeed-entry-link entry))) (if it (progn (let* ((vne= w #'...) (old (symbol-function ...))) (unwind-protect (progn (fset ... vnew= ) (let ... ...)) (fset 'raise-frame old)))))) (setq --cl-var-- (cdr --cl-va= r--))) (let* ((--cl-var-- entries) (entry nil)) (while (consp --cl-var--) (setq = entry (car --cl-var--)) (elfeed-untag entry 'unread) (let ((it (elfeed-entr= y-link entry))) (if it (progn (let* ((vnew ...) (old ...)) (unwind-protect = (progn ... ...) (fset ... old)))))) (setq --cl-var-- (cdr --cl-var--))) nil) (let ((entries (elfeed-search-selected))) (let* ((--cl-var-- entries) (en= try nil)) (while (consp --cl-var--) (setq entry (car --cl-var--)) (elfeed-u= ntag entry 'unread) (let ((it (elfeed-entry-link entry))) (if it (progn (le= t* (... ...) (unwind-protect ... ...))))) (setq --cl-var-- (cdr --cl-var--)= )) nil) (mapc #'elfeed-search-update-entry entries) (if (use-region-p) nil = (forward-line))) (#f(lambda () :dynbind "Capture selected entries into inbox." (interactiv= e nil) (elfeed-search-tag-all 'opened) (meta-up) (let ((entries (elfeed-sea= rch-selected))) (let* ((--cl-var-- entries) (entry nil)) (while (consp --cl= -var--) (setq entry (car --cl-var--)) (elfeed-untag entry 'unread) (let ((i= t ...)) (if it (progn ...))) (setq --cl-var-- (cdr --cl-var--))) nil) (mapc= #'elfeed-search-update-entry entries) (if (use-region-p) nil (forward-line= ))))) (apply #f(lambda () :dynbind "Capture selected entries into inbox." (inte= ractive nil) (elfeed-search-tag-all 'opened) (meta-up) (let ((entries (elfe= ed-search-selected))) (let* ((--cl-var-- entries) (entry nil)) (while (cons= p --cl-var--) (setq entry (car --cl-var--)) (elfeed-untag entry 'unread) (l= et ((it ...)) (if it (progn ...))) (setq --cl-var-- (cdr --cl-var--))) nil)= (mapc #'elfeed-search-update-entry entries) (if (use-region-p) nil (forwar= d-line)))) nil) (yant/elfeed-capture-entry) (funcall-interactively yant/elfeed-capture-entry) (command-execute yant/elfeed-capture-entry) In GNU Emacs 31.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.42, cairo version 1.18.2) of 2024-12-28 built on localhost Repository revision: ae6924ac7e76c40bb2c1e99dda60fbad5a971046 Repository branch: scratch/igc Windowing system distributor 'The X.Org Foundation', version 11.0.12101014 System Description: Gentoo Linux Configured using: 'configure --with-mps=3Dyes --with-native-compilation 'CFLAGS=3D-g3 -I/opt/mps/include -L/opt/mps/lib' JAVAC=3D/etc/java-config-2/current-system-vm/bin/javac PKG_CONFIG_PATH=3D/usr/share/guile-data/3.0/pkgconfig' Configured features: ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GSETTINGS HARFBUZZ JPEG LCMS2 LIBXML2 MODULES MPS NATIVE_COMP NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS WEBP X11 XDBE XIM XINPUT2 XPM GTK3 ZLIB Important settings: value of $LANG: en_US.utf8 locale-coding-system: utf-8-unix --=20 Ihor Radchenko // yantar92, Org mode maintainer, Learn more about Org mode at . Support Org development at , or support my work at