Hello, stardiviner <numbch...@gmail.com> writes:
> 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. Did you try to set the hook to a different value before (funcall lang-mode)? Regards, -- Nicolas Goaziou
