emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

From: stardiviner <numbchild@gmail.com>
To: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Cc: org-mode <emacs-orgmode@gnu.org>
Subject: Re: temporary set source blocks major-mode-hook to nil locally to speed up Org Mode
Date: Thu, 18 Oct 2018 12:57:11 +0800	[thread overview]
Message-ID: <871s8nua1k.fsf@gmail.com> (raw)
In-Reply-To: <87d0sbexkq.fsf@nicolasgoaziou.fr>

[-- Attachment #1: Type: text/plain, Size: 1301 bytes --]


Nicolas Goaziou <mail@nicolasgoaziou.fr> writes:

> Some major modes may use major mode hooks to finish setting up their
> fontification process, who knows.
>
> In any case, it could be worth trying it. Do you want to provide a patch
> for that?
>
> Regards,

I dived into the source code of two functions which are related to
defcustom variable ~org-src-fontify-natively~.

Here is my try:

#+begin_src diff
modified   lisp/org-src.el
@@ -585,7 +585,14 @@ as `org-src-fontify-natively' is non-nil."
 	    (erase-buffer)
 	    ;; Add string and a final space to ensure property change.
 	    (insert string " "))
-	  (unless (eq major-mode lang-mode) (funcall lang-mode))
+	  (unless (eq major-mode lang-mode)
+	    (message "%s enabled in source block" lang-mode)
+	    ;; (make-local-variable (intern (format "%s-hook" lang-mode)))
+	    ;; (set (intern (format "%s-hook" lang-mode)) nil)
+	    (message "%s is %s"
+		     (intern (format "%s-hook" lang-mode))
+		     (symbol-value (intern (format "%s-hook" lang-mode))))
+	    (funcall lang-mode))
 	  (org-font-lock-ensure)
 	  (let ((pos (point-min)) next)
 	    (while (setq next (next-property-change pos))
#+end_src

But it seems does not work as I expected.

Can't find out which real function is invoked when fontify every source blocks.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: a simple try --]
[-- Type: text/x-patch, Size: 1182 bytes --]

From cd43cd7c4c4e98d2b62af84a0729f82fb361c25f Mon Sep 17 00:00:00 2001
From: stardiviner <numbchild@gmail.com>
Date: Thu, 18 Oct 2018 12:55:30 +0800
Subject: [PATCH] Set all lang-mode-hook to nil to speedup source blocks
 fontify.

---
 lisp/org-src.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lisp/org-src.el b/lisp/org-src.el
index 9c462b7e7..271ca82b9 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -585,7 +585,14 @@ as `org-src-fontify-natively' is non-nil."
 	    (erase-buffer)
 	    ;; Add string and a final space to ensure property change.
 	    (insert string " "))
-	  (unless (eq major-mode lang-mode) (funcall lang-mode))
+	  (unless (eq major-mode lang-mode)
+	    (message "%s enabled in source block" lang-mode)
+	    ;; (make-local-variable (intern (format "%s-hook" lang-mode)))
+	    ;; (set (intern (format "%s-hook" lang-mode)) nil)
+	    (message "%s is %s"
+		     (intern (format "%s-hook" lang-mode))
+		     (symbol-value (intern (format "%s-hook" lang-mode))))
+	    (funcall lang-mode))
 	  (org-font-lock-ensure)
 	  (let ((pos (point-min)) next)
 	    (while (setq next (next-property-change pos))
-- 
2.19.1


[-- Attachment #3: Type: text/plain, Size: 187 bytes --]


--
[ stardiviner ] don't need to convince with trends.
       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3

next prev parent reply	other threads:[~2018-10-18  4:57 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2018-10-14  7:48 temporary set source blocks major-mode-hook to nil locally to speed up Org Mode stardiviner
2018-10-15 20:58 ` Nicolas Goaziou
2018-10-18  4:57   ` stardiviner [this message]
2018-10-18 22:17     ` Nicolas Goaziou
2018-10-19  0:14       ` stardiviner

find likely ancestor, descendant, or conflicting patches for this message:
dfblob:9c462b7e dfblob:271ca82b
	(help)

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=871s8nua1k.fsf@gmail.com \
    --to=numbchild@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=mail@nicolasgoaziou.fr \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).