From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp12.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id NBNEM3gPOGNplwAAbAwnHQ (envelope-from ) for ; Sat, 01 Oct 2022 11:59:20 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp12.migadu.com with LMTPS id aJ4SMngPOGNv6AAAauVa8A (envelope-from ) for ; Sat, 01 Oct 2022 11:59:20 +0200 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 2202ABEA0 for ; Sat, 1 Oct 2022 11:59:20 +0200 (CEST) Received: from localhost ([::1]:36880 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oeZHD-0001AA-9a for larch@yhetil.org; Sat, 01 Oct 2022 05:59:19 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:39292) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oeZGY-00017M-NT for emacs-orgmode@gnu.org; Sat, 01 Oct 2022 05:58:38 -0400 Received: from [2409:8a28:6039:e940:52d2:f5ff:fe16:c591] (port=51322 helo=Mac-mini.local) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oeZGS-0007iy-Ip for emacs-orgmode@gnu.org; Sat, 01 Oct 2022 05:58:38 -0400 Received: by Mac-mini.local (Postfix, from userid 501) id 6EF1C6674EE6; Sat, 1 Oct 2022 17:58:24 +0800 (CST) References: <631d472b.c80a0220.2b4b2.bf86SMTPIN_ADDED_BROKEN@mx.google.com> <87h71ew0m0.fsf@localhost> <631e92ee.050a0220.f9c18.92f5SMTPIN_ADDED_BROKEN@mx.google.com> <87y1uovp9w.fsf@localhost> <631fe1c9.050a0220.3ab2b.3f52SMTPIN_ADDED_BROKEN@mx.google.com> <87bkrhwc42.fsf@localhost> <6322b0a8.050a0220.59bb8.6923SMTPIN_ADDED_BROKEN@mx.google.com> <87y1uluir1.fsf@localhost> <6322f5ad.c80a0220.5e936.823eSMTPIN_ADDED_BROKEN@mx.google.com> <878rmesf64.fsf@localhost> <6329c8b0.050a0220.412d.0a6cSMTPIN_ADDED_BROKEN@mx.google.com> <87tu51xivh.fsf@localhost> <633454e3.050a0220.7278b.1fa5SMTPIN_ADDED_BROKEN@mx.google.com> <87y1u298yn.fsf@localhost> <63353c69.370a0220.67788.e8a1SMTPIN_ADDED_BROKEN@mx.google.com> <87o7ux4khz.fsf@localhost> <6336a955.050a0220.4e72e.2b23SMTPIN_ADDED_BROKEN@mx.google.com> <87bkqw2pzc.fsf@localhost> User-agent: mu4e 1.8.9; emacs 29.0.50 From: "Christopher M. Miles" To: Ihor Radchenko Cc: "Christopher M. Miles" , emacs-orgmode@gnu.org Subject: Re: [PATCH 2-v3] New: auto display inline images under subtree when `org-cycle'. Date: Sat, 01 Oct 2022 17:51:52 +0800 In-reply-to: <87bkqw2pzc.fsf@localhost> Message-ID: MIME-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" X-Host-Lookup-Failed: Reverse DNS lookup failed for 2409:8a28:6039:e940:52d2:f5ff:fe16:c591 (deferred) Received-SPF: softfail client-ip=2409:8a28:6039:e940:52d2:f5ff:fe16:c591; envelope-from=numbchild@gmail.com; helo=Mac-mini.local X-Spam_score_int: 25 X-Spam_score: 2.5 X-Spam_bar: ++ X-Spam_report: (2.5 / 5.0 requ) BAYES_00=-1.9, DKIM_ADSP_CUSTOM_MED=0.001, FORGED_GMAIL_RCVD=1, FREEMAIL_FROM=0.001, MSGID_MULTIPLE_AT=1, NML_ADSP_CUSTOM_MED=0.9, RDNS_NONE=0.793, SPF_HELO_NONE=0.001, SPF_SOFTFAIL=0.665, SPOOFED_FREEMAIL_NO_RDNS=0.001 autolearn=no 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: , Reply-To: numbchild@gmail.com Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1664618360; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post; bh=96vrsHGLA0m498SiaNZjNg/HYcObQ96izG6625L8818=; b=Yjb3Mhw1r1SYOiTB0ExjHk6PVlvu6bdY0fWGd+xNNpjv2DcCY3UB5xMxR8twnessHBtKp7 dyerhp4Ur2g1uvJ8ytr09yJoy6xjSXMNE+CaiDQ2u8/akc5xWAGQBOX3zmHPnKSpUgI+lK O/pN3hjO/fj8SK9wkmoHwlHL3Prx0CSZQF9rTRiM1AMCtXuM1jsp8Ht3Nyz1snp+2+Azxm 67Ti3Csck3ZvgZM7skph1UANEojg/J5DBvH7NrD8MUFCKH1ghO4pQ9ozZX4PkFVCjDQ3Kg fqv4Dv86voyhW/3fc1kZAhZi9ixeRvc0B0HpffR1gg8xln4eZhahkfRlLZw8zQ== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1664618360; a=rsa-sha256; cv=none; b=kLG147moKG8iVfhwMhhCTKJavP+0pZgHWFRR8A5LNDbNUt7QHBkMd4qTe52mzHjxNbcDYq S2G0iZmS1Q1qkTnVodZhrSslfkbKddujbaxnnr/jv724zdOeDhAxnSKI9E/lp0cAAL372Y 6KyJW76he9QLW6FJVZ7/+crVyq3slCUCdo5xGEypZ/CPus5CLiWhHSbUclz54bOXBt7YUM SzUIpROHlpVBXI1FrXh9zPckzaYegnHRIxhy+y3nswrGL50HV9lq6df5ta2Cy8IAhje8rW xm6Q6iOs/TYI6QQtPXBbVwH8W+no6HfWeCoGM2h2JIAv/Ee6yQaL6KWHtp1Cyg== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=none; dmarc=fail reason="SPF not aligned (relaxed), No valid DKIM" header.from=gmail.com (policy=none); 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" X-Migadu-Spam-Score: 1.26 Authentication-Results: aspmx1.migadu.com; dkim=none; dmarc=fail reason="SPF not aligned (relaxed), No valid DKIM" header.from=gmail.com (policy=none); 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" X-Migadu-Queue-Id: 2202ABEA0 X-Spam-Score: 1.26 X-Migadu-Scanner: scn0.migadu.com X-TUID: l2FB2zlsgbQ0 --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain I attached the new patch. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-org.el-Support-auto-display-inline-images-when-cycli.patch Content-Transfer-Encoding: quoted-printable From=2067a00b91f53412435a5fd29406cf583a85f2de6d Mon Sep 17 00:00:00 2001 From: stardiviner Date: Wed, 28 Sep 2022 20:46:52 +0800 Subject: [PATCH] org.el: Support auto display inline images when cycling * lisp/org.el (org-toggle-inline-images): Support region. (org-display-inline-images): Fix refresh argument logic. (org-remove-inline-images): Support region. * lisp/org-keys.el (org-toggle-inline-images): Update arguments. * lisp/org-cycle.el (org-cycle-inline-images-display): Add new option to control whether auto display inline images when cycling. (org-cycle-display-inline-images): Add new hook function to auto display inline images when cycling. (org-cycle-hook): Add `org-cycle-display-inline-images' into cycling hook by default. * testing/lisp/test-org-fold.el (test-org-fold/org-fold-display-inline-imag= es): Add test for inline image displaying when cycling. =2D-- etc/ORG-NEWS | 4 ++ lisp/org-cycle.el | 38 +++++++++++++- lisp/org-keys.el | 2 +- lisp/org.el | 21 +++++--- .../images/Org mode logo mono-color.png | Bin 0 -> 7523 bytes testing/lisp/test-org-fold.el | 49 ++++++++++++++++++ 6 files changed, 103 insertions(+), 11 deletions(-) create mode 100755 testing/examples/images/Org mode logo mono-color.png diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index cab64317f..ec2764b3b 100644 =2D-- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -307,6 +307,10 @@ to pass the contents of a named code block as a string= argument. The new property =3DORG-IMAGE-ACTUAL-WIDTH=3D can override the global variable ~org-image-actual-width~ value for inline images display width. =20 +*** New ~org-cycle-hook~ function ~org-cycle-display-inline-images~ for au= to displaying subtree inline images + +This behavior is toggled by custom option ~org-cycle-inline-images-display= ~. + *** New ~org-babel-tangle-finished-hook~ hook run at the very end of ~org-= babel-tangle~ =20 This provides a proper counterpart to ~org-babel-pre-tangle-hook~, as diff --git a/lisp/org-cycle.el b/lisp/org-cycle.el index 656ca83f2..212d25a44 100644 =2D-- a/lisp/org-cycle.el +++ b/lisp/org-cycle.el @@ -208,8 +208,9 @@ the values `folded', `children', or `subtree'." :type 'hook) =20 (defcustom org-cycle-hook '(org-cycle-hide-archived-subtrees =2D org-cycle-show-empty-lines =2D org-cycle-optimize-window-after-visibility-change) + org-cycle-show-empty-lines + org-cycle-optimize-window-after-visibility-cha= nge + org-cycle-display-inline-images) "Hook that is run after `org-cycle' has changed the buffer visibility. The function(s) in this hook must accept a single argument which indicates the new state that was set by the most recent `org-cycle' command. The @@ -229,6 +230,13 @@ normal outline commands like `show-all', but not with = the cycling commands." :group 'org-cycle :type 'boolean) =20 +(defcustom org-cycle-inline-images-display nil + "Non-nil means auto display inline images under subtree when cycling." + :group 'org-startup + :group 'org-cycle + :package-version '(Org . "9.6") + :type 'boolean) + (defvar org-cycle-tab-first-hook nil "Hook for functions to attach themselves to TAB. See `org-ctrl-c-ctrl-c-hook' for more information. @@ -776,6 +784,32 @@ STATE should be one of the symbols listed in the docst= ring of "Subtree is archived and stays closed. Use \ `\\[org-cycle-force-archived]' to cycle it anyway.")))))) =20 +(defun org-cycle-display-inline-images (state) + "Auto display inline images under subtree when cycling. +It works when `org-cycle-inline-images-display' is non-nil." + (when org-cycle-inline-images-display + (pcase state + ('children + (org-with-wide-buffer + (org-narrow-to-subtree) + ;; If has nested headlines, beg,end only from parent headline + ;; to first child headline which reference to upper + ;; let-binding `org-next-visible-heading'. + (org-display-inline-images + nil nil + (point-min) (progn (org-next-visible-heading 1) (point))))) + ('subtree + (org-with-wide-buffer + (org-narrow-to-subtree) + ;; If has nested headlines, also inline display images under all s= ub-headlines. + (org-display-inline-images nil nil (point-min) (point-max)))) + ('folded + (org-with-wide-buffer + (org-narrow-to-subtree) + (if (numberp (point-max)) + (org-remove-inline-images (point-min) (point-max)) + (ignore))))))) + (provide 'org-cycle) =20 ;;; org-cycle.el ends here diff --git a/lisp/org-keys.el b/lisp/org-keys.el index d65379a72..79e34cbd1 100644 =2D-- a/lisp/org-keys.el +++ b/lisp/org-keys.el @@ -204,7 +204,7 @@ (declare-function org-toggle-radio-button "org" (&optional arg)) (declare-function org-toggle-comment "org" ()) (declare-function org-toggle-fixed-width "org" ()) =2D(declare-function org-toggle-inline-images "org" (&optional include-link= ed)) +(declare-function org-toggle-inline-images "org" (&optional include-linked= beg end)) (declare-function org-latex-preview "org" (&optional arg)) (declare-function org-toggle-narrow-to-subtree "org" ()) (declare-function org-toggle-ordered-property "org" ()) diff --git a/lisp/org.el b/lisp/org.el index 036384a04..36db62f0c 100644 =2D-- a/lisp/org.el +++ b/lisp/org.el @@ -16071,16 +16071,16 @@ SNIPPETS-P indicates if this is run to create sni= ppet images for HTML." =20 (defvar-local org-inline-image-overlays nil) =20 =2D(defun org-toggle-inline-images (&optional include-linked) +(defun org-toggle-inline-images (&optional include-linked beg end) "Toggle the display of inline images. INCLUDE-LINKED is passed to `org-display-inline-images'." (interactive "P") (if org-inline-image-overlays (progn =2D (org-remove-inline-images) + (org-remove-inline-images beg end) (when (called-interactively-p 'interactive) (message "Inline image display turned off"))) =2D (org-display-inline-images include-linked) + (org-display-inline-images include-linked nil beg end) (when (called-interactively-p 'interactive) (message (if org-inline-image-overlays (format "%d images displayed inline" @@ -16170,8 +16170,8 @@ BEG and END define the considered part. They defau= lt to the buffer boundaries with possible narrowing." (interactive "P") (when (display-graphic-p) =2D (unless refresh =2D (org-remove-inline-images) + (when refresh + (org-remove-inline-images beg end) (when (fboundp 'clear-image-cache) (clear-image-cache))) (let ((end (or end (point-max)))) (org-with-point-at (or beg (point-min)) @@ -16322,11 +16322,16 @@ buffer boundaries with possible narrowing." (delete ov org-inline-image-overlays) (delete-overlay ov)))) =20 =2D(defun org-remove-inline-images () +(defun org-remove-inline-images (&optional beg end) "Remove inline display of images." (interactive) =2D (mapc #'delete-overlay org-inline-image-overlays) =2D (setq org-inline-image-overlays nil)) + (let* ((beg (or beg (point-min))) + (end (or end (point-max))) + (overlays (overlays-in beg end))) + (dolist (ov overlays) + (when (memq ov org-inline-image-overlays) + (setq org-inline-image-overlays (delq ov org-inline-image-overlays= )) + (delete-overlay ov))))) =20 (defvar org-self-insert-command-undo-counter 0) (defvar org-speed-command nil) diff --git a/testing/examples/images/Org mode logo mono-color.png b/testing= /examples/images/Org mode logo mono-color.png new file mode 100755 index 0000000000000000000000000000000000000000..9ac57e6a205257fd2fd21944a02= 5190aa2f2db49 GIT binary patch literal 7523 zcmV-p9h~BcP)O!?BnSQlOp6yU#&MjHpxYv{0PriN-m`O$=3D)$Ch3m2l4LiGL?5qY18Tn{9G z{XjIg^DjWqN6`x4&wx1auS%)+3`68}{)MR14P6HOSKuPxUzAdhib&k!@sLO)XlQ82 zfqwz+^oxNn0M`M}0Y6Ym9ZCJNp`l^ugPz>uJHK^0kkaiJnVtS$fL7ohrPNa*;))0& z!l6Tla(@2#F5cy2Cv6e%IpFg^2-pfd0Cc37qot*Vcszc}cjdr8KmBxo`66NE>eAPy*xX7Mpefl@9H{;`dN-Q5|jAy81j>d)Rb{8b7pzZVsYvt!%V z>0rps0&W4m1YBXTiUGd>{th^hvh+v0aOqOk#Qt|zUrN5$J_$H;L&d-xV4l%uRY0*4 z0?LC0B!K~-%jmae^XgEd21G2rd~r33YH(c=3D2>KN(TB7MMLjmvVt)z#9slR3gtty#Dv{5-~SvS$G_WLEFn;?|75TZ~g=3DY zRaHZh7I+Z2!Tj6^d=3DNNtCY?V@a^NOC4ED6K>zBXG$YnEBVAgOKa24Pk@$uJ;LH7jU z1Ofq~(P+lHJ!?CE+xiv6lkPC+in+iifzJZVC*hiwVWb-cZWN`C=3DEbAWDv^Ix$WDQ< zN8o|A%lKtwWy*e-3v36j9q~PR=3D5<;1O@xkz%F0grcZ(J+LMb&e(-uO9 zVDB+p?GYtI3Pv9fA zazA7z<2x+nZn>)Az|&176<-$k)EJ)+Dv^s9bhSUf`sX{idfjrpJCaF$zUmsRVGS8X zhg0tX<{Qy`N?lA!r#Cb-q;|Rw_@IbvGCO{>lxYR-H^G|j6tj#Klb<%=3D-@k4-D8VTB zVnn_IeA&1vStl8`nsF?Pn8)iK^!hgp_=3D9Vki_2dVt$M7nEXhzTa?|@-55Hh3x5*W2 z5Ww|#_{^>s`1#6f0LqQU{kaj(t^>ffw0%}vTZ?Vmqo46Q1Nz5|gc(Um;5Wc`MWk+o z)juh_eZs&`?RceuztlXK8?zrjP>2F0Ld5H*Cm5nDRLF^7KK=3De6QI8MDvVuzFn$sF% z-N!!aOD0yjVjVC$`gLHhrQD-CR;*84wfCiOigIt4lY#37c;TT3N2gaUV2y~}3H)c{ z(vGG>z5hHtIeCeBXo}v%bsY9xq*a1+*5H(V1VwfG>b!*+w9# zv~JXP9j{`QT)vn@|Ql@imUlv-*0 z^jpS}fKj9K|9)h!CKwD(xKTIZJO2k)t-w{_RW3>7GlqMsvc1zIUOz{R$~aO|K~FHB zgl(Isu+lG;?ze&My7-fclirQnUT9Sp)yR^(#@zC1Tqm$;2H-)E8%Sx5sS{ z%_Zd=3DDw|DDFdrp?D21ieS&P4b$JXFYm%6S|sD8UsAK~0b>fxJYFvT&c#WP;a85=3D_J>h(`$|Vk9gN9R#W*MRRRrJfKGClm@XI5;?IR{Vs6|2NlOh0k&LAHRQa2P8`2aUJsFF$!W4JZ_SHe;z$~ z`NRgobk*0Bj7CN$W>UeLZAz&JMWj6y;Bj4-#>Pgbn$iOQo{wKgOgSuXYot4`;1gaa z`D207tN||;f1Fj#fvR~VEPF~)kttQ61T3YnT?bbzT%c$FKEg+jjs#x;zX!f8BF|^j zeanQ-*tGG5jkmD6aUcF@=3DogS2dl z-20%%b-tKQ;3HliFDn;T znu5ZRbKdzrkB8asU(01J4cN-P&Eq=3DXkSrE|2+&YgMMK%_tnGNEz~}WatEh-@B$5i+ zq_Z**kkagZ@Ak#l7OD^;h$kpZp}Qt7tlQj6@=3DlHUpq5lKvE(KRD|3*e$NBs9m#$ zBXxD>2lzj^VLd&LqP?)xnicN*maW|Dv#N^}bmbLtu%a4QBrD*%uFIn8YQDB{BXcV% zSaZoG)KpZ^e5`|Rqp#Csf&j1#_?YXeR#5v8Ie)<4Fslfk>rfO8f6#WF?})yktQsOm zi)YbVSe8{I@74_;V%>`6pcIyEvvAHF)?9K4(Rhre_G2WI$xNg`0k9b4QDC5Y<>efG z^UY}m{wb-=3D?dwL* z+QyB1ZR4kyTTy}Ix|zfjm!V77@YvpIxARW{KjtVC#Bi?@U34%70Tm(c@nrFOP?Dcd zMM=3Dq+R-o7G<%V_Z`0kx|@S!WNz_u*h^t=3Dxno%NfRe(Fi!-@E$a)c@wAYs-RDwJn_HNYx>t2b?$#$sOpQ~=3D!s7??8fl_HRg zXYqnU|6qiH!NK%`0YIV0rf>f~23uN2He8HF9$-Vj6PUg`|Ngbh4EnMfxMr#smLH3r zb$&i`?1kQe0gk5A1R;WxOtNkJcHVsD75d+KhyM58!yWFe8;h=3DqB%`whVg07Nr{T^Q za7ch|3M`uHg%w4^cwC2Uz%M{F9%t7d4-Nr*I_mA~WAC0lh-IOiBm)hH>3jFx(=3DotO z(S{$&b-Cs*{&M<&|G>J-0l~&Q5BTVGSXeJ$sj-wf1^eZLD zJstwV;4q^o#bC=3D(V#hnjV;md!DzHo}!HLINzj^cY2=3DZJ%cUEfAH=3D>96Os!)gg2#2~ z4TR_l6=3DY>GB0_IC%xeeUX4k=3DkG`6)f5E(?dE?(P%&*K>a*6;Vz-`~$Gue>re7WnK0AYYjZ@7W?UU*@O!Jk)|k^=3Dvo;U4g*#a}mn&{|lQwO|iGZ#Yb2 zYdgCR9%RQ`yZOVLyLf5eKK3^>(B9QWBo@OGVfkg3QCLvGi4!LXg+dfnS0m-+h;`a5 z`66^J#EZaSVsMaot5;J{R!Zj-lynK0#tU6|_}Z zX?IR3EXyL`^HE$-z?@mLm|s;zf!~Lv;P<FYY9FE2`QuzU`?suxci3pthVPq}v<+s3jil8%$9 zdTIuq2YwB_0G#A%y!GqH=3Dx=3DG6T(N)S+$xl|`9Fh+Lr5qfW@BW}0*<4LKB-!IF}15#)4FH3Hb5r> z{EyaFqyiCNK~Ha-)CbpGQbAK`C5SM)zx(tLO?2(NvMkyQOSnMEMmKnDK-U5+20BF1 zhCt1#Rn)GYoO*!N#G7J}Ntdlkgx-K2YS2OB~44s5)GSG2qU@BE2ekS|DV{E<(vQVkxiV*YYAC}b#GC+O~*w<~K*)1x}A#F*39Wri!vsJW3Bp_@5>C-5y` z>Ckghl8POC0zD++8Q|Z5`@|wI9j_ym#w(v}D_?V(I>o|2TvkOW9%V^qi(!DV7j3&P zOFNo59x9~YpEqG`TIUfH{7>NXf;^6H9baNRv}K$;(#0{aw81YS3llU%DS{)ibz)q< z{gt)YuFImXws9FiiBJ?BM`KdN1nSZ{KFJ#4Ze)duBVoLwvULI^ zESr5*^LcabA_n|H!vJbb@qfv&X37Tpvl{k2Pv{-s4S*e69!eYhWVWJXMbR+%vB)W+ zUChpID6Qh9`IpjITB&>UMlpdBArz0YqP2lwJT|j5|C#AI6DUg42GbPIPIyf4Clgfl zpEzwGs3(|Dea%I@QhO=3DQ#pNVyFJcBF=3D&oI%VxWg*?M-+xtEL_DI+KNpg0=3DFv240R zg_#}^_$%}%HJ@>F^DY4JcLDzgh^Cty8aYlZnvI8`L@167P}O&W#?s2uM(ji>T(LNw zU&QfHAwDNbK`cU1Bs`=3D($_IMrFu#}dAJRSOvE_d-uF_ic5oGg$G86OgruYy&m?>rq zszIREY?$dp&j3AS5CKhr-v;z%YX{h_%fjw<+6qgF+nzImHZ*n1_Rtk7)IckRZH6SM z^jo@40ADx2gFb8SP2f!t8>JjSx?J5q;@K$UHz!9h!9o*(yM-xeY8itDfM>NLPv2v=3D zM(q5SY^_v@Fl(TXxjn}-(ln_NDVE8ixgx}E4@oO+XXQb}dOG!OT0AOT+k;X`46r@u zLC!7a)oOn30{YBn-d4J=3D;p6BTxlJ&ow&y#*9)RAKqZ#acz2shm1HhGMXTxW1Dp<

#{quj_+|17J-kb7}c7l2dWFflO;bXv` zkkyXnAuIm`DE2(|SO(x*k~*&8HS}1~j3{n<@jA(j!PB}w%tf6o?4Gl5vVHbOBksF2 z;AdYgb8pRX^UeCrn^WUQ51H3b&|%k`(IaTfGxR`q8x@>qY>zVZ?4#2a{kNkhfq-Nd zq_r31`I(g$!05GG$)H6`0SC*g@i|F?iFoFRatjniBlHFG=3DnI4<%hiaWYZISTN)a3A zr*+Ss3Hjn9b#)x6uVc=3DN<*5T49H2v4yeNu#biaNr>4(mDp~tLm2mTQ~mHTn@VG=3DFo zUQ)@Cgt1+|>7bqxgx7xh6Wl~1GpT86_(JHCq77-Yst7w4ETbSc$jX*OX9b=3DpMQ<>~ z%kwX#Z*meg{{-A=3D9@eDS$c-AyUTCDio#>vubc~aJ;2`ie@a~9z8;z^cy6-Kd5Z zpkL63Ebcsu**_l82dNvDd;<6@#vdU%w%+%6*k4skVRVpCJesloRwB&pJ-mtgVr#$IH>8S?9_G4sZm(ADpr=3D16mhvdC+(V zCJnFDao|zJepD%^NOT+bBJ)~+{&}_uAo)!6^&s$2Q?j|O)>AXF;9IWXS_*+WrOSct zI5YT)P&_(3l@j6LtT_N&*4~8INoK?V$|Qa+Z#hiTvS}|UJr@Je!6a{<`~LT)Mf^3D zW?jE&vyP6aBp|&ey1H)^E~x{bye1NP0*Fr(@TbH`?q8Q`(`E(m+cW8YQHqArD(dDf z85QzT%sbJ^vi2tOW08z)08xs5e~`MGC3NN&pDhE#Oa$(ksXQJvUHZVL&4?SrwZ^Ze z3ndhNK8u&r$km@!fb9Nt%gq@{d>wtJ+i5}S&MV->MazkeiqR{eBr?FI?MIm1-;M3M z88LwXc7#EK&pJ;4H6i^}K=3Dw?C$QD z_j3Qb<+wU*xEv*fI+PCfQxpyB-9L_xuV+0e9Lu6RSU`7P0q?mkJ|{_DB1SMC zBbbciPbTm<4wh0V0aq;IwuiXKL)7cb^!_d~QOmX*)M*%eqm4fUaRtafF?{IoDaP5` zmGjs$dw%BGJ+llGo;FM}>^GzsEG1O`d#K0e+YdXImtmMhju35Kh=3DDUiqMc1f5?db z`musD1+fU#y_r?!WQjHaL2t;LLpu}j0X9BUhew33yu24+Kk&t|7(kR_{)uC{<92%8 z;~EpR8l7&ec53&#B6Ji?t1&7ebaTdUf!K6D_h#CHpHczK%8DrR+JL0G zLc7qDr9*{0_wNbNX4d1@@(|q{g?#`dBx%Ri~8V@{oBA6c@@CPfh zck=3Dcb$%n3ee+-DvfB#yVUVkkI{<+fb{cm&C;#$hX{mkv@RDoootvuZGyQb2r-=3DM2k ztI%`irkZNdHT4Hj?u-=3DulP>kHy8CVd@i=3DkMP;9-L;o9}fr&#j-23@Hfor$GhS$pv7 zH{ES&1BbMKC3=3DA17l13KhzWYpDc_d?W*P%zZ3@?sdfn7GZ_OH_Dv4LDFi@}HQPKVF z)kY;`lLF}31kWio^Gdz!Y+vw5T^+6UZ%}jPl|+3OUY9VsYvnO?Pu)B+Yi&MP@&msT zk?2g*`%~`eTz%Ij6behMRP9c!am8*&cdtw~^`Yn8zv3j~y!`OPxt*Uqbx=3D=3DpeLc0S zSEqswy(01=3D@D#eOdJ#G?GnqSo5Ad2Vcm<8G{U!%~_L-oLrusT+u3TjdL+Mhk^E(mi z1$0<;5$Scco(**ZkGamV8RhcX(``Y`DM@hUmHMzEkrv~U?MC;v&zl5w6$Abs5X*r- zEhIrbM~pf^H(kDKjKVhb+?$Dx7XAV_F_XZzruzbSY~5n!MG5Fm)%(#?uePH{m`nr} zqZ2+kS8sYsfjVkeUzuWpE@KexX1JgIT*!mY@*T*D{b|nxt3gkt`lGQ227${s`w60g zZtASdfj{k;ppJQ0t^x!R!cHRoyk*;U=3D#Jv~XZf|S0xy;?T|(R5y*ZsfooVN`ZS35p zWAV1`;d>sPr1>^_gleXg4=3D_(ll^poz1C2_?97i8S^jY*-GntTIDd;+QFbDqm#sDLj zK%q;tZvp-BR>h#C3*_ zZwo8ey%+crI&FM9N@}r@+xh1=3D18m77zWt#5K6hJGZuCmJK)_hKHAL;BWotyL{?2WN;o`4*c_sUipWIhmOkH^4yjufFF+dbp%~jo&*1awgG_6AKnZ)E12rk=3DtUQD z=3DD@$8RlwFQX514Uz(1I`Q>SO;z`x*cdN`8vwDJEN74)kd_!mCCI6Sqw6`cdvE8vJF zIq+u&sg#w!2c6DExo!^pnL&bb1>kk#{;_ig1$ba)MKe!@-% `'children' display child inline images. + (org-test-with-temp-text + (format "* Heading 1 +[[file:%s]]" org-logo-image) + (org-overview) + (org-cycle) + (org-next-link) + (should (overlays-at (point))) + (org-toggle-inline-images) + (should-not (overlays-at (point)))) +=20=20=20=20 + ;; `org-cycle' -(state)-> `'subtree' display subtrees inline images. + (org-test-with-temp-text + (format "* Heading 1 +[[file:%s]] +** Subheading 1 +[[file:%s]] +** Subheading 2 +[[file:%s]]" org-logo-image org-logo-image org-logo-image) + (org-overview) + (org-cycle) + (org-cycle) + (org-next-link) + (org-next-link) + (should (overlays-at (point))) + (org-toggle-inline-images) + (should-not (overlays-at (point)))) +=20=20=20=20 + ;; `org-cycle' -(state)-> `'folded' remove inline image overlays. + ;; (org-test-with-temp-text + ;; (format "* Heading 1 + ;; [[file:%s]] + ;; ** Subheading 1 + ;; [[file:%s]] + ;; ** Subheading 2 + ;; [[file:%s]]" org-logo-image org-logo-image org-logo-image) + ;; (org-overview) + ;; (org-cycle) + ;; (org-cycle) + ;; (org-cycle) + ;; ;; TODO: how to detect inline image overlays are deleted afte= r folded? + ;; ) + )) + (provide 'test-org-fold) =20 ;;; test-org-fold.el ends here =2D-=20 2.37.2 --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Ihor Radchenko writes: > "Christopher M. Miles" writes: > >> I attached new version patch. > > Thanks! > >> +(defcustom org-cycle-inline-images-display nil >> + "Non-nil means auto display inline images under subtree when cycling." >> + :group 'org-startup >> + :group 'org-cycle >> + :type 'boolean) > > Please add :package-version tag as well. > Done >> + ('folded >> + (save-excursion >> + (save-restriction >> + (org-narrow-to-subtree) >> + ;; FIXME: sometimes `point-max' is EOF. > > Do you still need this FIXME? > Also, you can use `org-with-wide-buffer' instead of > save-excursion/restriction. > Done >> +;;; TODO: reference `test-org-fold/org-fold-reveal-broken-structure' >> +(ert-deftest test-org-fold/org-fold-display-inline-images () >> + "Test inline images displaying when cycling." >> + (let ((org-fold-core-style 'text-properties) > > Why do you need to set `org-fold-core-style' explicitly here? > Removed, Done >> + (org-cycle-inline-images-display t)) >> + ;; `org-cycle' -(state)-> `'children' display child inline images. >> + (org-test-with-temp-text >> + "* Heading 1 >> +[[file:image.png]]" > > This will not work in real tests. image.png will not exist. > You will need to provide a reference image in testing/examples > Added image file and link now. >> + ;; `org-cycle' -(state)-> `'folded' remove inline image overlays. >> + (org-test-with-temp-text >> + "* Heading 1 >> +[[file:image.png]] >> +** Subheading 1 >> +[[file:image2.png]] >> +** Subheading 2 >> +[[file:image3.png]]" >> + (org-overview) >> + (org-cycle) >> + (org-cycle) >> + (org-cycle) >> + ;; TODO: how to detect inline image overlays are deleted after fol= ded? >> + (should (overlays-at (point))) >> + (org-toggle-inline-images) >> + (should-not (overlays-at (point)))))) > > This latest test will not work. The point is at BOB. I commented out the third test if someone can do this. I don't now how to t= est in fold state. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Because I got error when running command "make test". I checked org-mode source code repo, the ob-vala.el is removed, don't know where it is introduced. #+begin_example ~/Code/Emacs/org-mode:subtree-display-inline-images =CE=BB make test=20 /Applications/Xcode.app/Contents/Developer/usr/bin/make -C doc clean; /App= lications/Xcode.app/Contents/Developer/usr/bin/make -C lisp clean; rm -f *.pdf *.html *.info *_letter.tex org-version.inc org-version.tex \ *.aux *.cp *.cps *.dvi *.fn *.fns *.ky *.kys *.pg *.pgs *.toc \ *.tp *.tps *.vr *.vrs *.log *.ps rm -f org-version.el org-loaddefs.el org-version.elc org-loaddefs.elc org-i= nstall.elc rm -f *.elc /Applications/Xcode.app/Contents/Developer/usr/bin/make -C lisp compile rm -f org-version.el org-loaddefs.el org-version.elc org-loaddefs.elc org-i= nstall.elc org-version: 9.6-pre (release_9.5.5-845-g67a00b) Loading /Users/stardiviner/Code/Emacs/org-mode/lisp/org-compat.el (source).= .. Loading /Users/stardiviner/Code/Emacs/org-mode/mk/org-fixup.el (source)... org-loaddefs: 9.6-pre (release_9.5.5-845-g67a00b) Loading /Users/stardiviner/Code/Emacs/org-mode/lisp/org-compat.el (source).= .. Loading /Users/stardiviner/Code/Emacs/org-mode/mk/org-fixup.el (source)... /Applications/Xcode.app/Contents/Developer/usr/bin/make compile-dirall =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D dirall =3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Checking /Users/stardiviner/Code/Emacs/org-mode/lisp... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-C.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-R.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-awk.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-calc.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-clojure.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-comint.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-core.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-css.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-ditaa.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-dot.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-emacs-lisp.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-eshell.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-eval.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-exp.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-forth.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-fortran.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-gnuplot.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-groovy.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-haskell.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-java.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-js.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-julia.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-latex.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-lilypond.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-lisp.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-lob.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-lua.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-makefile.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-matlab.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-maxima.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-ocaml.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-octave.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-org.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-perl.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-plantuml.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-processing.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-python.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-ref.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-ruby.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-sass.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-scheme.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-screen.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-sed.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-shell.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-sql.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-sqlite.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-table.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob-tangle.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ob.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/oc-basic.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/oc-biblatex.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/oc-bibtex.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/oc-csl.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/oc-natbib.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/oc.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-bbdb.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-bibtex.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-docview.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-doi.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-eshell.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-eww.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-gnus.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-info.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-irc.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-man.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-mhe.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-rmail.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol-w3m.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ol.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-agenda.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-archive.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-attach-git.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-attach.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-capture.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-clock.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-colview.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-compat.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-crypt.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-ctags.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-cycle.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-datetree.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-duration.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-element.el... In org-element--cache-active-p: org-element.el:5682:11: Warning: defsubst `org-element--cache-active-p' was= used before it was defined Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-entities.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-faces.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-feed.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-fold-core.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-fold.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-footnote.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-goto.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-habit.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-id.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-indent.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-inlinetask.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-keys.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-lint.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-list.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-loaddefs.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-macro.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-macs.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-mobile.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-mouse.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-num.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-pcomplete.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-persist.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-plot.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-protocol.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-refile.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-src.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-table.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-tempo.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-timer.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org-version.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/org.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-ascii.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-beamer.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-html.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-icalendar.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-koma-letter.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-latex.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-man.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-md.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-odt.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-org.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-publish.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox-texinfo.el... Compiling /Users/stardiviner/Code/Emacs/org-mode/lisp/ox.el... Done (Total of 125 files compiled, 2 skipped) install -m 755 -d /var/folders/ym/f3v5_yk1279g5ls70x3hzblh0000gn/T//tmp-org= test TMPDIR=3D/var/folders/ym/f3v5_yk1279g5ls70x3hzblh0000gn/T//tmp-orgtest emac= s -Q -batch --eval '(setq vc-handled-backends nil org-startup-folded nil)'= --eval '(add-to-list '"'"'load-path (concat default-directory "lisp"))' -= -eval '(add-to-list '"'"'load-path (concat default-directory "testing"))' = -l org-batch-test-init --eval '(setq org-batch-test t org-babel-load-langua= ges (quote ( (awk . t) (C . t) (fortran . t) (maxima . t) (lilypond . t= ) (octave . t) (perl . t) (python . t) (vala . t) (emacs-lisp . t) (s= hell . t) (org . t))) org-test-select-re "\\(org\\|ob\\)" )' -l org-loadde= fs.el -l cl -l testing/org-test.el -l ert -l org -l ox --eval '(org-test-r= un-batch-tests org-test-select-re)' Package cl is deprecated Error: file-missing ("Cannot open load file" "No such file or directory" "o= b-vala") mapbacktrace(#f(compiled-function (evald func args flags) #)) debug-early-backtrace() debug-early(error (file-missing "Cannot open load file" "No such file or = directory" "ob-vala")) require(ob-vala) org-babel-do-load-languages(org-babel-load-languages ((awk . t) (C . t) (= fortran . t) (maxima . t) (lilypond . t) (octave . t) (perl . t) (python . = t) (vala . t) (emacs-lisp . t) (shell . t) (org . t))) custom-initialize-reset(org-babel-load-languages (funcall #'#f(compiled-f= unction () #))) custom-declare-variable(org-babel-load-languages (funcall #'#f(compiled-f= unction () #)) "Languages which can be evaluated = in Org buffers.\n\\\nThis list can be used to load support fo= r any of the available\nlanguages with babel support (see info node `(org) = Languages'). Each\nlanguage will depend on a different set of system execu= tables and/or\nEmacs modes.\n\nWhen a language is \"loaded\", code blocks i= n that language can\nbe evaluated with `org-babel-execute-src-block', which= is bound\nby default to \\[org-ctrl-c-ctrl-c].\n\nThe `org-babel-no-eval-o= n-ctrl-c-ctrl-c' option can be set to\nremove code block evaluation from \\= [org-ctrl-c-ctrl-c]. By\ndefault, only Emacs Lisp is loaded, since it has = no specific\nrequirement." :group org-babel :set org-babel-do-load-language= s :version "24.1" :type (alist :tag "Babel Languages" :key-type (choice (co= nst :tag "Awk" awk) (const :tag "C" C) (const :tag "R" R) (const :tag "Calc= " calc) (const :tag "Clojure" clojure) (const :tag "CSS" css) (const :tag "= Ditaa" ditaa) (const :tag "Dot" dot) (const :tag "Emacs Lisp" emacs-lisp) (= const :tag "Forth" forth) (const :tag "Fortran" fortran) (const :tag "Gnupl= ot" gnuplot) (const :tag "Haskell" haskell) (const :tag "Java" java) (const= :tag "Javascript" js) (const :tag "LaTeX" latex) (const :tag "Lilypond" li= lypond) (const :tag "Lisp" lisp) (const :tag "Makefile" makefile) (const :t= ag "Maxima" maxima) (const :tag "Matlab" matlab) (const :tag "Ocaml" ocaml)= (const :tag "Octave" octave) (const :tag "Org" org) (const :tag "Perl" per= l) (const :tag "Pico Lisp" picolisp) (const :tag "PlantUML" plantuml) (cons= t :tag "Python" python) (const :tag "Ruby" ruby) (const :tag "Sass" sass) (= const :tag "Scala" scala) (const :tag "Scheme" scheme) (const :tag "Screen"= screen) (const :tag "Shell Script" shell) (const :tag "Sql" sql) (const :t= ag "Sqlite" sqlite) (const :tag "Stan" stan)) :value-type (boolean :tag "Ac= tivate" :value t))) byte-code("\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\13= \210\300\316\302\303\317DD\320\314\321\312\313\306\322&\11\210\323\324\325\= "\210\323\326\325\"\207" [custom-declare-variable org-babel-load-languages = funcall function #f(compiled-function () #) "Lang= uages which can be evaluated in Org buffers.\n\\\nThis list c= an be used to load support for any of the available\nlanguages with babel s= upport (see info node `(org) Languages'). Each\nlanguage will depend on a = different set of system executables and/or\nEmacs modes.\n\nWhen a language= is \"loaded\", code blocks in that language can\nbe evaluated with `org-ba= bel-execute-src-block', which is bound\nby default to \\[org-ctrl-c-ctrl-c]= .\n\nThe `org-babel-no-eval-on-ctrl-c-ctrl-c' option can be set to\nremove = code block evaluation from \\[org-ctrl-c-ctrl-c]. By\ndefault, only Emacs = Lisp is loaded, since it has no specific\nrequirement." :group org-babel :s= et org-babel-do-load-languages :version "24.1" :type (alist :tag "Babel Lan= guages" :key-type (choice (const :tag "Awk" awk) (const :tag "C" C) (const = :tag "R" R) (const :tag "Calc" calc) (const :tag "Clojure" clojure) (const = :tag "CSS" css) (const :tag "Ditaa" ditaa) (const :tag "Dot" dot) (const :t= ag "Emacs Lisp" emacs-lisp) (const :tag "Forth" forth) (const :tag "Fortran= " fortran) (const :tag "Gnuplot" gnuplot) (const :tag "Haskell" haskell) (c= onst :tag "Java" java) (const :tag "Javascript" js) (const :tag "LaTeX" lat= ex) (const :tag "Lilypond" lilypond) (const :tag "Lisp" lisp) (const :tag "= Makefile" makefile) (const :tag "Maxima" maxima) (const :tag "Matlab" matla= b) (const :tag "Ocaml" ocaml) (const :tag "Octave" octave) (const :tag "Org= " org) (const :tag "Perl" perl) (const :tag "Pico Lisp" picolisp) (const :t= ag "PlantUML" plantuml) (const :tag "Python" python) (const :tag "Ruby" rub= y) (const :tag "Sass" sass) (const :tag "Scala" scala) (const :tag "Scheme"= scheme) (const :tag "Screen" screen) (const :tag "Shell Script" shell) (co= nst :tag "Sql" sql) (const :tag "Sqlite" sqlite) (const :tag "Stan" stan)) = :value-type (boolean :tag "Activate" :value t)) org-clone-delete-id #f(comp= iled-function () #) "Remove ID property of clones= of a subtree.\nWhen non-nil, clones of a subtree don't inherit the ID prop= erty.\nOtherwise they inherit the ID property with a new unique\nidentifier= ." boolean org-id autoload org-release "org-version.el" org-git-version] 12) require(org) eval-buffer(# nil "/Users/stardiviner/Code/Emacs/org-mode= /testing/org-test.el" nil t) load-with-code-conversion("/Users/stardiviner/Code/Emacs/org-mode/testing= /org-test.el" "/Users/stardiviner/Code/Emacs/org-mode/testing/org-test.el" = nil t) load("/Users/stardiviner/Code/Emacs/org-mode/testing/org-test.el" nil t) command-line-1(("--eval" "(setq vc-handled-backends nil org-startup-folde= d nil)" "--eval" "(add-to-list 'load-path (concat default-directory \"lisp\= "))" "--eval" "(add-to-list 'load-path (concat default-directory \"testing\= "))" "-l" "org-batch-test-init" "--eval" "(setq org-batch-test t org-babel-= load-languages (quote ( (awk . t) (C . t) (fortran . t) (maxima . t) (l= ilypond . t) (octave . t) (perl . t) (python . t) (vala . t) (emacs-li= sp . t) (shell . t) (org . t))) org-test-select-re \"\\\\(org\\\\|ob\\\\)= \" )" "-l" "org-loaddefs.el" "-l" "cl" "-l" "testing/org-test.el" "-l" "ert= " "-l" "org" "-l" "ox" "--eval" "(org-test-run-batch-tests org-test-select-= re)")) command-line() normal-top-level() Cannot open load file: No such file or directory, ob-vala make: *** [test] Error 255 ~/Code/Emacs/org-mode:subtree-display-inline-images =CE=BB=20 #+end_example =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D So I use another method =3D[M-x ert-run-tests-interactively]=3D. The first test is passed, but the second test failed. I got bellowing error output. I don't know why it failed. Ihor, If you can fix this test, please tell me. Thanks #+begin_example Selector: test-org-fold/org-fold-display-inline-images Passed: 0 Failed: 1 (1 unexpected) Skipped: 0 Total: 1/1 Started at: 2022-10-01 17:46:30+0800 Finished. Finished at: 2022-10-01 17:46:31+0800 F F test-org-fold/org-fold-display-inline-images Test inline images displaying when cycling. (ert-test-failed ((should (overlays-at (point))) :form (overlays-at 130) :value nil)) #+end_example =2D-=20 [ stardiviner ] I try to make every word tell the meaning that I want to express without mi= sunderstanding. Blog: https://stardiviner.github.io/ IRC(libera.chat, freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3 --=-=-=-- --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAmM4Dz8ACgkQG13xyVro msMSTAf/R0uAqCyr6+7qIkAqU2PxKqCVUQD8Btc6mPDgKaJLoPfxTkmAExDP/CXs pT+nJkDZ7pyKR+wvHbBUohyDS8bl/bYJGUTqeASzZXKJrw/62zVJfpPhJGWhFGqZ 94/xa2rU4LEcSwQL+JCCh8z+rucbrc7uMl92/mFHYC+CHPc9aahHNaSNxOuFuoNZ N42ITej+bxqQk8h9cpzEJUxgmWRBUqJy4dB0pA7VEbHwQvIRhOes+6RE1GNswTAP fBmTcuSM0fOfNHpLFQqFFXXOeQges+H3cfNAW5+qx0ePUswSgpEpLYtYGHWbJriP NVuRZ9hfZi8fwMnODWVhoLbIzVVZFA== =cVS1 -----END PGP SIGNATURE----- --==-=-=--