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 <wxhgmqzgw...@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) "...@\306=\204\307! \211AA)\310 > \311\312 > \313\211\211&'()*)\203+\...@\314\315(\316'T\211'\317\"#\210)@\...@,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@@\247\20...@\211.@\211/\224,/\225-\324.80,\204\334\325.8\206x\326\327/.#\202x\33...@!\2111\242\331=\203\332,-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&`\313\223\2...@-2\211)@\325)\233\313\311\224\330)a...@!3453\247\203\2603`v\204\267\342 > > 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;\203\376\320\f2\306#\202\f2!\203\3375\211\203\3...@\211.@\211/\224,/\225-\324.80,\2049\325.8\206\325\326\327/.#\202\325\33...@!\2111\242\331=\203_\332,-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) "...@\306=\204\307! \211AA)\310 > \311\312 > \313\211\211&'()*)\203+\...@\314\315(\316'T\211'\317\"#\210)@\...@,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@@\247\20...@\211.@\211/\224,/\225-\324.80,\204\334\325.8\206x\326\327/.#\202x\33...@!\2111\242\331=\203\332,-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&`\313\223\2...@-2\211)@\325)\233\313\311\224\330)a...@!3453\247\203\2603`v\204\267\342 > > 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;\203\376\320\f2\306#\202\f2!\203\3375\211\203\3...@\211.@\211/\224,/\225-\324.80,\2049\325.8\206\325\326\327/.#\202\325\33...@!\2111\242\331=\203_\332,-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(@-...@-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!\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 _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode