mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-02-06 21:29:25 +00:00
Code

org-exp-blocks: now running the previously unhooked org-export-blocks-postblock-hook

Browse Source 
* lisp/org-exp-blocks.el (org-export-blocks-postblock-hook): adding
  documentation to and turning into a defcustom

  (org-export-blocks-preprocess): actually running the
  `org-export-blocks-postblock-hook' hook after preprocessing
This commit is contained in:
Eric Schulte 2010-06-15 15:54:52 -07:00
parent 74d337ef23
commit 67e16095f4
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-exp-blocks.el
View File

@ -136,7 +136,11 @@ be exported."
:group 'org-export-general
:type 'list)
(defvar org-export-blocks-postblock-hooks nil "")
(defcustom org-export-blocks-postblock-hook nil
"Run after blocks have been processed with
`org-export-blocks-preprocess'."
:group 'org-export-general
:type 'hook)
(defun org-export-blocks-html-quote (body &optional open close)
"Protext BODY from org html export. The optional OPEN and
@ -194,7 +198,8 @@ specified in BLOCKS which default to the value of
(indent-code-rigidly
(match-beginning 0) (match-end 0) indentation)))))
(setq start (match-end 0)))
(interblock start (point-max))))))
(interblock start (point-max))
(run-hooks org-export-blocks-postblock-hooks)))))
(add-hook 'org-export-preprocess-hook 'org-export-blocks-preprocess)