* [Babel] Bug with org-src-fontify-natively... after running epresent
@ 2010-10-28 19:51 Sébastien Vauban
2010-10-28 22:55 ` Eric Schulte
0 siblings, 1 reply; 2+ messages in thread
From: Sébastien Vauban @ 2010-10-28 19:51 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
Hello Eric,
After having run epresent, I got this error when trying to publish my
theme-test.org file (sent on this list a couple of days ago -- no reaction
BTW ;-)).
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (void-function -mode)
-mode()
funcall(-mode)
(if (eq major-mode lang-mode) nil (funcall lang-mode))
(unless (eq major-mode lang-mode) (funcall lang-mode))
(save-current-buffer (set-buffer (get-buffer-create ...)) (delete-region (point-min) (point-max)) (insert string) (unless (eq major-mode lang-mode) (funcall lang-mode)) (font-lock-fontify-buffer) (setq pos (point-min)) (while (setq next ...) (put-text-property ... ... ... ... org-buffer) (setq pos next)))
(with-current-buffer (get-buffer-create (concat " org-src-fontification:" ...)) (delete-region (point-min) (point-max)) (insert string) (unless (eq major-mode lang-mode) (funcall lang-mode)) (font-lock-fontify-buffer) (setq pos (point-min)) (while (setq next ...) (put-text-property ... ... ... ... org-buffer) (setq pos next)))
(let* ((lang-mode ...) (string ...) (modified ...) (org-buffer ...) pos next) (remove-text-properties start end (quote ...)) (with-current-buffer (get-buffer-create ...) (delete-region ... ...) (insert string) (unless ... ...) (font-lock-fontify-buffer) (setq pos ...) (while ... ... ...)) (add-text-properties start end (quote ...)) (set-buffer-modified-p modified))
org-src-font-lock-fontify-block("" 1227 1500)
(cond ((and lang org-src-fontify-natively) (org-src-font-lock-fontify-block lang block-start block-end)) (quoting (add-text-properties beg1 ... ...)) ((not org-fontify-quote-and-verse-blocks)) ((string= block-type "quote") (add-text-properties beg1 end1 ...)) ((string= block-type "verse") (add-text-properties beg1 end1 ...)))
(progn (setq end (match-end 0) end1 (1- ...)) (setq block-end (match-beginning 0)) (when quoting (remove-text-properties beg end ...)) (add-text-properties beg end (quote ...)) (add-text-properties beg beg1 (quote ...)) (add-text-properties end1 (+ end 1) (quote ...)) (cond (... ...) (quoting ...) (...) (... ...) (... ...)) t)
(if (re-search-forward (concat "^[ ]*#\\+end" ... "\\>.*") nil t) (progn (setq end ... end1 ...) (setq block-end ...) (when quoting ...) (add-text-properties beg end ...) (add-text-properties beg beg1 ...) (add-text-properties end1 ... ...) (cond ... ... ... ... ...) t))
(when (re-search-forward (concat "^[ ]*#\\+end" ... "\\>.*") nil t) (setq end (match-end 0) end1 (1- ...)) (setq block-end (match-beginning 0)) (when quoting (remove-text-properties beg end ...)) (add-text-properties beg end (quote ...)) (add-text-properties beg beg1 (quote ...)) (add-text-properties end1 (+ end 1) (quote ...)) (cond (... ...) (quoting ...) (...) (... ...) (... ...)) t)
(cond ((member dc1 ...) (org-remove-flyspell-overlays-in ... ...) (remove-text-properties ... ... ...) (add-text-properties ... ... ...) (add-text-properties ... ... ...) t) ((and ... ...) (setq block-type ... quoting ...) (when ... ... ... ... ... ... ... ... t)) ((member dc1 ...) (add-text-properties beg ... ...) (add-text-properties ... ... ...)) ((not ...) (add-text-properties beg ... ...) t) ((or ... ...) (add-text-properties beg ... ...) t) ((member dc3 ...) (add-text-properties beg ... ...)) (t nil))
(let ((beg ...) (block-start ...) (block-end nil) (lang ...) (beg1 ...) (dc1 ...) (dc3 ...) end end1 quoting block-type) (cond (... ... ... ... ... t) (... ... ...) (... ... ...) (... ... t) (... ... t) (... ...) (t nil)))
(if (re-search-forward "^\\([ ]*#\\+\\(\\([a-zA-Z]+:?\\| \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[ ]*\\(\\([^ \n]*\\)[ ]*\\(.*\\)\\)\\)" limit t) (let (... ... ... ... ... ... ... end end1 quoting block-type) (cond ... ... ... ... ... ... ...)))
(let ((case-fold-search t)) (if (re-search-forward "^\\([ ]*#\\+\\(\\([a-zA-Z]+:?\\| \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[ ]*\\(\\([^ \n]*\\)[ ]*\\(.*\\)\\)\\)" limit t) (let ... ...)))
org-fontify-meta-lines-and-blocks(2136)
#[(start end &optional loudly) "\b@\306=\204\v\0\307\b!\x10 \b\211\x1aAA)\310 \311\312 \313\211\211^[\x1c\x1d\x1e&\x1e'\x1e(\x1e)\x1e*\x0e)\203\x04\x03\x0e+\203@\0\314\315\x0e(\316\x0e'T\211\x16'\317\"#\210\x0e)@\211\x15@\x14\x0e,b\210`\x0e-W\203\373\x02\f;\203`\0\320\f\x0e-\306#\202d\0\f\x0e-!\203\373\x02`\311\224V\204q\0\321u\210\x0e\x13\203\241\0`\212\311\224b\210\321y\210`)Y\203\241\0\322`\212\311\224b\210\321y\210`)U\203\232\0`S\202\234\0\311\224`\323\306$\210\rA\211\x13\203K\0\v@@\247\203~\x01\v@\211\x1e.@\211\x1e/\224\x1e,\x0e/\225\x1e-\324\x0e.8\x1e0\x0e,\204\334\0\325\x0e.8\206x\x01\326\327\x0e/\x0e.#\202x\x01\330\x0e.A@!\211\x1e1\242\331=\203\x02\x01\332\x0e,\x0e-\x0e1\211\x1aAA)#\210\x0e1\211\x1aA@)\x161\x0e1\204\x12\x01\x0e0\306=\204\x12\x01\313\202w\x01\x0e0\204.\x01\333\x0e,\x0e-\331\313$\206w\x01\322\x0e,\x0e-\331\x0e1$\202w\x01\x0e0\306=\203A\x01\322\x0e,\x0e-\331\x0e1$\202w\x01\x0e0\334=\203T\x01\335\x0e,\x0e-\331\x0e1$\202w\x01\x0e0\336=\203g\x01\337\x0e,\x0e-\331\x0e1$\202w\x01\x0e0\340=\205w\x01\341\x0e,\x0e-\331\x0e1$),\210)\202\364\x02\x0e&`\313\223\210\v@\x0e-\x1e2\211\x1e)@\325\x0e)\233\313\311\224\330\x0e)A@!\x1e3\x1e4^[\x1e5\x1c\x0e3\247\203\260\x01\x0e3`V\204\267\x01\342 \x162\202\343\x01\x0e3\x162\x0e\x13\203\343\x01\x0e2\343\324!Y\203\343\x01\322\x0e2\343\324!U\203\331\x01\x0e2S\202\335\x01\x0e4`^\x0e2\323\306$\210\344 \x1e6\345\216`\x0e2W\203\337\x02\f;\203\376\x01\320\f\x0e2\306#\202\x02\x02\f\x0e2!\203\337\x02\x0e5\211\x13\203\351\x01\v@\211\x1e.@\211\x1e/\224\x1e,\x0e/\225\x1e-\324\x0e.8\x1e0\x0e,\2049\x02\325\x0e.8\206\325\x02\326\327\x0e/\x0e.#\202\325\x02\330\x0e.A@!\211\x1e1\242\331=\203_\x02\332\x0e,\x0e-\x0e1\211\x1aAA)#\210\x0e1\211\x1aA@)\x161\x0e1\204o\x02\x0e0\306=\204o\x02\313\202\324\x02\x0e0\204\213\x02\333\x0e,\x0e-\331\313$\206\324\x02\322\x0e,\x0e-\331\x0e1$\202\324\x02\x0e0\306=\203\236\x02\322\x0e,\x0e-\331\x0e1$\202\324\x02\x0e0\334=\203\261\x02\335\x0e,\x0e-\331\x0e1$\202\324\x02\x0e0\336=\203\304\x02\337\x0e,\x0e-\331\x0e1$\202\324\x02\x0e0\340=\205\324\x02\341\x0e,\x0e-\331\x0e1$),\210)\vA\211\x13\202 \x02*\330\324\x0e)8!-\210*`\x0e&W\203\364\x02\x0e&b\210\vA\211\x13\202\245\0\x0e)A\211\x16)\204,\0\x0e&\313\211\223.\b\207" [font-lock-keywords font-lock-keywords-case-fold-search x highlights matcher keyword t font-lock-compile-keywords buffer-name 0 make-marker nil message "Fontifying %s... (regexps..%s)" make-string 46 re-search-forward 1 put-text-property font-lock-multiline 2 3 error "No match %d in highlight %S" eval face add-text-properties text-property-not-all prepend font-lock-prepend-text-property append font-lock-append-text-property keep font-lock-fillin-text-property line-end-position line-beginning-position match-data (...) pos count bufname keywords case-fold-search loudly start end highlight match override val ...] 9 2137128](1 2136 nil)
apply(#[(start end &optional loudly) "\b@\306=\204\v\0\307\b!\x10 \b\211\x1aAA)\310 \311\312 \313\211\211^[\x1c\x1d\x1e&\x1e'\x1e(\x1e)\x1e*\x0e)\203\x04\x03\x0e+\203@\0\314\315\x0e(\316\x0e'T\211\x16'\317\"#\210\x0e)@\211\x15@\x14\x0e,b\210`\x0e-W\203\373\x02\f;\203`\0\320\f\x0e-\306#\202d\0\f\x0e-!\203\373\x02`\311\224V\204q\0\321u\210\x0e\x13\203\241\0`\212\311\224b\210\321y\210`)Y\203\241\0\322`\212\311\224b\210\321y\210`)U\203\232\0`S\202\234\0\311\224`\323\306$\210\rA\211\x13\203K\0\v@@\247\203~\x01\v@\211\x1e.@\211\x1e/\224\x1e,\x0e/\225\x1e-\324\x0e.8\x1e0\x0e,\204\334\0\325\x0e.8\206x\x01\326\327\x0e/\x0e.#\202x\x01\330\x0e.A@!\211\x1e1\242\331=\203\x02\x01\332\x0e,\x0e-\x0e1\211\x1aAA)#\210\x0e1\211\x1aA@)\x161\x0e1\204\x12\x01\x0e0\306=\204\x12\x01\313\202w\x01\x0e0\204.\x01\333\x0e,\x0e-\331\313$\206w\x01\322\x0e,\x0e-\331\x0e1$\202w\x01\x0e0\306=\203A\x01\322\x0e,\x0e-\331\x0e1$\202w\x01\x0e0\334=\203T\x01\335\x0e,\x0e-\331\x0e1$\202w\x01\x0e0\336=\203g\x01\337\x0e,\x0e-\331\x0e1$\202w\x01\x0e0\340=\205w\x01\341\x0e,\x0e-\331\x0e1$),\210)\202\364\x02\x0e&`\313\223\210\v@\x0e-\x1e2\211\x1e)@\325\x0e)\233\313\311\224\330\x0e)A@!\x1e3\x1e4^[\x1e5\x1c\x0e3\247\203\260\x01\x0e3`V\204\267\x01\342 \x162\202\343\x01\x0e3\x162\x0e\x13\203\343\x01\x0e2\343\324!Y\203\343\x01\322\x0e2\343\324!U\203\331\x01\x0e2S\202\335\x01\x0e4`^\x0e2\323\306$\210\344 \x1e6\345\216`\x0e2W\203\337\x02\f;\203\376\x01\320\f\x0e2\306#\202\x02\x02\f\x0e2!\203\337\x02\x0e5\211\x13\203\351\x01\v@\211\x1e.@\211\x1e/\224\x1e,\x0e/\225\x1e-\324\x0e.8\x1e0\x0e,\2049\x02\325\x0e.8\206\325\x02\326\327\x0e/\x0e.#\202\325\x02\330\x0e.A@!\211\x1e1\242\331=\203_\x02\332\x0e,\x0e-\x0e1\211\x1aAA)#\210\x0e1\211\x1aA@)\x161\x0e1\204o\x02\x0e0\306=\204o\x02\313\202\324\x02\x0e0\204\213\x02\333\x0e,\x0e-\331\313$\206\324\x02\322\x0e,\x0e-\331\x0e1$\202\324\x02\x0e0\306=\203\236\x02\322\x0e,\x0e-\331\x0e1$\202\324\x02\x0e0\334=\203\261\x02\335\x0e,\x0e-\331\x0e1$\202\324\x02\x0e0\336=\203\304\x02\337\x0e,\x0e-\331\x0e1$\202\324\x02\x0e0\340=\205\324\x02\341\x0e,\x0e-\331\x0e1$),\210)\vA\211\x13\202 \x02*\330\324\x0e)8!-\210*`\x0e&W\203\364\x02\x0e&b\210\vA\211\x13\202\245\0\x0e)A\211\x16)\204,\0\x0e&\313\211\223.\b\207" [font-lock-keywords font-lock-keywords-case-fold-search x highlights matcher keyword t font-lock-compile-keywords buffer-name 0 make-marker nil message "Fontifying %s... (regexps..%s)" make-string 46 re-search-forward 1 put-text-property font-lock-multiline 2 3 error "No match %d in highlight %S" eval face add-text-properties text-property-not-all prepend font-lock-prepend-text-property append font-lock-append-text-property keep font-lock-fillin-text-property line-end-position line-beginning-position match-data (...) pos count bufname keywords case-fold-search loudly start end highlight match override val ...] 9 2137128] (1 2136 nil))
elp-wrapper(font-lock-fontify-keywords-region nil (1 2136 nil))
font-lock-fontify-keywords-region(1 2136 nil)
#[(beg end loudly) "\b\206\x05\0 \x18\306 \x1a\307 ^[\310\211\x1c\x1d\310\211\x1e\x11\x1e\x12\311\211\x1e\x13\x1e\x14\311\x1e\x15\312\216\313\216\214\x0e\x16\204+\0~\210\x0e\x17\2035\0\314\x0e\x17!\210\x0e\x18\x0e\x19\x0e\x1a\x1e^[\x1e\x1c\211\x1e\x1d\203b\0\x0e\x1d@ \203T\0\x0e\x1d\x0e\x18=\203Z\0\x0e\x1dA\202\\\0\x0e\x18\211\x16\x1d\204E\0\x0e\x1c\x16\x19\x0e^[\x16\x1a+\315\x0e\x19\x0e\x1a\"\210 \203}\0\316\x0e\x19\x0e\x1a\"\210\x0e\x1e\204\213\0\317\x0e\x19\x0e\x1a\x0e\x1f#\210\320\x0e\x19\x0e\x1a\x0e\x1f#.\r\207" [parse-sexp-lookup-properties font-lock-syntactic-keywords old-syntax-table modified buffer-undo-list inhibit-read-only syntax-table buffer-modified-p t nil (...) (...) set-syntax-table font-lock-unfontify-region font-lock-fontify-syntactic-keywords-region font-lock-fontify-syntactically-region font-lock-fontify-keywords-region inhibit-point-motion-hooks inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename font-lock-dont-widen font-lock-syntax-table font-lock-extend-region-functions beg end font-lock-end font-lock-beg funs font-lock-keywords-only loudly] 5](1 2136 nil)
apply(#[(beg end loudly) "\b\206\x05\0 \x18\306 \x1a\307 ^[\310\211\x1c\x1d\310\211\x1e\x11\x1e\x12\311\211\x1e\x13\x1e\x14\311\x1e\x15\312\216\313\216\214\x0e\x16\204+\0~\210\x0e\x17\2035\0\314\x0e\x17!\210\x0e\x18\x0e\x19\x0e\x1a\x1e^[\x1e\x1c\211\x1e\x1d\203b\0\x0e\x1d@ \203T\0\x0e\x1d\x0e\x18=\203Z\0\x0e\x1dA\202\\\0\x0e\x18\211\x16\x1d\204E\0\x0e\x1c\x16\x19\x0e^[\x16\x1a+\315\x0e\x19\x0e\x1a\"\210 \203}\0\316\x0e\x19\x0e\x1a\"\210\x0e\x1e\204\213\0\317\x0e\x19\x0e\x1a\x0e\x1f#\210\320\x0e\x19\x0e\x1a\x0e\x1f#.\r\207" [parse-sexp-lookup-properties font-lock-syntactic-keywords old-syntax-table modified buffer-undo-list inhibit-read-only syntax-table buffer-modified-p t nil (...) (...) set-syntax-table font-lock-unfontify-region font-lock-fontify-syntactic-keywords-region font-lock-fontify-syntactically-region font-lock-fontify-keywords-region inhibit-point-motion-hooks inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename font-lock-dont-widen font-lock-syntax-table font-lock-extend-region-functions beg end font-lock-end font-lock-beg funs font-lock-keywords-only loudly] 5] (1 2136 nil))
elp-wrapper(font-lock-default-fontify-region nil (1 2136 nil))
font-lock-default-fontify-region(1 2136 nil)
#[(beg end &optional loudly) "\304 \210\b \n\v#\207" [font-lock-fontify-region-function beg end loudly font-lock-set-defaults] 4](1 2136 nil)
apply(#[(beg end &optional loudly) "\304 \210\b \n\v#\207" [font-lock-fontify-region-function beg end loudly font-lock-set-defaults] 4] (1 2136 nil))
elp-wrapper(font-lock-fontify-region nil (1 2136 nil))
font-lock-fontify-region(1 2136 nil)
byte-code("\212\303 \x18\304\216\305ed #\210\306 \210\307\211\x12+\207" [save-match-data-internal verbose font-lock-fontified match-data ((byte-code "\301\b\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) font-lock-fontify-region font-lock-after-fontify-buffer t] 4)
#[nil "\b\247\203\f\0\304 \bV\202\r\0\b\211\x19\205\x17\0\305\306\307 \"\310\x1a^[\311\216\v\203(\0\312 \x12\313\314\v\"\210\214~\210\310\315\316\217-\207" [font-lock-verbose verbose current-message with-temp-message buffer-size format "Fontifying %s..." buffer-name nil (...) current-message message "%s" (byte-code "\212\303 \x18\304\216\305ed #\210\306 \210\307\211\x12+\207" [save-match-data-internal verbose font-lock-fontified match-data ... font-lock-fontify-region font-lock-after-fontify-buffer t] 4) (...)] 4]()
apply(#[nil "\b\247\203\f\0\304 \bV\202\r\0\b\211\x19\205\x17\0\305\306\307 \"\310\x1a^[\311\216\v\203(\0\312 \x12\313\314\v\"\210\214~\210\310\315\316\217-\207" [font-lock-verbose verbose current-message with-temp-message buffer-size format "Fontifying %s..." buffer-name nil (...) current-message message "%s" (byte-code "\212\303 \x18\304\216\305ed #\210\306 \210\307\211\x12+\207" [save-match-data-internal verbose font-lock-fontified match-data ... font-lock-fontify-region font-lock-after-fontify-buffer t] 4) (...)] 4] nil)
elp-wrapper(font-lock-default-fontify-buffer nil nil)
font-lock-default-fontify-buffer()
#[nil "\302 \210\b\206\n\0\303\304!\x18 )\207" [font-lock-verbose font-lock-fontify-buffer-function font-lock-set-defaults called-interactively-p interactive] 2 2132618 nil]()
apply(#[nil "\302 \210\b\206\n\0\303\304!\x18 )\207" [font-lock-verbose font-lock-fontify-buffer-function font-lock-set-defaults called-interactively-p interactive] 2 2132618 nil] nil)
elp-wrapper(font-lock-fontify-buffer nil nil)
font-lock-fontify-buffer()
column-marker-internal(column-marker-1 79 column-marker-1-face)
(cond ((null arg) (column-marker-internal ... ... column-marker-1-face)) ((consp arg) (if ... ... ...)) ((and ... ...) (column-marker-internal ... ... column-marker-1-face)) (t (dolist ... ...)))
column-marker-1(78)
(lambda nil (interactive) (column-marker-1 78) (column-marker-2 79) (column-marker-3 80))()
run-hooks(text-mode-hook outline-mode-hook org-mode-hook)
apply(run-hooks (text-mode-hook outline-mode-hook org-mode-hook))
run-mode-hooks(org-mode-hook)
org-mode()
(let ((org-inhibit-startup t)) (org-mode))
(save-current-buffer (set-buffer (get-buffer-create " org-mode-tmp")) (erase-buffer) (insert string) (setq case-fold-search t) (let (...) (remove-text-properties ... ... ...)) (org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search t) (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (untabify (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-preprocess-after-include-files-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)) (org-export-mark-list-ending backend) (org-export-replace-src-segments-and-examples backend) (org-export-protect-colon-examples) (when (plist-get parameters :footnotes) (org-footnote-normalize nil t)) (setq target-alist (org-export-define-heading-targets target-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-hook)) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers) backend) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert ... "\n")) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backend-code-hook)) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless (plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq target-alist (org-export-attach-captions-and-attributes backend target-alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when (plist-get parameters :emph-multiline) (org-export-concatenate-multiline-emphasis)) (org-store-forced-table-alignment) (when org-export-table-remove-special-lines (org-export-remove-special-table-lines)) ...)
(with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t) (let (...) (remove-text-properties ... ... ...)) (org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search t) (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (untabify (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-preprocess-after-include-files-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)) (org-export-mark-list-ending backend) (org-export-replace-src-segments-and-examples backend) (org-export-protect-colon-examples) (when (plist-get parameters :footnotes) (org-footnote-normalize nil t)) (setq target-alist (org-export-define-heading-targets target-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-hook)) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers) backend) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert ... "\n")) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backend-code-hook)) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless (plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq target-alist (org-export-attach-captions-and-attributes backend target-alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when (plist-get parameters :emph-multiline) (org-export-concatenate-multiline-emphasis)) (org-store-forced-table-alignment) (when org-export-table-remove-special-lines (org-export-remove-special-table-lines)) ...)
(let* ((htmlp ...) (asciip ...) (latexp ...) (docbookp ...) (backend ...) (archived-trees ...) (inhibit-read-only t) (drawers org-drawers) (outline-regexp "\\*+ ") target-alist rtn) (setq org-export-target-aliases nil org-export-preferred-target-alist nil org-export-id-target-alist nil org-export-code-refs nil) (with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t) (let ... ...) (org-export-kill-licensed-text) (let ... ...) (setq case-fold-search t) (org-install-letbind) (run-hooks ...) (org-export-preprocess-apply-macros) (run-hooks ...) (untabify ... ...) (org-export-handle-include-files-recurse) (run-hooks ...) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags ... ...) (run-hooks ...) (org-export-mark-list-ending backend) (org-export-replace-src-segments-and-examples backend) (org-export-protect-colon-examples) (when ... ...) (setq target-alist ...) (run-hooks ...) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers ... backend) (when ... ... ...) (when ... ... ...) (org-export-remove-headline-metadata parameters) (setq target-alist ...) (run-hooks ...) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks ...) (unless ... ...) (setq target-alist ...) (org-export-mark-radio-links) (run-hooks ...) (org-export-concatenate-multiline-links) (run-hooks ...) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when ... ...) (org-store-forced-table-alignment) (when org-export-table-remove-special-lines ...) ...) (kill-buffer " org-mode-tmp") rtn)
org-export-preprocess-string(#("#+TITLE: Emacs Color Theme Test File\n#+STARTUP: content\n#+TAGS: Home(h) School(s) Computer(c)\n\n* Tasks\n\nLorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod\ntempor incididunt ut labore et dolore magna aliqua.\n\nUt enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut\naliquip ex ea commodo consequat.\n\n** TODO Task 1 :Home:\n SCHEDULED: <2010-10-08 Fri>\n\nDuis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore\neu fugiat nulla pariatur.\n\n** DONE Task 2 :School:\n DEADLINE: <2010-10-26 Tue>\n :LOGBOOK:\n - State \"DONE\" from \"\" [2010-10-22 Fri 21:57]\n :END:\n\nDeserunt =mollit= anim ~id~ est laborum:\n\n#+begin_src sql\nSELECT top 10 *\nFROM table\nWHERE price > 0\n#+end_src\n\n** TODO Task 3 :School:Computer:\n [2010-10-26 Tue]\n\nExcepteur sint occaecat cupidatat non proident, sunt in culpa qui officia:\n\n| *Date* | *Price* |\n|---------+---------|\n| You | 18.90 |\n| Me | 89.99 |\n|---------+---------|\n| *Total* | 108.89 |\n#+TBLFM: @4$2=vsum(@-I..@-II)\n\n* Headline 1\n\n#+BEGIN_QUOTE\nLorem ipsum dolor sit amet, consectetur adipiscing elit. Fusce vel leo odio,\nnon adipiscing mi. Etiam aliquet nibh sed nisl malesuada adipiscing. Donec\nmollis, turpis a faucibus consequat, ipsum magna molestie purus, eget\nfringilla urna leo ac urna. Ut condimentum, dolor\n#+END_QUOTE\n\n** Headline 2\n\n- Quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo\n consequat.\n- Quid\n + Cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat\n non proident, sunt in culpa qui officia deserunt mollit anim id est\n laborum.\n + Etc.\n- Duis aute irure dolor in reprehenderit in voluptate velit esse.\n\n*** Headline 3\n\nCurabitur vehicula interdum erat ut varius. Sed ut enim tortor, nec rutrum\nurna. Phasellus mauris velit, laoreet id pharetra vitae, convallis sit amet\nleo. Mauris posuere porta nunc in consectetur. Nullam ut nulla sed nisi\nfacilisis scelerisque quis ac nisi.\n" 0 8 (font-lock-fontified t fontified t face org-document-info-keyword) 8 9 (fontified t face font-lock-comment-face) 9 36 (font-lock-fontified t fontified t face org-document-title) 36 37 (fontified t) 37 55 (font-lock-fontified t fontified t face org-meta-line) 55 56 (fontified t) 56 93 (font-lock-fontified t fontified t face org-meta-line) 93 95 (fontified t) 95 97 (fontified t face org-level-1) 97 102 (fontified t face org-level-1) 102 339 (fontified t) 339 340 (fontified t face org-level-2) 340 342 (fontified t face org-level-2) 342 346 (fontified t face org-todo) 346 410 (fontified t face org-level-2) 410 415 (fontified t face (org-tag org-level-2) org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 415 416 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t face (org-tag org-level-2) org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 416 420 (fontified t) 420 430 (fontified t face org-special-keyword) 430 431 (fontified t) 431 446 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 446 447 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 447 471 (fontified t) 471 473 (fontified t) 473 488 (fontified t) 488 490 (fontified t) 490 526 (fontified t) 526 552 (fontified t) 552 553 (fontified t) 553 554 (fontified t face org-level-2) 554 556 (fontified t face org-level-2) 556 560 (fontified t face org-done) 560 622 (fontified t face org-headline-done) 622 629 (fontified t face org-headline-done org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 629 630 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t face org-headline-done org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 630 634 (fontified t) 634 643 (fontified t face org-special-keyword) 643 644 (fontified t) 644 659 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 659 660 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 660 661 (fontified t) 661 673 (fontified t face org-special-keyword) 673 679 (fontified t) 679 684 (fontified t) 684 698 (fontified t) 698 702 (fontified t) 702 716 (fontified t) 716 737 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 737 738 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 738 739 (fontified t) 739 743 (fontified t face org-special-keyword) 743 746 (fontified t face org-special-keyword) 746 747 (fontified t face org-special-keyword) 747 757 (fontified t) 757 758 (fontified t org-no-flyspell t) 758 766 (fontified t face (org-code) org-no-flyspell t font-lock-multiline t org-emphasis t) 766 767 (fontified t org-no-flyspell t) 767 771 (fontified t) 771 772 (fontified t org-no-flyspell t) 772 776 (fontified t face (org-verbatim) org-no-flyspell t font-lock-multiline t org-emphasis t) 776 777 (fontified t org-no-flyspell t) 777 791 (fontified t) 791 803 (font-lock-fontified t fontified t face org-meta-line font-lock-multiline t) 803 806 (font-lock-fontified t fontified t face org-meta-line font-lock-multiline t) 806 807 (font-lock-fontified t fontified t font-lock-multiline t face nil) 807 808 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 808 813 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 813 814 (font-lock-fontified t fontified t font-lock-multiline t face nil) 814 823 (font-lock-fontified t fontified t font-lock-multiline t face nil) 823 824 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 824 827 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 827 828 (font-lock-fontified t fontified t font-lock-multiline t face nil) 828 829 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 829 833 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 833 834 (font-lock-fontified t fontified t font-lock-multiline t face nil) 834 835 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 835 839 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 839 840 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 840 849 (font-lock-fontified t fontified t font-lock-multiline t) 849 850 (font-lock-fontified t fontified t font-lock-multiline t) 850 859 (font-lock-fontified t fontified t face org-meta-line font-lock-multiline t) 859 860 (fontified t face org-meta-line) 860 861 (fontified t) 861 862 (fontified t face org-level-2) 862 864 (fontified t face org-level-2) 864 868 (fontified t face org-todo) 868 921 (fontified t face org-level-2) 921 937 (fontified t face (org-tag org-level-2) org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 937 938 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t face (org-tag org-level-2) org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 938 942 (fontified t) 942 957 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 957 958 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 958 1013 (fontified t) 1013 1015 (fontified t) 1015 1035 (fontified t) 1035 1036 (fontified t) 1036 1038 (fontified t face org-table) 1038 1039 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1039 1043 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1043 1044 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1044 1048 (fontified t face org-table) 1048 1055 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1055 1057 (fontified t face org-table) 1057 1058 (fontified t) 1058 1059 (fontified t face org-table) 1059 1065 (fontified t face org-table) 1065 1069 (fontified t face (org-latex-and-export-specials org-table) font-lock-multiline t) 1069 1075 (fontified t face org-table) 1075 1079 (fontified t face (org-latex-and-export-specials org-table) font-lock-multiline t) 1079 1080 (fontified t) 1080 1101 (fontified t face org-table) 1101 1102 (fontified t) 1102 1123 (fontified t face org-table) 1123 1124 (fontified t) 1124 1125 (fontified t face org-table) 1125 1131 (fontified t face org-table) 1131 1135 (fontified t face (org-latex-and-export-specials org-table) font-lock-multiline t) 1135 1141 (fontified t face org-table) 1141 1145 (fontified t face (org-latex-and-export-specials org-table) font-lock-multiline t) 1145 1146 (fontified t) 1146 1148 (fontified t face org-table) 1148 1155 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1155 1167 (fontified t face org-table) 1167 1168 (fontified t) 1168 1197 (fontified t font-lock-fontified t face org-meta-line) 1197 1199 (fontified t) 1199 1201 (fontified t face org-level-1) 1201 1211 (fontified t face org-level-1) 1211 1213 (fontified t) 1213 1226 (fontified t font-lock-fontified t face org-meta-line font-lock-multiline t) 1226 1227 (fontified t font-lock-fontified t font-lock-multiline t) 1227 1498 (fontified t font-lock-fontified t font-lock-multiline t) 1498 1499 (fontified t font-lock-fontified t font-lock-multiline t) 1499 1510 (fontified t font-lock-fontified t face org-meta-line font-lock-multiline t) 1510 1511 (fontified t face org-meta-line) 1511 1512 (fontified t) 1512 1513 (fontified t face org-level-2) 1513 1515 (fontified t face org-level-2) 1515 1525 (fontified t face org-level-2) 1525 1601 (fontified t) 1601 1859 (fontified nil) 1859 1860 (fontified nil) 1860 1862 (fontified nil face org-level-3) 1862 1864 (fontified nil face org-level-3) 1864 1874 (fontified nil face org-level-3) 1874 2135 (fontified nil)) :emph-multiline t :for-html t :skip-before-1st-heading nil :drawers nil :todo-keywords t :tags not-in-toc :priority nil :footnotes t :timestamps t :archived-trees headline :select-tags ("export") :exclude-tags ("noexport") :add-text nil :LaTeX-fragments t)
(org-split-string (org-export-preprocess-string region :emph-multiline t :for-html t :skip-before-1st-heading (plist-get opt-plist :skip-before-1st-heading) :drawers (plist-get opt-plist :drawers) :todo-keywords (plist-get opt-plist :todo-keywords) :tags (plist-get opt-plist :tags) :priority (plist-get opt-plist :priority) :footnotes (plist-get opt-plist :footnotes) :timestamps (plist-get opt-plist :timestamps) :archived-trees (plist-get opt-plist :archived-trees) :select-tags (plist-get opt-plist :select-tags) :exclude-tags (plist-get opt-plist :exclude-tags) :add-text (plist-get opt-plist :text) :LaTeX-fragments (plist-get opt-plist :LaTeX-fragments)) "[\r\n]")
(let* ((opt-plist ...) (body-only ...) (style ...) (html-extension ...) (link-validate ...) valid thetoc have-headings first-heading-pos (odd org-odd-levels-only) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...) (level-offset ...) (opt-plist ...) (org-current-export-dir ...) (org-current-export-file buffer-file-name) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (filename ...) (current-dir ...) (buffer ...) (org-levels-open ...) (date ...) (author ...) (title ...) (link-up ...) (link-home ...) (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) (inquote nil) (infixed nil) (inverse nil) (in-local-list nil) (local-list-type nil) (local-list-indent nil) (llt org-plain-list-ordered-item-terminator) (email ...) (language ...) (keywords ...) (description ...) (lang-words nil) ...) (let (...) (org-unmodified ...)) (message "Exporting...") (setq org-min-level (org-get-min-level lines level-offset)) (setq org-last-level org-min-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer)) (fundamental-mode) (org-install-letbind) (and (fboundp ...) (set-buffer-file-coding-system coding-system-for-write)) (let (... ...) (mapc ... org-export-plist-vars) (setq umax ...) (setq umax-toc ...) (unless body-only ... ... ...) (if ... ...) (setq head-count 0) (org-init-section-numbers) (org-open-par) (while ... ...) (when inquote ... ...) (org-html-level-start 1 nil umax ... head-count) (when ... ...) (save-excursion ... ...) (when footnotes ...) (let ... ...) (unless body-only ... ... ... ...) (unless ... ... ...) (goto-char ...) (when thetoc ... ... ... ...) (goto-char ...) (while ... ...) (goto-char ...) (while ... ...) (goto-char ...) (goto-char ...) (let ... ...) (goto-char ...) (when ... ...) (remove-text-properties ... ... ...) (run-hooks ...) (or to-buffer ...) (goto-char ...) (or ... ...) (if ... ... ...)))
org-export-as-html(nil hidden)
org-export-as-html-and-open(nil)
call-interactively(org-export-as-html-and-open)
(if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sentinel p ...) (message "Background process \"%s\": started" p)) (if subtree-p (progn ... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (let ... ... ... ... ...)))
(let* ((bg ...) subtree-p (help "[t] insert the export option template\n[v] limit export to visible part of outline tree\n[1] only export the current subtree\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EXPORT_FILE_NAME prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8 [A/N/U] to temporary buffer\n\n[h] export as HTML [H] to temporary buffer [R] export region\n[b] export as HTML and open in browser\n\n[l] export as LaTeX [L] to temporary buffer\n[p] export as LaTeX and process to PDF [d] ... and open PDF file\n\n[D] export as DocBook [V] export as DocBook, process to PDF, and open\n\n[j] export as TaskJuggler [J] ... and open\n\n[m] export as Freemind mind map\n[x] export as XOXO\n[g] export using Wes Hardaker's generic exporter\n\n[i] export current file as iCalendar file\n[I] export all agenda files as iCalendar files [c] ...as one combined file\n\n[F] publish current file [P] publish current project\n[X] publish a project... [E] publish every projects") (cmds ...) r1 r2 ass (cpos ...) (cbuf ...) bpos) (save-excursion (save-window-excursion ... ... ... ... ... ... ...)) (and bpos (goto-char bpos)) (setq r2 (if ... ... r1)) (unless (setq ass ...) (error "No command associated with key %c" r1)) (if (and bg ... ... ...) (let ... ... ...) (if subtree-p ...) (call-interactively ...) (when ... ...)))
org-export(nil)
call-interactively(org-export nil nil)
recursive-edit()
byte-code("\306\x10 @\307=\203!\0\310\311\312\"\210\313\311!\211\x1aA@)\242\314=\203!\0\310\315\312\"\210\316\v!\210\317 \210\320 !\210\f\203d\0\321ed\"\rV\203W\0eb\210\322\r\245y\210`\x1e^[db\210\322\r\245\rZy\210\x0e^[`|\210)\323c\210eb\210\324\325\326 \"\210\327\306!\210\324\330!\210\331\312\x1e\x1c\x1e\x1d\324\330!\210\212\332 \210+\331\207" [unread-command-char debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output] 4)
debug(error (wrong-type-argument integer-or-marker-p nil))
goto-char(nil)
(progn (goto-char isearch-other-end))
(if isearch-forward (progn (goto-char isearch-other-end)))
(when isearch-forward (goto-char isearch-other-end))
custom-goto-match-beginning()
run-hooks(isearch-mode-end-hook)
isearch-done()
isearch-other-control-char(nil)
call-interactively(isearch-other-control-char nil nil)
--8<---------------cut here---------------end--------------->8---
The only code block I have in that file is a 3-line SQL src. Though, I have
sql-mode loaded... hence why such a message?
BTW, I "never" asked for the org-src-fontification for one sole reason: as
reported, since that change, I don't benefit anymore of the #+BEGIN_SRC line
being fontified up to the end of the screen (i.e., not limited up to the last
character on that line = C-e).
Why is it on?
--8<---------------cut here---------------start------------->8---
org-src-fontify-natively is a variable defined in `org.el'.
Its value is t
Documentation:
When non-nil, fontify code in code blocks.
You can customize this variable.
[back]
--8<---------------cut here---------------end--------------->8---
I've seen the culprit:
(setq org-src-fontify-natively t)
line 221 of epresent.el.
I don't mind that much: it allowed this problem to pop up.
Best regards,
Seb
--
Sébastien Vauban
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: [Babel] Bug with org-src-fontify-natively... after running epresent
2010-10-28 19:51 [Babel] Bug with org-src-fontify-natively... after running epresent Sébastien Vauban
@ 2010-10-28 22:55 ` Eric Schulte
0 siblings, 0 replies; 2+ messages in thread
From: Eric Schulte @ 2010-10-28 22:55 UTC (permalink / raw)
To: Sébastien Vauban; +Cc: emacs-orgmode
Hi Seb,
I just pushed up a change to epresent so that it should now restore your
original value of org-src-fontify-natively -- assuming that you quit
epresent with the epresent-quit command (bound to "q").
Best -- Eric
Sébastien Vauban <wxhgmqzgwmuf@spammotel.com> writes:
> Hello Eric,
>
> After having run epresent, I got this error when trying to publish my
> theme-test.org file (sent on this list a couple of days ago -- no reaction
> BTW ;-)).
>
> Debugger entered--Lisp error: (void-function -mode)
> -mode()
> funcall(-mode)
> (if (eq major-mode lang-mode) nil (funcall lang-mode))
> (unless (eq major-mode lang-mode) (funcall lang-mode))
> (save-current-buffer (set-buffer (get-buffer-create ...)) (delete-region (point-min) (point-max)) (insert string) (unless (eq major-mode lang-mode) (funcall lang-mode)) (font-lock-fontify-buffer) (setq pos (point-min)) (while (setq next ...) (put-text-property ... ... ... ... org-buffer) (setq pos next)))
> (with-current-buffer (get-buffer-create (concat " org-src-fontification:" ...)) (delete-region (point-min) (point-max)) (insert string) (unless (eq major-mode lang-mode) (funcall lang-mode)) (font-lock-fontify-buffer) (setq pos (point-min)) (while (setq next ...) (put-text-property ... ... ... ... org-buffer) (setq pos next)))
> (let* ((lang-mode ...) (string ...) (modified ...) (org-buffer ...) pos next) (remove-text-properties start end (quote ...)) (with-current-buffer (get-buffer-create ...) (delete-region ... ...) (insert string) (unless ... ...) (font-lock-fontify-buffer) (setq pos ...) (while ... ... ...)) (add-text-properties start end (quote ...)) (set-buffer-modified-p modified))
> org-src-font-lock-fontify-block("" 1227 1500)
> (cond ((and lang org-src-fontify-natively) (org-src-font-lock-fontify-block lang block-start block-end)) (quoting (add-text-properties beg1 ... ...)) ((not org-fontify-quote-and-verse-blocks)) ((string= block-type "quote") (add-text-properties beg1 end1 ...)) ((string= block-type "verse") (add-text-properties beg1 end1 ...)))
> (progn (setq end (match-end 0) end1 (1- ...)) (setq block-end (match-beginning 0)) (when quoting (remove-text-properties beg end ...)) (add-text-properties beg end (quote ...)) (add-text-properties beg beg1 (quote ...)) (add-text-properties end1 (+ end 1) (quote ...)) (cond (... ...) (quoting ...) (...) (... ...) (... ...)) t)
> (if (re-search-forward (concat "^[ ]*#\\+end" ... "\\>.*") nil t) (progn (setq end ... end1 ...) (setq block-end ...) (when quoting ...) (add-text-properties beg end ...) (add-text-properties beg beg1 ...) (add-text-properties end1 ... ...) (cond ... ... ... ... ...) t))
> (when (re-search-forward (concat "^[ ]*#\\+end" ... "\\>.*") nil t) (setq end (match-end 0) end1 (1- ...)) (setq block-end (match-beginning 0)) (when quoting (remove-text-properties beg end ...)) (add-text-properties beg end (quote ...)) (add-text-properties beg beg1 (quote ...)) (add-text-properties end1 (+ end 1) (quote ...)) (cond (... ...) (quoting ...) (...) (... ...) (... ...)) t)
> (cond ((member dc1 ...) (org-remove-flyspell-overlays-in ... ...) (remove-text-properties ... ... ...) (add-text-properties ... ... ...) (add-text-properties ... ... ...) t) ((and ... ...) (setq block-type ... quoting ...) (when ... ... ... ... ... ... ... ... t)) ((member dc1 ...) (add-text-properties beg ... ...) (add-text-properties ... ... ...)) ((not ...) (add-text-properties beg ... ...) t) ((or ... ...) (add-text-properties beg ... ...) t) ((member dc3 ...) (add-text-properties beg ... ...)) (t nil))
> (let ((beg ...) (block-start ...) (block-end nil) (lang ...) (beg1 ...) (dc1 ...) (dc3 ...) end end1 quoting block-type) (cond (... ... ... ... ... t) (... ... ...) (... ... ...) (... ... t) (... ... t) (... ...) (t nil)))
> (if (re-search-forward "^\\([ ]*#\\+\\(\\([a-zA-Z]+:?\\| \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[ ]*\\(\\([^ \n]*\\)[ ]*\\(.*\\)\\)\\)" limit t) (let (... ... ... ... ... ... ... end end1 quoting block-type) (cond ... ... ... ... ... ... ...)))
> (let ((case-fold-search t)) (if (re-search-forward "^\\([ ]*#\\+\\(\\([a-zA-Z]+:?\\| \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[ ]*\\(\\([^ \n]*\\)[ ]*\\(.*\\)\\)\\)" limit t) (let ... ...)))
> org-fontify-meta-lines-and-blocks(2136)
> #[(start end &optional loudly) "\b@\306=\204\v\307\b! \b\211AA)\310 \311\312 \313\211\211\x1c\x1e&'()*)\203\x03+\203@\314\315(\316'T\211'\317\"#\210)@\211@\x0e,b\210`-W\203\373\f;\203`\320\f-\306#\202d\f-!\203\373`\311\224V\204q\321u\210\x13\203\241`\212\311\224b\210\321y\210`)Y\203\241\322`\212\311\224b\210\321y\210`)U\203\232`S\202\234\311\224`\323\306$\210A\211\203K\v@@\247\203~\v@\211.@\211/\224,/\225-\324.80,\204\334\325.8\206x\326\327/.#\202x\330.A@!\2111\242\331=\203\x01\332,-1\211AA)#\2101\211A@)11\204\x010\306=\204\x01\313\202w\x0e0\204.\333,-\331\313$\206w\322,-\3311$\202w\x0e0\306=\203A\322,-\3311$\202w\x0e0\334=\203T\335,-\3311$\202w\x0e0\336=\203g\337,-\3311$\202w\x0e0\340=\205w\341,-\3311$),\210)\202\364\x0e&`\313\223\210\v@-2\211)@\325)\233\313\311\224\330)A@!34\x1e5\x0e3\247\203\260\x0e3`V\204\267\342 2\202\343\x0e32\x13\203\343\x0e2\343\324!Y\203\343\3222\343\324!U\203\331\x0e2S\202\335\x0e4`^2\323\306$\210\344 6\345\216`2W\203\337\f;\203\376\320\f2\306#\202\x02\f2!\203\337\x0e5\211\203\351\v@\211.@\211/\224,/\225-\324.80,\2049\325.8\206\325\326\327/.#\202\325\330.A@!\2111\242\331=\203_\332,-1\211AA)#\2101\211A@)11\204o\x0e0\306=\204o\313\202\324\x0e0\204\213\333,-\331\313$\206\324\322,-\3311$\202\324\x0e0\306=\203\236\322,-\3311$\202\324\x0e0\334=\203\261\335,-\3311$\202\324\x0e0\336=\203\304\337,-\3311$\202\324\x0e0\340=\205\324\341,-\3311$),\210)\vA\211\202 *\330\324)8!-\210*`&W\203\364\x0e&b\210\vA\211\202\245\x0e)A\211)\204,\x0e&\313\211\223.\b\207" [font-lock-keywords font-lock-keywords-case-fold-search x highlights matcher keyword t font-lock-compile-keywords buffer-name 0 make-marker nil message "Fontifying %s... (regexps..%s)" make-string 46 re-search-forward 1 put-text-property font-lock-multiline 2 3 error "No match %d in highlight %S" eval face add-text-properties text-property-not-all prepend font-lock-prepend-text-property append font-lock-append-text-property keep font-lock-fillin-text-property line-end-position line-beginning-position match-data (...) pos count bufname keywords case-fold-search loudly start end highlight match override val ...] 9 2137128](1 2136 nil)
> apply(#[(start end &optional loudly) "\b@\306=\204\v\307\b! \b\211AA)\310 \311\312 \313\211\211\x1c\x1e&'()*)\203\x03+\203@\314\315(\316'T\211'\317\"#\210)@\211@\x0e,b\210`-W\203\373\f;\203`\320\f-\306#\202d\f-!\203\373`\311\224V\204q\321u\210\x13\203\241`\212\311\224b\210\321y\210`)Y\203\241\322`\212\311\224b\210\321y\210`)U\203\232`S\202\234\311\224`\323\306$\210A\211\203K\v@@\247\203~\v@\211.@\211/\224,/\225-\324.80,\204\334\325.8\206x\326\327/.#\202x\330.A@!\2111\242\331=\203\x01\332,-1\211AA)#\2101\211A@)11\204\x010\306=\204\x01\313\202w\x0e0\204.\333,-\331\313$\206w\322,-\3311$\202w\x0e0\306=\203A\322,-\3311$\202w\x0e0\334=\203T\335,-\3311$\202w\x0e0\336=\203g\337,-\3311$\202w\x0e0\340=\205w\341,-\3311$),\210)\202\364\x0e&`\313\223\210\v@-2\211)@\325)\233\313\311\224\330)A@!34\x1e5\x0e3\247\203\260\x0e3`V\204\267\342 2\202\343\x0e32\x13\203\343\x0e2\343\324!Y\203\343\3222\343\324!U\203\331\x0e2S\202\335\x0e4`^2\323\306$\210\344 6\345\216`2W\203\337\f;\203\376\320\f2\306#\202\x02\f2!\203\337\x0e5\211\203\351\v@\211.@\211/\224,/\225-\324.80,\2049\325.8\206\325\326\327/.#\202\325\330.A@!\2111\242\331=\203_\332,-1\211AA)#\2101\211A@)11\204o\x0e0\306=\204o\313\202\324\x0e0\204\213\333,-\331\313$\206\324\322,-\3311$\202\324\x0e0\306=\203\236\322,-\3311$\202\324\x0e0\334=\203\261\335,-\3311$\202\324\x0e0\336=\203\304\337,-\3311$\202\324\x0e0\340=\205\324\341,-\3311$),\210)\vA\211\202 *\330\324)8!-\210*`&W\203\364\x0e&b\210\vA\211\202\245\x0e)A\211)\204,\x0e&\313\211\223.\b\207" [font-lock-keywords font-lock-keywords-case-fold-search x highlights matcher keyword t font-lock-compile-keywords buffer-name 0 make-marker nil message "Fontifying %s... (regexps..%s)" make-string 46 re-search-forward 1 put-text-property font-lock-multiline 2 3 error "No match %d in highlight %S" eval face add-text-properties text-property-not-all prepend font-lock-prepend-text-property append font-lock-append-text-property keep font-lock-fillin-text-property line-end-position line-beginning-position match-data (...) pos count bufname keywords case-fold-search loudly start end highlight match override val ...] 9 2137128] (1 2136 nil))
> elp-wrapper(font-lock-fontify-keywords-region nil (1 2136 nil))
> font-lock-fontify-keywords-region(1 2136 nil)
> #[(beg end loudly) "\b\206\0 \306 \307 \310\211\x1d\310\211\x11\x12\311\211\x13\x14\311\x15\312\216\313\216\214\x16\204+~\210\x17\2035\314\x17!\210\x18\x19\x1a^[\x1c\211\x1d\203b\x0e@ \203T\x0e\x0e=\203Z\x0eA\202\\\x0e\211\x1d\204E\x0e\x16\x0e\x16+\315\x19\x1a\"\210 \203}\316\x19\x1a\"\210\x1e\204\213\317\x19\x1a\x1f#\210\320\x19\x1a\x1f#.\207" [parse-sexp-lookup-properties font-lock-syntactic-keywords old-syntax-table modified buffer-undo-list inhibit-read-only syntax-table buffer-modified-p t nil (...) (...) set-syntax-table font-lock-unfontify-region font-lock-fontify-syntactic-keywords-region font-lock-fontify-syntactically-region font-lock-fontify-keywords-region inhibit-point-motion-hooks inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename font-lock-dont-widen font-lock-syntax-table font-lock-extend-region-functions beg end font-lock-end font-lock-beg funs font-lock-keywords-only loudly] 5](1 2136 nil)
> apply(#[(beg end loudly) "\b\206\0 \306 \307 \310\211\x1d\310\211\x11\x12\311\211\x13\x14\311\x15\312\216\313\216\214\x16\204+~\210\x17\2035\314\x17!\210\x18\x19\x1a^[\x1c\211\x1d\203b\x0e@ \203T\x0e\x0e=\203Z\x0eA\202\\\x0e\211\x1d\204E\x0e\x16\x0e\x16+\315\x19\x1a\"\210 \203}\316\x19\x1a\"\210\x1e\204\213\317\x19\x1a\x1f#\210\320\x19\x1a\x1f#.\207" [parse-sexp-lookup-properties font-lock-syntactic-keywords old-syntax-table modified buffer-undo-list inhibit-read-only syntax-table buffer-modified-p t nil (...) (...) set-syntax-table font-lock-unfontify-region font-lock-fontify-syntactic-keywords-region font-lock-fontify-syntactically-region font-lock-fontify-keywords-region inhibit-point-motion-hooks inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename font-lock-dont-widen font-lock-syntax-table font-lock-extend-region-functions beg end font-lock-end font-lock-beg funs font-lock-keywords-only loudly] 5] (1 2136 nil))
> elp-wrapper(font-lock-default-fontify-region nil (1 2136 nil))
> font-lock-default-fontify-region(1 2136 nil)
> #[(beg end &optional loudly) "\304 \210\b \n\v#\207" [font-lock-fontify-region-function beg end loudly font-lock-set-defaults] 4](1 2136 nil)
> apply(#[(beg end &optional loudly) "\304 \210\b \n\v#\207" [font-lock-fontify-region-function beg end loudly font-lock-set-defaults] 4] (1 2136 nil))
> elp-wrapper(font-lock-fontify-region nil (1 2136 nil))
> font-lock-fontify-region(1 2136 nil)
> byte-code("\212\303 \304\216\305ed #\210\306 \210\307\211+\207" [save-match-data-internal verbose font-lock-fontified match-data ((byte-code "\301\b\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) font-lock-fontify-region font-lock-after-fontify-buffer t] 4)
> #[nil "\b\247\203\f\304 \bV\202\0\b\211\205\0\305\306\307 \"\310^[\311\216\v\203(\312 \313\314\v\"\210\214~\210\310\315\316\217-\207" [font-lock-verbose verbose current-message with-temp-message buffer-size format "Fontifying %s..." buffer-name nil (...) current-message message "%s" (byte-code "\212\303 \304\216\305ed #\210\306 \210\307\211+\207" [save-match-data-internal verbose font-lock-fontified match-data ... font-lock-fontify-region font-lock-after-fontify-buffer t] 4) (...)] 4]()
> apply(#[nil "\b\247\203\f\304 \bV\202\0\b\211\205\0\305\306\307 \"\310^[\311\216\v\203(\312 \313\314\v\"\210\214~\210\310\315\316\217-\207" [font-lock-verbose verbose current-message with-temp-message buffer-size format "Fontifying %s..." buffer-name nil (...) current-message message "%s" (byte-code "\212\303 \304\216\305ed #\210\306 \210\307\211+\207" [save-match-data-internal verbose font-lock-fontified match-data ... font-lock-fontify-region font-lock-after-fontify-buffer t] 4) (...)] 4] nil)
> elp-wrapper(font-lock-default-fontify-buffer nil nil)
> font-lock-default-fontify-buffer()
> #[nil "\302 \210\b\206\n\303\304! )\207" [font-lock-verbose font-lock-fontify-buffer-function font-lock-set-defaults called-interactively-p interactive] 2 2132618 nil]()
> apply(#[nil "\302 \210\b\206\n\303\304! )\207" [font-lock-verbose font-lock-fontify-buffer-function font-lock-set-defaults called-interactively-p interactive] 2 2132618 nil] nil)
> elp-wrapper(font-lock-fontify-buffer nil nil)
> font-lock-fontify-buffer()
> column-marker-internal(column-marker-1 79 column-marker-1-face)
> (cond ((null arg) (column-marker-internal ... ... column-marker-1-face)) ((consp arg) (if ... ... ...)) ((and ... ...) (column-marker-internal ... ... column-marker-1-face)) (t (dolist ... ...)))
> column-marker-1(78)
> (lambda nil (interactive) (column-marker-1 78) (column-marker-2 79) (column-marker-3 80))()
> run-hooks(text-mode-hook outline-mode-hook org-mode-hook)
> apply(run-hooks (text-mode-hook outline-mode-hook org-mode-hook))
> run-mode-hooks(org-mode-hook)
> org-mode()
> (let ((org-inhibit-startup t)) (org-mode))
> (save-current-buffer (set-buffer (get-buffer-create " org-mode-tmp")) (erase-buffer) (insert string) (setq case-fold-search t) (let (...) (remove-text-properties ... ... ...)) (org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search t) (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (untabify (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-preprocess-after-include-files-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)) (org-export-mark-list-ending backend) (org-export-replace-src-segments-and-examples backend) (org-export-protect-colon-examples) (when (plist-get parameters :footnotes) (org-footnote-normalize nil t)) (setq target-alist (org-export-define-heading-targets target-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-hook)) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers) backend) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert ... "\n")) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backend-code-hook)) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless (plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq target-alist (org-export-attach-captions-and-attributes backend target-alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when (plist-get parameters :emph-multiline) (org-export-concatenate-multiline-emphasis)) (org-store-forced-table-alignment) (when org-export-table-remove-special-lines (org-export-remove-special-table-lines)) ...)
> (with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t) (let (...) (remove-text-properties ... ... ...)) (org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search t) (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (untabify (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-preprocess-after-include-files-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)) (org-export-mark-list-ending backend) (org-export-replace-src-segments-and-examples backend) (org-export-protect-colon-examples) (when (plist-get parameters :footnotes) (org-footnote-normalize nil t)) (setq target-alist (org-export-define-heading-targets target-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-hook)) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers) backend) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert ... "\n")) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backend-code-hook)) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless (plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq target-alist (org-export-attach-captions-and-attributes backend target-alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when (plist-get parameters :emph-multiline) (org-export-concatenate-multiline-emphasis)) (org-store-forced-table-alignment) (when org-export-table-remove-special-lines (org-export-remove-special-table-lines)) ...)
> (let* ((htmlp ...) (asciip ...) (latexp ...) (docbookp ...) (backend ...) (archived-trees ...) (inhibit-read-only t) (drawers org-drawers) (outline-regexp "\\*+ ") target-alist rtn) (setq org-export-target-aliases nil org-export-preferred-target-alist nil org-export-id-target-alist nil org-export-code-refs nil) (with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t) (let ... ...) (org-export-kill-licensed-text) (let ... ...) (setq case-fold-search t) (org-install-letbind) (run-hooks ...) (org-export-preprocess-apply-macros) (run-hooks ...) (untabify ... ...) (org-export-handle-include-files-recurse) (run-hooks ...) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags ... ...) (run-hooks ...) (org-export-mark-list-ending backend) (org-export-replace-src-segments-and-examples backend) (org-export-protect-colon-examples) (when ... ...) (setq target-alist ...) (run-hooks ...) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers ... backend) (when ... ... ...) (when ... ... ...) (org-export-remove-headline-metadata parameters) (setq target-alist ...) (run-hooks ...) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks ...) (unless ... ...) (setq target-alist ...) (org-export-mark-radio-links) (run-hooks ...) (org-export-concatenate-multiline-links) (run-hooks ...) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when ... ...) (org-store-forced-table-alignment) (when org-export-table-remove-special-lines ...) ...) (kill-buffer " org-mode-tmp") rtn)
> org-export-preprocess-string(#("#+TITLE: Emacs Color Theme Test File\n#+STARTUP: content\n#+TAGS: Home(h) School(s) Computer(c)\n\n* Tasks\n\nLorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod\ntempor incididunt ut labore et dolore magna aliqua.\n\nUt enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut\naliquip ex ea commodo consequat.\n\n** TODO Task 1 :Home:\n SCHEDULED: <2010-10-08 Fri>\n\nDuis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore\neu fugiat nulla pariatur.\n\n** DONE Task 2 :School:\n DEADLINE: <2010-10-26 Tue>\n :LOGBOOK:\n - State \"DONE\" from \"\" [2010-10-22 Fri 21:57]\n :END:\n\nDeserunt =mollit= anim ~id~ est laborum:\n\n#+begin_src sql\nSELECT top 10 *\nFROM table\nWHERE price > 0\n#+end_src\n\n** TODO Task 3 :School:Computer:\n [2010-10-26 Tue]\n\nExcepteur sint occaecat cupidatat non proident, sunt in culpa qui officia:\n\n| *Date* | *Price* |\n|---------+---------|\n| You | 18.90 |\n| Me | 89.99 |\n|---------+---------|\n| *Total* | 108.89 |\n#+TBLFM: @4$2=vsum(@-I..@-II)\n\n* Headline 1\n\n#+BEGIN_QUOTE\nLorem ipsum dolor sit amet, consectetur adipiscing elit. Fusce vel leo odio,\nnon adipiscing mi. Etiam aliquet nibh sed nisl malesuada adipiscing. Donec\nmollis, turpis a faucibus consequat, ipsum magna molestie purus, eget\nfringilla urna leo ac urna. Ut condimentum, dolor\n#+END_QUOTE\n\n** Headline 2\n\n- Quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo\n consequat.\n- Quid\n + Cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat\n non proident, sunt in culpa qui officia deserunt mollit anim id est\n laborum.\n + Etc.\n- Duis aute irure dolor in reprehenderit in voluptate velit esse.\n\n*** Headline 3\n\nCurabitur vehicula interdum erat ut varius. Sed ut enim tortor, nec rutrum\nurna. Phasellus mauris velit, laoreet id pharetra vitae, convallis sit amet\nleo. Mauris posuere porta nunc in consectetur. Nullam ut nulla sed nisi\nfacilisis scelerisque quis ac nisi.\n" 0 8 (font-lock-fontified t fontified t face org-document-info-keyword) 8 9 (fontified t face font-lock-comment-face) 9 36 (font-lock-fontified t fontified t face org-document-title) 36 37 (fontified t) 37 55 (font-lock-fontified t fontified t face org-meta-line) 55 56 (fontified t) 56 93 (font-lock-fontified t fontified t face org-meta-line) 93 95 (fontified t) 95 97 (fontified t face org-level-1) 97 102 (fontified t face org-level-1) 102 339 (fontified t) 339 340 (fontified t face org-level-2) 340 342 (fontified t face org-level-2) 342 346 (fontified t face org-todo) 346 410 (fontified t face org-level-2) 410 415 (fontified t face (org-tag org-level-2) org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 415 416 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t face (org-tag org-level-2) org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 416 420 (fontified t) 420 430 (fontified t face org-special-keyword) 430 431 (fontified t) 431 446 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 446 447 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 447 471 (fontified t) 471 473 (fontified t) 473 488 (fontified t) 488 490 (fontified t) 490 526 (fontified t) 526 552 (fontified t) 552 553 (fontified t) 553 554 (fontified t face org-level-2) 554 556 (fontified t face org-level-2) 556 560 (fontified t face org-done) 560 622 (fontified t face org-headline-done) 622 629 (fontified t face org-headline-done org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 629 630 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t face org-headline-done org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 630 634 (fontified t) 634 643 (fontified t face org-special-keyword) 643 644 (fontified t) 644 659 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 659 660 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 660 661 (fontified t) 661 673 (fontified t face org-special-keyword) 673 679 (fontified t) 679 684 (fontified t) 684 698 (fontified t) 698 702 (fontified t) 702 716 (fontified t) 716 737 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 737 738 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 738 739 (fontified t) 739 743 (fontified t face org-special-keyword) 743 746 (fontified t face org-special-keyword) 746 747 (fontified t face org-special-keyword) 747 757 (fontified t) 757 758 (fontified t org-no-flyspell t) 758 766 (fontified t face (org-code) org-no-flyspell t font-lock-multiline t org-emphasis t) 766 767 (fontified t org-no-flyspell t) 767 771 (fontified t) 771 772 (fontified t org-no-flyspell t) 772 776 (fontified t face (org-verbatim) org-no-flyspell t font-lock-multiline t org-emphasis t) 776 777 (fontified t org-no-flyspell t) 777 791 (fontified t) 791 803 (font-lock-fontified t fontified t face org-meta-line font-lock-multiline t) 803 806 (font-lock-fontified t fontified t face org-meta-line font-lock-multiline t) 806 807 (font-lock-fontified t fontified t font-lock-multiline t face nil) 807 808 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 808 813 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 813 814 (font-lock-fontified t fontified t font-lock-multiline t face nil) 814 823 (font-lock-fontified t fontified t font-lock-multiline t face nil) 823 824 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 824 827 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 827 828 (font-lock-fontified t fontified t font-lock-multiline t face nil) 828 829 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 829 833 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 833 834 (font-lock-fontified t fontified t font-lock-multiline t face nil) 834 835 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 835 839 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 839 840 (font-lock-fontified t fontified t font-lock-multiline t face font-lock-keyword-face) 840 849 (font-lock-fontified t fontified t font-lock-multiline t) 849 850 (font-lock-fontified t fontified t font-lock-multiline t) 850 859 (font-lock-fontified t fontified t face org-meta-line font-lock-multiline t) 859 860 (fontified t face org-meta-line) 860 861 (fontified t) 861 862 (fontified t face org-level-2) 862 864 (fontified t face org-level-2) 864 868 (fontified t face org-todo) 868 921 (fontified t face org-level-2) 921 937 (fontified t face (org-tag org-level-2) org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 937 938 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t face (org-tag org-level-2) org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 938 942 (fontified t) 942 957 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 957 958 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 958 1013 (fontified t) 1013 1015 (fontified t) 1015 1035 (fontified t) 1035 1036 (fontified t) 1036 1038 (fontified t face org-table) 1038 1039 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1039 1043 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1043 1044 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1044 1048 (fontified t face org-table) 1048 1055 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1055 1057 (fontified t face org-table) 1057 1058 (fontified t) 1058 1059 (fontified t face org-table) 1059 1065 (fontified t face org-table) 1065 1069 (fontified t face (org-latex-and-export-specials org-table) font-lock-multiline t) 1069 1075 (fontified t face org-table) 1075 1079 (fontified t face (org-latex-and-export-specials org-table) font-lock-multiline t) 1079 1080 (fontified t) 1080 1101 (fontified t face org-table) 1101 1102 (fontified t) 1102 1123 (fontified t face org-table) 1123 1124 (fontified t) 1124 1125 (fontified t face org-table) 1125 1131 (fontified t face org-table) 1131 1135 (fontified t face (org-latex-and-export-specials org-table) font-lock-multiline t) 1135 1141 (fontified t face org-table) 1141 1145 (fontified t face (org-latex-and-export-specials org-table) font-lock-multiline t) 1145 1146 (fontified t) 1146 1148 (fontified t face org-table) 1148 1155 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1155 1167 (fontified t face org-table) 1167 1168 (fontified t) 1168 1197 (fontified t font-lock-fontified t face org-meta-line) 1197 1199 (fontified t) 1199 1201 (fontified t face org-level-1) 1201 1211 (fontified t face org-level-1) 1211 1213 (fontified t) 1213 1226 (fontified t font-lock-fontified t face org-meta-line font-lock-multiline t) 1226 1227 (fontified t font-lock-fontified t font-lock-multiline t) 1227 1498 (fontified t font-lock-fontified t font-lock-multiline t) 1498 1499 (fontified t font-lock-fontified t font-lock-multiline t) 1499 1510 (fontified t font-lock-fontified t face org-meta-line font-lock-multiline t) 1510 1511 (fontified t face org-meta-line) 1511 1512 (fontified t) 1512 1513 (fontified t face org-level-2) 1513 1515 (fontified t face org-level-2) 1515 1525 (fontified t face org-level-2) 1525 1601 (fontified t) 1601 1859 (fontified nil) 1859 1860 (fontified nil) 1860 1862 (fontified nil face org-level-3) 1862 1864 (fontified nil face org-level-3) 1864 1874 (fontified nil face org-level-3) 1874 2135 (fontified nil)) :emph-multiline t :for-html t :skip-before-1st-heading nil :drawers nil :todo-keywords t :tags not-in-toc :priority nil :footnotes t :timestamps t :archived-trees headline :select-tags ("export") :exclude-tags ("noexport") :add-text nil :LaTeX-fragments t)
> (org-split-string (org-export-preprocess-string region :emph-multiline t :for-html t :skip-before-1st-heading (plist-get opt-plist :skip-before-1st-heading) :drawers (plist-get opt-plist :drawers) :todo-keywords (plist-get opt-plist :todo-keywords) :tags (plist-get opt-plist :tags) :priority (plist-get opt-plist :priority) :footnotes (plist-get opt-plist :footnotes) :timestamps (plist-get opt-plist :timestamps) :archived-trees (plist-get opt-plist :archived-trees) :select-tags (plist-get opt-plist :select-tags) :exclude-tags (plist-get opt-plist :exclude-tags) :add-text (plist-get opt-plist :text) :LaTeX-fragments (plist-get opt-plist :LaTeX-fragments)) "[\n]")
> (let* ((opt-plist ...) (body-only ...) (style ...) (html-extension ...) (link-validate ...) valid thetoc have-headings first-heading-pos (odd org-odd-levels-only) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...) (level-offset ...) (opt-plist ...) (org-current-export-dir ...) (org-current-export-file buffer-file-name) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (filename ...) (current-dir ...) (buffer ...) (org-levels-open ...) (date ...) (author ...) (title ...) (link-up ...) (link-home ...) (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) (inquote nil) (infixed nil) (inverse nil) (in-local-list nil) (local-list-type nil) (local-list-indent nil) (llt org-plain-list-ordered-item-terminator) (email ...) (language ...) (keywords ...) (description ...) (lang-words nil) ...) (let (...) (org-unmodified ...)) (message "Exporting...") (setq org-min-level (org-get-min-level lines level-offset)) (setq org-last-level org-min-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer)) (fundamental-mode) (org-install-letbind) (and (fboundp ...) (set-buffer-file-coding-system coding-system-for-write)) (let (... ...) (mapc ... org-export-plist-vars) (setq umax ...) (setq umax-toc ...) (unless body-only ... ... ...) (if ... ...) (setq head-count 0) (org-init-section-numbers) (org-open-par) (while ... ...) (when inquote ... ...) (org-html-level-start 1 nil umax ... head-count) (when ... ...) (save-excursion ... ...) (when footnotes ...) (let ... ...) (unless body-only ... ... ... ...) (unless ... ... ...) (goto-char ...) (when thetoc ... ... ... ...) (goto-char ...) (while ... ...) (goto-char ...) (while ... ...) (goto-char ...) (goto-char ...) (let ... ...) (goto-char ...) (when ... ...) (remove-text-properties ... ... ...) (run-hooks ...) (or to-buffer ...) (goto-char ...) (or ... ...) (if ... ... ...)))
> org-export-as-html(nil hidden)
> org-export-as-html-and-open(nil)
> call-interactively(org-export-as-html-and-open)
> (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sentinel p ...) (message "Background process \"%s\": started" p)) (if subtree-p (progn ... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (let ... ... ... ... ...)))
> (let* ((bg ...) subtree-p (help "[t] insert the export option template\n[v] limit export to visible part of outline tree\n[1] only export the current subtree\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EXPORT_FILE_NAME prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8 [A/N/U] to temporary buffer\n\n[h] export as HTML [H] to temporary buffer [R] export region\n[b] export as HTML and open in browser\n\n[l] export as LaTeX [L] to temporary buffer\n[p] export as LaTeX and process to PDF [d] ... and open PDF file\n\n[D] export as DocBook [V] export as DocBook, process to PDF, and open\n\n[j] export as TaskJuggler [J] ... and open\n\n[m] export as Freemind mind map\n[x] export as XOXO\n[g] export using Wes Hardaker's generic exporter\n\n[i] export current file as iCalendar file\n[I] export all agenda files as iCalendar files [c] ...as one combined file\n\n[F] publish current file [P] publish current project\n[X] publish a project... [E] publish every projects") (cmds ...) r1 r2 ass (cpos ...) (cbuf ...) bpos) (save-excursion (save-window-excursion ... ... ... ... ... ... ...)) (and bpos (goto-char bpos)) (setq r2 (if ... ... r1)) (unless (setq ass ...) (error "No command associated with key %c" r1)) (if (and bg ... ... ...) (let ... ... ...) (if subtree-p ...) (call-interactively ...) (when ... ...)))
> org-export(nil)
> call-interactively(org-export nil nil)
> recursive-edit()
> byte-code("\306 @\307=\203!\310\311\312\"\210\313\311!\211A@)\242\314=\203!\310\315\312\"\210\316\v!\210\317 \210\320 !\210\f\203d\321ed\"V\203Web\210\322\245y\210`^[db\210\322\245Zy\210^[`|\210)\323c\210eb\210\324\325\326 \"\210\327\306!\210\324\330!\210\331\312\x1c\x1d\324\330!\210\212\332 \210+\331\207" [unread-command-char debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output] 4)
> debug(error (wrong-type-argument integer-or-marker-p nil))
> goto-char(nil)
> (progn (goto-char isearch-other-end))
> (if isearch-forward (progn (goto-char isearch-other-end)))
> (when isearch-forward (goto-char isearch-other-end))
> custom-goto-match-beginning()
> run-hooks(isearch-mode-end-hook)
> isearch-done()
> isearch-other-control-char(nil)
> call-interactively(isearch-other-control-char nil nil)
>
> The only code block I have in that file is a 3-line SQL src. Though, I have
> sql-mode loaded... hence why such a message?
>
> BTW, I "never" asked for the org-src-fontification for one sole reason: as
> reported, since that change, I don't benefit anymore of the #+BEGIN_SRC line
> being fontified up to the end of the screen (i.e., not limited up to the last
> character on that line = C-e).
>
> Why is it on?
>
> org-src-fontify-natively is a variable defined in `org.el'.
> Its value is t
>
> Documentation:
> When non-nil, fontify code in code blocks.
>
> You can customize this variable.
>
> [back]
>
> I've seen the culprit:
>
> (setq org-src-fontify-natively t)
>
> line 221 of epresent.el.
>
> I don't mind that much: it allowed this problem to pop up.
>
> Best regards,
> Seb
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2010-10-28 22:55 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-10-28 19:51 [Babel] Bug with org-src-fontify-natively... after running epresent Sébastien Vauban
2010-10-28 22:55 ` Eric Schulte
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).