[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] [Babel] Bug with org-src-fontify-natively... after running epr
From: |
Sébastien Vauban |
Subject: |
[Orgmode] [Babel] Bug with org-src-fontify-natively... after running epresent |
Date: |
Thu, 28 Oct 2010 21:51:00 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (windows-nt) |
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) "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$\210
A\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$\210
A\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 =\203Z A\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 =\203Z A\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\203W eb\210\322
\245y\210`db\210\322
\245
Zy\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)
--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
- [Orgmode] [Babel] Bug with org-src-fontify-natively... after running epresent,
Sébastien Vauban <=