From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1.migadu.com ([2001:41d0:403:4876::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms1.migadu.com with LMTPS id 6CKQN3xxGWYvOgAA62LTzQ:P1 (envelope-from ) for ; Fri, 12 Apr 2024 19:38:05 +0200 Received: from aspmx1.migadu.com ([2001:41d0:403:4876::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1.migadu.com with LMTPS id 6CKQN3xxGWYvOgAA62LTzQ (envelope-from ) for ; Fri, 12 Apr 2024 19:38:05 +0200 X-Envelope-To: larch@yhetil.org Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=mailfence.com header.s=20210208-e7xh header.b=ntyG8ODk; dmarc=pass (policy=reject) header.from=mailfence.com; 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=1712943484; a=rsa-sha256; cv=none; b=q8e+L2kh0EMVZKxGgaMTdQJsEO78s2I1GBgbEOfzVw7z2wm5lLtXYYIYevYl7NDzqeQzBn d9TQseNFPiIwFot6MfIeOsouLWJZWt0lBaGvuFifsOZkeu+GsfIiOx6aI5QNSw01KL6Bi1 2W13d9ivutOlvqSNV+R6j3hLklJA0qOPiqaRb1dFNyCXrVwlGRUnOPq/0Lk9dwEHavZ1NW EF7PxT6FJlBFASGO7M/qeb4Ftlci+SBKaeg1g8RlLMVtqxUEOuSC4W6KR6NCclD8KfchwV uKip71tsMgCIyq4TWeXLbhzdaOaDN2XZzOO+NW5Hl26IJvdyCj5e8A+9negugg== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=mailfence.com header.s=20210208-e7xh header.b=ntyG8ODk; dmarc=pass (policy=reject) header.from=mailfence.com; 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=1712943484; 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; bh=23SHizja4icc+LAWrSu/bXpA9ZrGcXCsp0trFKOTeGA=; b=PcvkgpNiBbXO2u+q0HtLtMxv6B3582z6xL7IcirzxB9wWFD3UbVViKCT02ZiXbctkBRDWy dEICdw7eB0b9IPpKm+uWqUrs3GUt5FidzEY5zlaaAi/U0GywIhAclEvo0s6tTU6dkxtU2o tj1evqKva/MUh17S2qg48DRKPhsow3cedntTDc+8IA7LbRMXwNN+DVjKw5w6k0h3iG6riL teLdn5WxH+0YHYZtDm9qLFble0DErKNJkSb4tdYzg8Fsckev1fCrOkjfkswCPwouEQk4j8 lD6QKcf7F2WPKUw6j7dehsRdXi8NI5WSgfHCQjlMs7XZWO5EQD11tWNqRfjK7Q== 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 5AE5C79B2C for ; Fri, 12 Apr 2024 19:38:04 +0200 (CEST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rvKpr-0004jA-TV; Fri, 12 Apr 2024 13:37:11 -0400 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 1rvKpp-0004ix-RG for emacs-orgmode@gnu.org; Fri, 12 Apr 2024 13:37:10 -0400 Received: from wilbur.contactoffice.com ([212.3.242.68]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rvKpn-00056q-93 for emacs-orgmode@gnu.org; Fri, 12 Apr 2024 13:37:09 -0400 Received: from ichabod.co-bxl (ichabod.co-bxl [10.2.0.36]) by wilbur.contactoffice.com (Postfix) with ESMTP id 2FA49235 for ; Fri, 12 Apr 2024 19:37:01 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; t=1712943421; s=20210208-e7xh; d=mailfence.com; i=edgarlux@mailfence.com; h=Date:Message-ID:MIME-Version:Content-Type:Subject:From:Content-Transfer-Encoding:To; l=10250; bh=23SHizja4icc+LAWrSu/bXpA9ZrGcXCsp0trFKOTeGA=; b=ntyG8ODkyNxh8iiYOn2fANVfaXLvbfx0haq2F7sIFv5LcN18DipN46xE+XRe5OgU s7ok7h6+RjalzxiRr0V0n9tovdVJdNAnf1xiijUA56nAniOQNaymCAMLgnIyw23LUGK 4eSXiinTKitbZYERsJkXC8jZCg+4q6UzkXypS7ZNaVsqFfDGLgjk+/3RVQXc0YBUrP1 PPdhoIXD7T9v5nrcJMRoyEJ7VwG7RUc+uLt1ENH+UywbfSFI3FO6uEg/5KD+6X8UMFQ Wy66/qFUq78SAGWRvwXAhQvrBKKScvO32DtxSUuU62PAa2SB+EeL0M7+u2O/ot1+Lh4 TLDtsNAy0A== Date: Fri, 12 Apr 2024 19:36:58 +0200 (CEST) Message-ID: <1294251072.453751.1712943418634@ichabod.co-bxl> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Subject: =?utf-8?Q?(error_"Listing_directory_fai?= =?utf-8?Q?led_but_=E2=80=98access-file=E2=80=99_worked")?= From: Edgar Lux Content-Transfer-Encoding: quoted-printable To: Emacs Orgmode X-Mailer: ContactOffice Mail X-ContactOffice-Account: com:195124330 Received-SPF: pass client-ip=212.3.242.68; envelope-from=edgarlux@mailfence.com; helo=wilbur.contactoffice.com X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 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_LOW=-0.7, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action 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-Spam-Score: -9.80 X-Migadu-Queue-Id: 5AE5C79B2C X-Migadu-Spam-Score: -9.80 X-Migadu-Scanner: mx10.migadu.com X-TUID: dte3lWgPzbT2 Hello. I got this in an Org file: #+begin_src org [[file:Figures/Ti19-g(w, eta=3D{0.1,}, R=3D1e-3).svg]] [[file:Figures/Ti19-g(w, eta=3D{0.1,}, R=3D1e-3).png]] #+end_src The files exist, and can be viewed in image-mode (tested with src_bash{emac= s -q}). With =3DC-c C-o=3D src_emacs-lisp{(org-open-at-point)}, the result is: #+begin_example Debugger entered--Lisp error: (error "Listing directory failed but =E2=80= =98access-file=E2=80=99 worked") signal(error ("Listing directory failed but =E2=80=98access-file=E2=80=99= worked")) error("Listing directory failed but `access-file' worked") insert-directory("/tmp/Figures/Ti19-g(w, eta=3D{0.1,}, R=3D1e-3).svg" "--= dired -alth --group-directories-first" t nil) dired-insert-directory("/tmp/Figures/Ti19-g(w, eta=3D{0.1,}, R=3D1e-3).sv= g" "-alth --group-directories-first" nil t t) dired-readin-insert() #f(compiled-function () #)() combine-change-calls-1(1 1 #f(compiled-function () #)) dired-readin() dired-internal-noselect("/tmp/Figures/Ti19-g(w, eta=3D{0.1,}, R=3D1e-3).s= vg" nil) dired-noselect("Figures/Ti19-g(w, eta=3D{0.1,}, R=3D1e-3).svg" nil) dired("Figures/Ti19-g(w, eta=3D{0.1,}, R=3D1e-3).svg") (if (string-match "[*?{]" (file-name-nondirectory file-name)) (dired file= -name) (apply #'org-open-file file-name arg (cond ((not option) nil) ((stri= ng-match-p "\\`[0-9]+\\'" option) (list (string-to-number option))) (t (lis= t nil option))))) (let* ((option (and (string-match "::\\(.*\\)\\'" path) (match-string 1 p= ath))) (file-name (if (not option) path (substring path 0 (match-beginning = 0))))) (if (string-match "[*?{]" (file-name-nondirectory file-name)) (dired= file-name) (apply #'org-open-file file-name arg (cond ((not option) nil) (= (string-match-p "\\`[0-9]+\\'" option) (list (string-to-number option))) (t= (list nil option)))))) org-link-open-as-file("Figures/Ti19-g(w, eta=3D{0.1,}, R=3D1e-3).svg" nil= ) (let* ((option (org-element-property :search-option link)) (path (if opti= on (concat path "::" option) path))) (org-link-open-as-file path (let* ((va= l (org-element-property :application link))) (cond (arg (let nil arg)) ((eq= ual val '"emacs") (let nil 'emacs)) ((equal val '"sys") (let nil 'system)))= ))) (let nil (let* ((option (org-element-property :search-option link)) (path= (if option (concat path "::" option) path))) (org-link-open-as-file path (= let* ((val (org-element-property :application link))) (cond (arg (let nil a= rg)) ((equal val '"emacs") (let nil 'emacs)) ((equal val '"sys") (let nil '= system))))))) (cond ((equal type '"file") (let nil (let* ((option (org-element-property= :search-option link)) (path (if option (concat path "::" option) path))) (= org-link-open-as-file path (let* ((val ...)) (cond (arg ...) (... ...) (...= ...))))))) ((member type '("radio" "fuzzy" "custom-id" "coderef")) (let ni= l (if (run-hook-with-args-until-success 'org-open-link-functions path) nil = (if (not arg) (org-mark-ring-push) (switch-to-buffer-other-window (org-link= --buffer-for-internals))) (let ((destination (save-excursion ...))) (if (an= d (<=3D ... destination) (>=3D ... destination)) nil (widen)) (goto-char de= stination))))) (t (let nil (let ((f (org-link-get-parameter type :follow)))= (if (functionp f) (progn (condition-case nil (funcall ... path arg) (wrong= -number-of-arguments ...)))))))) (let ((type (org-element-property :type link)) (path (org-element-propert= y :path link))) (cond ((equal type '"file") (let nil (let* ((option (org-el= ement-property :search-option link)) (path (if option ... path))) (org-link= -open-as-file path (let* (...) (cond ... ... ...)))))) ((member type '("rad= io" "fuzzy" "custom-id" "coderef")) (let nil (if (run-hook-with-args-until-= success 'org-open-link-functions path) nil (if (not arg) (org-mark-ring-pus= h) (switch-to-buffer-other-window (org-link--buffer-for-internals))) (let (= (destination ...)) (if (and ... ...) nil (widen)) (goto-char destination)))= )) (t (let nil (let ((f (org-link-get-parameter type :follow))) (if (functi= onp f) (progn (condition-case nil ... ...)))))))) org-link-open((link (:type "file" :path "Figures/Ti19-g(w, eta=3D{0.1,}, = R=3D1e-3).svg" :format bracket :raw-link "file:Figures/Ti19-g(w, eta=3D{0.1= ,}, R=3D1e-3).svg" :application nil :search-option nil :begin 1 :end 51 :co= ntents-begin nil :contents-end nil :post-blank 0 :parent (paragraph (:begin= 1 :end 103 :contents-begin 1 :contents-end 103 :post-blank 0 :post-affilia= ted 1 :mode top-comment :granularity element :cached t :parent (section (:b= egin 1 :end 103 :contents-begin 1 :contents-end 103 :robust-begin 1 :robust= -end 101 :post-blank 0 :post-affiliated 1 :mode first-section :granularity = element :cached t :parent (org-data ...))))))) nil) (cond ((not type) (user-error "No link found")) ((memq type '(comment com= ment-block node-property keyword)) (call-interactively #'org-open-at-point-= global)) ((memq type '(headline inlinetask)) (org-match-line org-complex-he= ading-regexp) (let ((tags-beg (match-beginning 5)) (tags-end (match-end 5))= ) (if (and tags-beg (>=3D (point) tags-beg) (< (point) tags-end)) (org-tags= -view arg (save-excursion (let* (... ...) (buffer-substring ... ...)))) (le= t* ((val (org-offer-links-in-entry ... ... arg))) (if (consp val) (let* (..= .) (if ... ... ...))))))) ((or (eq type 'footnote-reference) (and (eq type = 'footnote-definition) (save-excursion (skip-chars-forward " \11") (let ((be= gin ...)) (if begin (< ... begin) (=3D ... ...)))))) (org-footnote-action))= ((and (eq type 'planning) (org-in-regexp org-ts-regexp-both nil t)) (org-f= ollow-timestamp-link)) ((and (eq type 'clock) value (>=3D (point) (org-elem= ent-property :begin value)) (<=3D (point) (org-element-property :end value)= )) (org-follow-timestamp-link)) ((eq type 'src-block) (org-babel-open-src-b= lock-result)) ((>=3D (point) (save-excursion (goto-char (org-element-proper= ty :end context)) (skip-chars-backward " \11") (point))) (user-error "No li= nk found")) ((eq type 'inline-src-block) (org-babel-open-src-block-result))= ((eq type 'timestamp) (org-follow-timestamp-link)) ((eq type 'link) (org-l= ink-open context arg)) ((memq type '(citation citation-reference)) (org-cit= e-follow context arg)) (t (user-error "No link found"))) (let* ((context (org-element-lineage (org-element-context) '(citation cit= ation-reference clock comment comment-block footnote-definition footnote-re= ference headline inline-src-block inlinetask keyword link node-property pla= nning src-block timestamp) t)) (type (org-element-type context)) (value (or= g-element-property :value context))) (cond ((not type) (user-error "No link= found")) ((memq type '(comment comment-block node-property keyword)) (call= -interactively #'org-open-at-point-global)) ((memq type '(headline inlineta= sk)) (org-match-line org-complex-heading-regexp) (let ((tags-beg (match-beg= inning 5)) (tags-end (match-end 5))) (if (and tags-beg (>=3D (point) tags-b= eg) (< (point) tags-end)) (org-tags-view arg (save-excursion (let* ... ...)= )) (let* ((val ...)) (if (consp val) (let* ... ...)))))) ((or (eq type 'foo= tnote-reference) (and (eq type 'footnote-definition) (save-excursion (skip-= chars-forward " \11") (let (...) (if begin ... ...))))) (org-footnote-actio= n)) ((and (eq type 'planning) (org-in-regexp org-ts-regexp-both nil t)) (or= g-follow-timestamp-link)) ((and (eq type 'clock) value (>=3D (point) (org-e= lement-property :begin value)) (<=3D (point) (org-element-property :end val= ue))) (org-follow-timestamp-link)) ((eq type 'src-block) (org-babel-open-sr= c-block-result)) ((>=3D (point) (save-excursion (goto-char (org-element-pro= perty :end context)) (skip-chars-backward " \11") (point))) (user-error "No= link found")) ((eq type 'inline-src-block) (org-babel-open-src-block-resul= t)) ((eq type 'timestamp) (org-follow-timestamp-link)) ((eq type 'link) (or= g-link-open context arg)) ((memq type '(citation citation-reference)) (org-= cite-follow context arg)) (t (user-error "No link found")))) (if (run-hook-with-args-until-success 'org-open-at-point-functions) nil (= let* ((context (org-element-lineage (org-element-context) '(citation citati= on-reference clock comment comment-block footnote-definition footnote-refer= ence headline inline-src-block inlinetask keyword link node-property planni= ng src-block timestamp) t)) (type (org-element-type context)) (value (org-e= lement-property :value context))) (cond ((not type) (user-error "No link fo= und")) ((memq type '(comment comment-block node-property keyword)) (call-in= teractively #'org-open-at-point-global)) ((memq type '(headline inlinetask)= ) (org-match-line org-complex-heading-regexp) (let ((tags-beg (match-beginn= ing 5)) (tags-end (match-end 5))) (if (and tags-beg (>=3D ... tags-beg) (< = ... tags-end)) (org-tags-view arg (save-excursion ...)) (let* (...) (if ...= ...))))) ((or (eq type 'footnote-reference) (and (eq type 'footnote-defini= tion) (save-excursion (skip-chars-forward " \11") (let ... ...)))) (org-foo= tnote-action)) ((and (eq type 'planning) (org-in-regexp org-ts-regexp-both = nil t)) (org-follow-timestamp-link)) ((and (eq type 'clock) value (>=3D (po= int) (org-element-property :begin value)) (<=3D (point) (org-element-proper= ty :end value))) (org-follow-timestamp-link)) ((eq type 'src-block) (org-ba= bel-open-src-block-result)) ((>=3D (point) (save-excursion (goto-char (org-= element-property :end context)) (skip-chars-backward " \11") (point))) (use= r-error "No link found")) ((eq type 'inline-src-block) (org-babel-open-src-= block-result)) ((eq type 'timestamp) (org-follow-timestamp-link)) ((eq type= 'link) (org-link-open context arg)) ((memq type '(citation citation-refere= nce)) (org-cite-follow context arg)) (t (user-error "No link found"))))) org-open-at-point(nil) funcall-interactively(org-open-at-point nil) call-interactively(org-open-at-point nil nil) command-execute(org-open-at-point) #+end_example --=20 Sent with https://mailfence.com =20 Secure and private email