[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] [Babel] Bug with org-src-fontify-natively... after running
From: |
Eric Schulte |
Subject: |
Re: [Orgmode] [Babel] Bug with org-src-fontify-natively... after running epresent |
Date: |
Thu, 28 Oct 2010 16:55:28 -0600 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) |
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 <address@hidden> 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) "address@hidden \211AA)\310 \311\312
> \313\211\211&'()*)address@hidden(\316'T\211'\317\"#\210)@address@hidden,b\210`-W\203\373\f;\203`\320\f-\306#\202d\f-!\203\373`\311\224V\204q\321u\210\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@@address@hidden@\211/\224,/\225-\324.80,\204\334\325.8\206x\326\327/address@hidden,-1\211AA)#\2101\211A@)11\2040\306=\204\313\202w0\204.\333,-\331\313$\206w\322,-\3311$\202w0\306=\203A\322,-\3311$\202w0\334=\203T\335,-\3311$\202w0\336=\203g\337,-\3311$\202w0\340=\205w\341,-\3311$),\210)\202\364&address@hidden)@\325)\233\313\311\224\330)address@hidden
>
> 2\202\34332\203\3432\343\324!Y\203\343\3222\343\324!U\203\3312S\202\3354`^2\323\306$\210\344
>
> 6\345\216`2W\203\337\f;address@hidden@\211/\224,/\225-\324.80,\2049\325.8\206\325\326\327/address@hidden,-1\211AA)#\2101\211A@)11\204o0\306=\204o\313\202\3240\204\213\333,-\331\313$\206\324\322,-\3311$\202\3240\306=\203\236\322,-\3311$\202\3240\334=\203\261\335,-\3311$\202\3240\336=\203\304\337,-\3311$\202\3240\340=\205\324\341,-\3311$),\210)A\211\202
>
> *\330\324)8!-\210*`&W\203\364&b\210A\211\202\245)A\211)\204,&\313\211\223.\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) "address@hidden \211AA)\310
> \311\312
> \313\211\211&'()*)address@hidden(\316'T\211'\317\"#\210)@address@hidden,b\210`-W\203\373\f;\203`\320\f-\306#\202d\f-!\203\373`\311\224V\204q\321u\210\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@@address@hidden@\211/\224,/\225-\324.80,\204\334\325.8\206x\326\327/address@hidden,-1\211AA)#\2101\211A@)11\2040\306=\204\313\202w0\204.\333,-\331\313$\206w\322,-\3311$\202w0\306=\203A\322,-\3311$\202w0\334=\203T\335,-\3311$\202w0\336=\203g\337,-\3311$\202w0\340=\205w\341,-\3311$),\210)\202\364&address@hidden)@\325)\233\313\311\224\330)address@hidden
>
> 2\202\34332\203\3432\343\324!Y\203\343\3222\343\324!U\203\3312S\202\3354`^2\323\306$\210\344
>
> 6\345\216`2W\203\337\f;address@hidden@\211/\224,/\225-\324.80,\2049\325.8\206\325\326\327/address@hidden,-1\211AA)#\2101\211A@)11\204o0\306=\204o\313\202\3240\204\213\333,-\331\313$\206\324\322,-\3311$\202\3240\306=\203\236\322,-\3311$\202\3240\334=\203\261\335,-\3311$\202\3240\336=\203\304\337,-\3311$\202\3240\340=\205\324\341,-\3311$),\210)A\211\202
>
> *\330\324)8!-\210*`&W\203\364&b\210A\211\202\245)A\211)\204,&\313\211\223.\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) "\206 \306 \307
> \310\211\310\211\311\211\311\312\216\313\216\214\204+~\210\2035\314!\210\211\203b@
> \203T=\203ZA\202\\\211\204E+\315\"\210
> \203}\316\"\210\204\213\317#\210\320#.\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) "\206 \306 \307
> \310\211\310\211\311\211\311\312\216\313\216\214\204+~\210\2035\314!\210\211\203b@
> \203T=\203ZA\202\\\211\204E+\315\"\210
> \203}\316\"\210\204\213\317#\210\320#.\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 \n#\207"
> [font-lock-fontify-region-function beg end loudly font-lock-set-defaults]
> 4](1 2136 nil)
> apply(#[(beg end &optional loudly) "\304 \210 \n#\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\302\"\207" [save-match-data-internal set-match-data evaporate] 3))
> font-lock-fontify-region font-lock-after-fontify-buffer t] 4)
> #[nil "\247\203\f\304 V\202 \211\205 \305\306\307
> \"\310\311\216\203(\312 \313\314\"\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 "\247\203\f\304 V\202 \211\205 \305\306\307
> \"\310\311\216\203(\312 \313\314\"\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\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\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(@address@hidden)\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!\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\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