[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] temporary set source blocks major-mode-hook to nil locally to sp
From: |
stardiviner |
Subject: |
Re: [O] temporary set source blocks major-mode-hook to nil locally to speed up Org Mode |
Date: |
Fri, 19 Oct 2018 08:14:44 +0800 |
User-agent: |
mu4e 1.1.0; emacs 26.1 |
Nicolas Goaziou <address@hidden> writes:
>
> Did you try to set the hook to a different value before (funcall lang-mode)?
>
Yes, like I said in previous messages, I want to make lang-mode-hook empty. It
tested a few times, with restarting Emacs (loading a refresh Org Mode). It
failed to fontify source blocks.
Reports error:
Failed to fontify source block.
I can see all source blocks are not fontified. Until I manually load the mode
with [M-x load-library RET clojure-mode RET]. Then I reopen the Org file, the
clojure source blocks are fontified.
Also I improved my code:
#+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)
+ ;; FIXME: Org mode fontification error in #<buffer Code.org> at 203
+ ;; (let (hook (intern (format "%s-hook" lang-mode)))
+ ;; (message "%s enabled in source block" lang-mode)
+ ;; (make-local-variable hook)
+ ;; (set hook nil)
+ ;; (message "%s is %s" hook (symbol-value hook)))
+ (funcall lang-mode))
(org-font-lock-ensure)
(let ((pos (point-min)) next)
(while (setq next (next-property-change pos))
#+end_src
--
[ stardiviner ] don't need to convince with trends.
Blog: https://stardiviner.github.io/
IRC(freenode): stardiviner
GPG: F09F650D7D674819892591401B5DF1C95AE89AC3