From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2.migadu.com ([2001:41d0:303:e16b::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms13.migadu.com with LMTPS id QGAUKBnePmfFxQAAe85BDQ:P1 (envelope-from ) for ; Thu, 21 Nov 2024 07:15:37 +0000 Received: from aspmx1.migadu.com ([2001:41d0:303:e16b::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2.migadu.com with LMTPS id QGAUKBnePmfFxQAAe85BDQ (envelope-from ) for ; Thu, 21 Nov 2024 08:15:37 +0100 X-Envelope-To: larch@yhetil.org Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=obco.pro header.s=dkim header.b=jkMhsYY5; dmarc=pass (policy=quarantine) header.from=obco.pro; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" ARC-Seal: i=1; s=key1; d=yhetil.org; t=1732173337; a=rsa-sha256; cv=none; b=XznkiVGTptYkiGn1SmDj07ZYKrWAFloUl6H7IHnWMElSsFgh0ZTv/sJayGBG6g2AaTo/lw aCwyaLFjgaZyZQHMNIx4oemtd1ied10PxWHs0AQFrnK5Y0du3vAqac4FYLFEw7Jns9ytfd bCacsmdu46jrAr2TYyEyDVE1cT2J7dHuSOqokKQtSDtQD7qXtz87DiNTaOaQmlr39sd1t8 B20UxFxwyMAMc/ouUX+i2vdKq+Ec0i6+ciuXVvBVmMWfyhvd8iV30VJb5E9TPD1M7HAKpR p5zZhlP+nsC3HmERminxFylTBEuHPzDYmxgaLU0L7DSeAMtt5TZyPraFwk7AFg== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=obco.pro header.s=dkim header.b=jkMhsYY5; dmarc=pass (policy=quarantine) header.from=obco.pro; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1732173337; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding:list-id:list-help: list-unsubscribe:list-subscribe:list-post:dkim-signature:autocrypt:autocrypt; bh=AATztFwmF72Rr03upWxDAL64CV231GgOtH558D6RalQ=; b=frxx5WNztA8fB+Rn/aeDYiWvmYV7Oem+2EO/Yn++smJFXAvVNC3/yLon6uoiHZKxtrllHT df4wS41B/YCk2i1D0uPMUpI0bRZ6DCqjoDy5UfoHgpRKEjCOpdTOmxzhVg9DpsOxgOEs+3 RNB0blPNL1yVQe4wpuhjKCpaPv5MtavuWT0kirBDeBbB9UvxlMekA9aaBmoPse9XygMPmW d8xGky6alJZUF8FIBJcBGq5MnmpFvvUkNu79yCF/lbchY8cp8liJgD8hNWoEMtBp9hzSGO oYojCG/FS9hCWju63P6zyMVb8v/ALmNIeeWA7HqVQZcPkM32fZQd3Y+a5OKBRw== Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 1A66C5B56E for ; Thu, 21 Nov 2024 08:15:37 +0100 (CET) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1tE1Jr-0001jA-F1; Thu, 21 Nov 2024 02:09:39 -0500 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 1tDrWf-0003yv-F0 for emacs-orgmode@gnu.org; Wed, 20 Nov 2024 15:42:13 -0500 Received: from mail.obco.pro ([152.53.16.41]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tDrWc-0005H3-4i for emacs-orgmode@gnu.org; Wed, 20 Nov 2024 15:42:13 -0500 Received: from [127.0.0.1] (localhost [127.0.0.1]) by localhost (Mailerdaemon) with ESMTPSA id 328E9E028A for ; Wed, 20 Nov 2024 21:40:27 +0100 (CET) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=obco.pro; s=dkim; t=1732135228; h=from:subject:date:message-id:to:mime-version:content-type: content-transfer-encoding:content-language:autocrypt; bh=AATztFwmF72Rr03upWxDAL64CV231GgOtH558D6RalQ=; b=jkMhsYY533zGggsPHodW9Pf3JBNCUhLZCAWreAvhROpybQaCQcnSBCuCMD8pGtd42a3MOo 3g2nozzGmkBq1SYxyvLFzFrxuX+aI7ywr5Z0IjwI0kfkM2xiABuXcbTiluuwzWeW8G2nIP CBZpCdvaSFam7+IIBzJUQ6vd3CHLb+CsMW1bNbsjoSFLxHzAYgRaZCyKquTZLfIr1HLzyq QuH0vclHZv8V7VU1vuQgz7BeNLbKbu/bAX+Ut9tn9WqurGphkFPLtMKZK8T7wm681etEhl WvPM1/tAaymbRKCfYYM9r46yp1RgmVhMuCwm0KYr+pCPVU2ZxkUL7ybgwdPYbA== Message-ID: <6056b20a-9753-41fb-9632-88473ecd818a@obco.pro> Date: Wed, 20 Nov 2024 21:41:51 +0100 MIME-Version: 1.0 User-Agent: Mozilla Thunderbird To: emacs-orgmode@gnu.org Subject: [BUG] Org Roam does not open capture buffer [9.7.11 (9.7.11-??-6a5d0ed34 @ /home/yonggan/.config/emacs/.local/straight/build-29.4/org/)] Content-Language: en-US From: Yonggan Autocrypt: addr=yonggan@obco.pro; keydata= xsDNBGQfD2UBDACaS9IzInQrC4DmWHXNOoNSs+0y63yQWNvrzDP9bNfcII416tMhmK/NvMCE VGnO1EUc3bOrIOF70rhd6eMZ+4iRMOPCrG4mvJyvh3anxjREvre+K7lXlV3e82APN7Hye2E7 o8Pq+7dbff3tuc6JCu0MLOzf5rKocRZwO8QkP+kkwjlOzJs9ohwlD4RRC9EA6pUPkp8bgL7P FSIPyHFuldg+MIkZpNouILp2rR8+VIxW7tWuXEfKvfbSWDANx2kb/d4A1RY+OEqbNNgzvFkE Dacco9XUBHobHBWuKkTSc0uo29rdQr1dMkMpHeS8fFRe5MDpROmnC8s3x1hSgoRwtcyRZvxh 5ITozocH/48J6YB+zNa6eBkdGZLWTNGGsKy9gEeCT2229sUIZAaTlCxTfzf3Wv7X1b4e4F2w cu/xeVTpq9WA86CdbTO8UEbz0xWhz8KN6Bsj7IN7LHejnMJSfg3pGzzcKv8JRWwtrbXCsi7k dHemsFd8up6nconq/tVBQskAEQEAAc0hQW5kcsOpIFNjaMO8bGUgPHlvbmdnYW5Ab2Jjby5w cm8+wsDwBBMBCgAaBAsJCAcCFQoCFgECGQEFgmQfD2UCngECmwMACgkQGNeY1Ja1qZa5CgwA hf1Sl6Z3vrgE0bUgwD1etMMwfo1uL5nPDyeH+UzkqKTE5CITroQNichDqE4AzKjLzT5kt4k+ gXTGf6sCK94uRSDjh16oT1EC84jaJMnsC7Zt1BJwKvW55Toe15YEz9RJEODvfns4kUf6kvVK uudwjkwUvXF0NTdYLWcP+8eN/hxZNRHd9d64VwlChOEcCrfJale7pZv4w6MBF4jcSLoD8uTF cItRm05jSAJlDcHzkgDs4IDDrIJzQFNJZ4EyRDgajuvHPDBY0UVdNmUopshrS+TRdvNNU0pQ LQMaxl36usdrzIwVgeyvaFBXMdQp/K4ep/mzjAWEZAYw5vHnUR+o06w1hmdThbTLN273X4VV K7+wARa6sRDmehSOf+h6TvPWFmCOO9i+u9RJsrakQP4nhPe1a3b8oKiQuguM+gsqnNWwxxmf gbFN43ueM1y3wDMZ9zryaNTSdPAvbHLxZuMl5DMipMjCtDCHliTS0bqNBXjLF5akPXcz1Uhe +pEEXonSzsDNBGQfD2UBDAC9bmw9bwWllgtoGWyyS1URjWAXOiXrNGK30RN3UV70facjIKdK 3VGrosftBKZEgK90hVgKXs4oXInW4AtnhZp4JpwTc2rS34j5nXLaNJ03Oimn/jnTd4EpQMtb A8qPfwd/oNhFAVfsqLJUrUhXvqyCOC1LjQPo4ZMZSKJ/HTlK45rbYWesaYM247N42NfcuTSV BOPQRjSwB3VSLCkjqTmIzBSaNKYQ4e1ht38k4Be6zJZJdvtexSOBl6FbJ2+Md9RNGYAI0Mhe 6XaG9waY/lcdSITWs++Du8PBCpiJLj3nBIyRweBPl89fUL4L0WaTibPQ6BEx+nx+5xXz03+R c3EY69leykhw2XHBUu1lq1Yi1b+bpn8m3nAoGQsV1047Vq5NktMZjOgmluFfD70eUDcmhYCk LdKbBWHLrNFyEtjaTIgaCBaD3LTAoRomlFgbzENvhHlN4R2UhOpjTdnpqXstD0kk6Rf0vc2s 13Tt8zYZK6lJ0he/pkq49P2jEu8oEWsAEQEAAcLA3wQYAQoACQWCZB8PZQKbDAAKCRAY15jU lrWplogKC/9ZxtwdV+4Huv9u0l6XB6A7PbORxCGwLb08pE2uSyBh4nnX9vLvOZpxqrxoKBHF OhwzK80dTa0pIPxJw/UAY4+5mw3cHmwZHJ67AfAtFCsisHg5b/xUL8R2w405RTS8gLH7VF8x y3VeeRkW57SPw10slIRqf2IxkeNmw8Vt7paUfXnJEC0q0Hg/QsFirhlxZqiMN59zdokQFRC4 HCaOTpjDhKCtK95V8JGesMcWhUCjmEUp6z4a8QUL2NhNNpia90Q1kdNk7WxO1DCD58C4WHx0 bUF1C94mqYBZAEyFsKwV2amt9aoq1wMtGAd2e1OvTUEsUcGCjDU6NDEBp2TfbwpE1IgNnRoH HMp1HFA62wvg/OFasisgO0lcvMsokLLC74hTO10ZlpRknZnh0koYkOyvOyS6d4N6v94YegBU RZ9bSYBz+A7xHEy8HSjPDsIOmO/vGWKoD1kWABZq6kgCbHH6JUIbqVHjb1AHOJiYj1Z3/bm+ xEz1zRMXJjn3xrKfPuM= Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit X-Last-TLS-Session-Version: TLSv1.3 Received-SPF: pass client-ip=152.53.16.41; envelope-from=yonggan@obco.pro; helo=mail.obco.pro X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 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_VALIDITY_RPBL_BLOCKED=0.001, RCVD_IN_VALIDITY_SAFE_BLOCKED=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, T_PDS_PRO_TLD=0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-Mailman-Approved-At: Thu, 21 Nov 2024 02:09:35 -0500 X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: emacs-orgmode-bounces+larch=yhetil.org@gnu.org X-Migadu-Flow: FLOW_IN X-Migadu-Country: US X-Migadu-Queue-Id: 1A66C5B56E X-Migadu-Scanner: mx13.migadu.com X-Migadu-Spam-Score: -7.05 X-Spam-Score: -7.05 X-TUID: mx6L6iamBSdL Remember to cover the basics, that is, what you expected to happen and what in fact did happen. You don't know how to make a good report? See https://orgmode.org/manual/Feedback.html#Feedback Your bug report will be posted to the Org mailing list. ------------------------------------------------------------------------ Emacs : GNU Emacs 29.4 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version 1.18.2, Xaw3d scroll bars) Package: Org mode version 9.7.11 (9.7.11-??-6a5d0ed34 @ /home/yonggan/.config/emacs/.local/straight/build-29.4/org/) current state: ============== State could not be dumped due to the following error: (user-error Tree-Sitter mode is not enabled for this buffer!) ⛔ Warning (org-element): ‘org-element-at-point’ cannot be used in non-Org buffer # (emacs-lisp-mode) ⛔ Warning (org-element): org-element--cache: Org parser error in init.el::9354. Resetting. The error was: (error "rx ‘**’ range error") Backtrace: " backtrace-to-string(nil) (progn (backtrace-to-string (backtrace-get-frames 'backtrace))) (if (and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn (backtrace-to-string (backtrace-get-frames 'backtrace)))) (format \"Org parser error in %s::%S. Resetting.\\n The error ...\" (buffer-name (current-buffer)) epom err (if (and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn (backtrace-to-string (backtrace-get-frames 'backtrace))))) (let* ((format-string (format \"Org parser error in %s::%S. Resetting.\\n The error ...\" (buffer-name (current-buffer)) epom err (if (and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn (backtrace-to-string (backtrace-get-frames ...)))))) (format-string (if (or (not org-element--cache-diagnostics-ring) (not (eq 'backtrace org-element--cache-self-verify))) format-string (prog1 (concat (format \"Warning(%s): \" (buffer-name ...)) format-string \"\\nBacktrace:\\n \" (mapconcat #'identity (ring-elements org-element--cache-diagnostics-ring) \"\\n \")) (setq org-element--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (setq org--warnings (cons (concat \"org-element--cache: \" format-string) org--warnings)) (display-warning '(org-element org-element-cache) (concat \"org-element--cache: \" format-string)))) (condition-case err (org-element--parse-to epom) ((debug error) (let* ((format-string (format \"Org parser error in %s::%S. Resetting.\\n The error ...\" (buffer-name (current-buffer)) epom err (if (and ... ...) (progn ...)))) (format-string (if (or (not org-element--cache-diagnostics-ring) (not ...)) format-string (prog1 (concat ... format-string \"\\nBacktrace:\\n \" ...) (setq org-element--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (setq org--warnings (cons (concat \"org-element--cache: \" format-string) org--warnings)) (display-warning '(org-element org-element-cache) (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset) (org-element--parse-to epom))) (if cached-only (if (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (< epom (aref (car org-element--cache-sync-requests) 1)))) (progn (org-element--cache-find epom))) (condition-case err (org-element--parse-to epom) ((debug error) (let* ((format-string (format \"Org parser error in %s::%S. Resetting.\\n The error ...\" (buffer-name ...) epom err (if ... ...))) (format-string (if (or ... ...) format-string (prog1 ... ...)))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (setq org--warnings (cons (concat \"org-element--cache: \" format-string) org--warnings)) (display-warning '(org-element org-element-cache) (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset) (org-element--parse-to epom)))) (setq element (if cached-only (if (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (< epom (aref (car org-element--cache-sync-requests) 1)))) (progn (org-element--cache-find epom))) (condition-case err (org-element--parse-to epom) ((debug error) (let* ((format-string (format \"Org parser error in %s::%S. Resetting.\\n The error ...\" ... epom err ...)) (format-string (if ... format-string ...))) (if (and (boundp ...) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (setq org--warnings (cons ... org--warnings)) (display-warning '... (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset) (org-element--parse-to epom))))) (let (element) (if (org-element--cache-active-p) (progn (if (not (save-current-buffer (set-buffer (or ... ...)) org-element--cache)) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) epom))))) (setq element (if cached-only (if (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (< epom (aref ... 1)))) (progn (org-element--cache-find epom))) (condition-case err (org-element--parse-to epom) ((debug error) (let* ((format-string ...) (format-string ...)) (if (and ... org-batch-test) (error \"%s\" ...) (setq org--warnings ...) (display-warning ... ...))) (org-element-cache-reset) (org-element--parse-to epom))))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data) nil (if (and cached-only (not (and element (or (= epom ...) (and ... ... ...) (and ... ... ...) (and ... ... ...))))) nil (if (not (eq (org-element-type element t) 'section)) element (org-element-at-point (1+ epom) cached-only))))) (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning '(org-element org-element-parser) (format-message \"`org-element-at-point' cannot be used in non-Org b...\" (current-buffer) major-mode))) (if (and cached-only (memq this-command org-element--cache-non-modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not (save-current-buffer (set-buffer ...) org-element--cache)) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) epom))))) (setq element (if cached-only (if (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (< epom ...))) (progn (org-element--cache-find epom))) (condition-case err (org-element--parse-to epom) ((debug error) (let* (... ...) (if ... ... ... ...)) (org-element-cache-reset) (org-element--parse-to epom))))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data) nil (if (and cached-only (not (and element (or ... ... ... ...)))) nil (if (not (eq (org-element-type element t) 'section)) element (org-element-at-point (1+ epom) cached-only)))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning '(org-element org-element-parser) (format-message \"`org-element-at-point' cannot be used in non-Org b...\" (current-buffer) major-mode))) (if (and cached-only (memq this-command org-element--cache-non-modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not (save-current-buffer ... org-element--cache)) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync ... epom))))) (setq element (if cached-only (if (and (org-element--cache-active-p) (or ... ...)) (progn (org-element--cache-find epom))) (condition-case err (org-element--parse-to epom) ((debug error) (let* ... ...) (org-element-cache-reset) (org-element--parse-to epom))))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data) nil (if (and cached-only (not (and element ...))) nil (if (not (eq ... ...)) element (org-element-at-point (1+ epom) cached-only))))))) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx (or 14 14))) (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...)))) (progn (set-buffer (let (...) (let* ... ...))))) (setq --mepom (let ((idx (or 0 0))) (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...))))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning '(org-element org-element-parser) (format-message \"`org-element-at-point' cannot be used in non-Org b...\" (current-buffer) major-mode))) (if (and cached-only (memq this-command org-element--cache-non-modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not ...) (org-element-cache-reset) (if cached-only nil ...)))) (setq element (if cached-only (if (and ... ...) (progn ...)) (condition-case err (org-element--parse-to epom) (... ... ... ...)))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data) nil (if (and cached-only (not ...)) nil (if (not ...) element (org-element-at-point ... cached-only)))))))) (let ((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx ...)) (let* (...) (if parray ... ...))) (progn (set-buffer (let ... ...)))) (setq --mepom (let ((idx ...)) (let* (...) (if parray ... ...)))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning '(org-element org-element-parser) (format-message \"`org-element-at-point' cannot be used in non-Org b...\" (current-buffer) major-mode))) (if (and cached-only (memq this-command org-element--cache-non-modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if ... ... ...))) (setq element (if cached-only (if ... ...) (condition-case err ... ...))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element ...))) (if (eq (org-element-type element t) 'org-data) nil (if (and cached-only ...) nil (if ... element ...)))))))) (if (org-element-type epom t) epom (setq epom (or epom (point))) (let ((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let (...) (let* ... ...)) (progn (set-buffer ...))) (setq --mepom (let (...) (let* ... ...))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning '... (format-message \"`org-element-at-point' cannot be used in non-Org b...\" ... major-mode))) (if (and cached-only (memq this-command org-element--cache-non-modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn ...)) (setq element (if cached-only ... ...)) (if (and ... element ...) (progn ...)) (if (eq ... ...) nil (if ... nil ...)))))))) org-element-at-point(nil) (org-element-lineage (org-element-at-point epom) '(headline inlinetask org-data) 'with-self) (setq epom (org-element-lineage (org-element-at-point epom) '(headline inlinetask org-data) 'with-self)) org--property-local-values(\"ID\" nil nil) (let* ((local (org--property-local-values property literal-nil epom)) (value (and local (mapconcat #'identity (delq nil local) (org--property-get-separator property))))) (if literal-nil value (org-not-nil value))) (cond ((member-ignore-case property (cons \"CATEGORY\" org-special-properties)) (cdr (assoc-string property (org-entry-properties epom property)))) ((and inherit (or (not (eq inherit 'selective)) (org-property-inherit-p property))) (org-entry-get-with-inheritance property literal-nil epom)) (t (let* ((local (org--property-local-values property literal-nil epom)) (value (and local (mapconcat #'identity (delq nil local) (org--property-get-separator property))))) (if literal-nil value (org-not-nil value))))) org-entry-get(nil \"ID\" nil) (let ((id (org-entry-get epom \"ID\" (and inherit t)))) (cond ((and id (stringp id) (string-match \"\\\\S-\" id)) id) (create (setq id (org-id-new prefix)) (org-entry-put epom \"ID\" id) (let ((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer ...)) ((numberp --mepom)) (t (if ... ...) (setq --mepom ...))) (save-excursion (save-restriction (widen) (goto-char ...) (org-id-add-location id ...))))) id))) org-id-get() (and (org-id-get) (not (org-entry-get (point) \"ROAM_EXCLUDE\")) (funcall org-roam-db-node-include-function)) org-roam-db-node-p() (or (org-roam-db-node-p) (bobp) (eq (funcall outline-level) (save-excursion (org-roam-up-heading-or-point-min) (funcall outline-level)))) (not (or (org-roam-db-node-p) (bobp) (eq (funcall outline-level) (save-excursion (org-roam-up-heading-or-point-min) (funcall outline-level))))) (while (not (or (org-roam-db-node-p) (bobp) (eq (funcall outline-level) (save-excursion (org-roam-up-heading-or-point-min) (funcall outline-level))))) (org-roam-up-heading-or-point-min)) (save-restriction (widen) (while (not (or (org-roam-db-node-p) (bobp) (eq (funcall outline-level) (save-excursion (org-roam-up-heading-or-point-min) (funcall outline-level))))) (org-roam-up-heading-or-point-min)) (let* ((id (and t (org-id-get)))) (if id (org-roam-populate (record 'org-roam-node nil nil nil nil nil id nil (point) nil nil nil nil nil nil nil nil nil nil)) nil))) (save-excursion (save-restriction (widen) (while (not (or (org-roam-db-node-p) (bobp) (eq (funcall outline-level) (save-excursion (org-roam-up-heading-or-point-min) (funcall outline-level))))) (org-roam-up-heading-or-point-min)) (let* ((id (and t (org-id-get)))) (if id (org-roam-populate (record 'org-roam-node nil nil nil nil nil id nil (point) nil nil nil nil nil nil nil nil nil nil)) nil)))) (cond ((and it (magit-section-match-1 'org-roam-node-section it)) (eieio-oref it 'node)) ((and it (magit-section-match-1 'org-roam-preview-section it)) (save-excursion (magit-section-up) (org-roam-node-at-point))) (t (save-excursion (save-restriction (widen) (while (not (or (org-roam-db-node-p) (bobp) (eq ... ...))) (org-roam-up-heading-or-point-min)) (let* ((id (and t ...))) (if id (org-roam-populate (record ... nil nil nil nil nil id nil ... nil nil nil nil nil nil nil nil nil nil)) nil)))))) (let* ((it (magit-current-section))) (cond ((and it (magit-section-match-1 'org-roam-node-section it)) (eieio-oref it 'node)) ((and it (magit-section-match-1 'org-roam-preview-section it)) (save-excursion (magit-section-up) (org-roam-node-at-point))) (t (save-excursion (save-restriction (widen) (while (not (or ... ... ...)) (org-roam-up-heading-or-point-min)) (let* ((id ...)) (if id (org-roam-populate ...) nil))))))) (or (let* ((it (magit-current-section))) (cond ((and it (magit-section-match-1 'org-roam-node-section it)) (eieio-oref it 'node)) ((and it (magit-section-match-1 'org-roam-preview-section it)) (save-excursion (magit-section-up) (org-roam-node-at-point))) (t (save-excursion (save-restriction (widen) (while (not ...) (org-roam-up-heading-or-point-min)) (let* (...) (if id ... nil))))))) (and assert (user-error \"No node at point\"))) org-roam-node-at-point() (and t (org-roam-node-at-point)) (let* ((node (and t (org-roam-node-at-point)))) (if node (if (equal node org-roam-buffer-current-node) nil (progn (setq org-roam-buffer-current-node node) (setq org-roam-buffer-current-directory org-roam-directory)) (save-current-buffer (set-buffer (get-buffer-create org-roam-buffer)) (org-roam-buffer-render-contents) (add-hook 'kill-buffer-hook #'org-roam-buffer--persistent-cleanup-h nil t))) nil)) org-roam-buffer-persistent-redisplay() (progn (display-buffer (get-buffer-create org-roam-buffer)) (org-roam-buffer-persistent-redisplay)) (let nil (progn (display-buffer (get-buffer-create org-roam-buffer)) (org-roam-buffer-persistent-redisplay))) (cond ((eq val 'visible) (let nil (progn (quit-window nil (get-buffer-window org-roam-buffer)) (remove-hook 'post-command-hook #'org-roam-buffer--redisplay-h)))) ((memq val '(none exists)) (let nil (progn (display-buffer (get-buffer-create org-roam-buffer)) (org-roam-buffer-persistent-redisplay))))) (let* ((val (org-roam-buffer--visibility))) (cond ((eq val 'visible) (let nil (progn (quit-window nil (get-buffer-window org-roam-buffer)) (remove-hook 'post-command-hook #'org-roam-buffer--redisplay-h)))) ((memq val '(none exists)) (let nil (progn (display-buffer (get-buffer-create org-roam-buffer)) (org-roam-buffer-persistent-redisplay)))))) org-roam-buffer-toggle() funcall-interactively(org-roam-buffer-toggle) command-execute(org-roam-buffer-toggle record) execute-extended-command(nil \"org-roam-buffer-toggle\" #(\"org-roam-buffer-toggle\" 0 22 (ws-butler-chg chg))) funcall-interactively(execute-extended-command nil \"org-roam-buffer-toggle\" #(\"org-roam-buffer-toggle\" 0 22 (ws-butler-chg chg))) command-execute(execute-extended-command) " Please report this to Org mode mailing list (M-x org-submit-bug-report). You should still send this bug report.