From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Eric Schulte" Subject: Re: [Babel] Bug with org-src-fontify-natively... after running epresent Date: Thu, 28 Oct 2010 16:55:28 -0600 Message-ID: <87lj5ic4gv.fsf@gmail.com> References: <80hbg66qqj.fsf@mundaneum.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from [140.186.70.92] (port=50844 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PBbNp-0001zB-HV for emacs-orgmode@gnu.org; Thu, 28 Oct 2010 18:55:50 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PBbNl-0003Uu-AI for emacs-orgmode@gnu.org; Thu, 28 Oct 2010 18:55:45 -0400 Received: from mail-iw0-f169.google.com ([209.85.214.169]:58070) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PBbNl-0003Ud-1j for emacs-orgmode@gnu.org; Thu, 28 Oct 2010 18:55:41 -0400 Received: by iwn38 with SMTP id 38so2041158iwn.0 for ; Thu, 28 Oct 2010 15:55:40 -0700 (PDT) In-Reply-To: <80hbg66qqj.fsf@mundaneum.com> (=?utf-8?Q?=22S=C3=A9bastien?= Vauban"'s message of "Thu, 28 Oct 2010 21:51:00 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: =?utf-8?Q?S=C3=A9bastien?= Vauban Cc: emacs-orgmode@gnu.org 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=C3=A9bastien Vauban 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=C2=A0;-)). > > 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-regio= n (point-min) (point-max)) (insert string) (unless (eq major-mode lang-mode= ) (funcall lang-mode)) (font-lock-fontify-buffer) (setq pos (point-min)) (w= hile (setq next ...) (put-text-property ... ... ... ... org-buffer) (setq p= os next))) > (with-current-buffer (get-buffer-create (concat " org-src-fontification= :" ...)) (delete-region (point-min) (point-max)) (insert string) (unless (e= q major-mode lang-mode) (funcall lang-mode)) (font-lock-fontify-buffer) (se= tq 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-t= ext-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-b= lock lang block-start block-end)) (quoting (add-text-properties beg1 ... ..= .)) ((not org-fontify-quote-and-verse-blocks)) ((string=3D block-type "quot= e") (add-text-properties beg1 end1 ...)) ((string=3D block-type "verse") (a= dd-text-properties beg1 end1 ...))) > (progn (setq end (match-end 0) end1 (1- ...)) (setq block-end (match-be= ginning 0)) (when quoting (remove-text-properties beg end ...)) (add-text-p= roperties 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) (pro= gn (setq end ... end1 ...) (setq block-end ...) (when quoting ...) (add-tex= t-properties beg end ...) (add-text-properties beg beg1 ...) (add-text-prop= erties end1 ... ...) (cond ... ... ... ... ...) t)) > (when (re-search-forward (concat "^[ ]*#\\+end" ... "\\>.*") nil t) (s= etq 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-prop= erties end1 (+ end 1) (quote ...)) (cond (... ...) (quoting ...) (...) (...= ...) (... ...)) t) > (cond ((member dc1 ...) (org-remove-flyspell-overlays-in ... ...) (remo= ve-text-properties ... ... ...) (add-text-properties ... ... ...) (add-text= -properties ... ... ...) t) ((and ... ...) (setq block-type ... quoting ...= ) (when ... ... ... ... ... ... ... ... t)) ((member dc1 ...) (add-text-pro= perties beg ... ...) (add-text-properties ... ... ...)) ((not ...) (add-tex= t-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) (le= t (... ... ... ... ... ... ... 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=3D\204=0B\307! \211AA)\310 \31= 1\312 \313\211\211=1C=1E&'()*)\203=03+\203@\314\315(\316'T\211'\317\"#\210)= @\211@=0E,b\210`-W\203\373\f;\203`\320\f-\306#\202d\f-!\203\373`\311\224V\2= 04q\321u\210=13\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=0B@@= \247\203~=0B@\211.@\211/\224,/\225-\324.80,\204\334\325.8\206x\326\327/.#\2= 02x\330.A@!\2111\242\331=3D\203=01\332,-1\211AA)#\2101\211A@)11\204=010\306= =3D\204=01\313\202w=0E0\204.\333,-\331\313$\206w\322,-\3311$\202w=0E0\306= =3D\203A\322,-\3311$\202w=0E0\334=3D\203T\335,-\3311$\202w=0E0\336=3D\203g\= 337,-\3311$\202w=0E0\340=3D\205w\341,-\3311$),\210)\202\364=0E&`\313\223\21= 0=0B@-2\211)@\325)\233\313\311\224\330)A@!34=1E5=0E3\247\203\260=0E3`V\204\= 267\342 2\202\343=0E32=13\203\343=0E2\343\324!Y\203\343\3222\343\324!U\203\= 331=0E2S\202\335=0E4`^2\323\306$\210\344 6\345\216`2W\203\337\f;\203\376\32= 0\f2\306#\202=02\f2!\203\337=0E5\211\203\351=0B@\211.@\211/\224,/\225-\324.= 80,\2049\325.8\206\325\326\327/.#\202\325\330.A@!\2111\242\331=3D\203_\332,= -1\211AA)#\2101\211A@)11\204o=0E0\306=3D\204o\313\202\324=0E0\204\213\333,-= \331\313$\206\324\322,-\3311$\202\324=0E0\306=3D\203\236\322,-\3311$\202\32= 4=0E0\334=3D\203\261\335,-\3311$\202\324=0E0\336=3D\203\304\337,-\3311$\202= \324=0E0\340=3D\205\324\341,-\3311$),\210)=0BA\211\202 *\330\324)8!-\210*`&= W\203\364=0E&b\210=0BA\211\202\245=0E)A\211)\204,=0E&\313\211\223.\207" [f= ont-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-tex= t-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-t= ext-property append font-lock-append-text-property keep font-lock-fillin-te= xt-property line-end-position line-beginning-position match-data (...) pos = count bufname keywords case-fold-search loudly start end highlight match ov= erride val ...] 9 2137128](1 2136 nil) > apply(#[(start end &optional loudly) "@\306=3D\204=0B\307! \211AA)\3= 10 \311\312 \313\211\211=1C=1E&'()*)\203=03+\203@\314\315(\316'T\211'\317\"= #\210)@\211@=0E,b\210`-W\203\373\f;\203`\320\f-\306#\202d\f-!\203\373`\311\= 224V\204q\321u\210=13\203\241`\212\311\224b\210\321y\210`)Y\203\241\322`\21= 2\311\224b\210\321y\210`)U\203\232`S\202\234\311\224`\323\306$\210A\211\203= K=0B@@\247\203~=0B@\211.@\211/\224,/\225-\324.80,\204\334\325.8\206x\326\32= 7/.#\202x\330.A@!\2111\242\331=3D\203=01\332,-1\211AA)#\2101\211A@)11\204= =010\306=3D\204=01\313\202w=0E0\204.\333,-\331\313$\206w\322,-\3311$\202w= =0E0\306=3D\203A\322,-\3311$\202w=0E0\334=3D\203T\335,-\3311$\202w=0E0\336= =3D\203g\337,-\3311$\202w=0E0\340=3D\205w\341,-\3311$),\210)\202\364=0E&`\3= 13\223\210=0B@-2\211)@\325)\233\313\311\224\330)A@!34=1E5=0E3\247\203\260= =0E3`V\204\267\342 2\202\343=0E32=13\203\343=0E2\343\324!Y\203\343\3222\343= \324!U\203\331=0E2S\202\335=0E4`^2\323\306$\210\344 6\345\216`2W\203\337\f;= \203\376\320\f2\306#\202=02\f2!\203\337=0E5\211\203\351=0B@\211.@\211/\224,= /\225-\324.80,\2049\325.8\206\325\326\327/.#\202\325\330.A@!\2111\242\331= =3D\203_\332,-1\211AA)#\2101\211A@)11\204o=0E0\306=3D\204o\313\202\324=0E0\= 204\213\333,-\331\313$\206\324\322,-\3311$\202\324=0E0\306=3D\203\236\322,-= \3311$\202\324=0E0\334=3D\203\261\335,-\3311$\202\324=0E0\336=3D\203\304\33= 7,-\3311$\202\324=0E0\340=3D\205\324\341,-\3311$),\210)=0BA\211\202 *\330\3= 24)8!-\210*`&W\203\364=0E&b\210=0BA\211\202\245=0E)A\211)\204,=0E&\313\211\= 223.\207" [font-lock-keywords font-lock-keywords-case-fold-search x highli= ghts matcher keyword t font-lock-compile-keywords buffer-name 0 make-marker= nil message "Fontifying %s... (regexps..%s)" make-string 46 re-search-forw= ard 1 put-text-property font-lock-multiline 2 3 error "No match %d in highl= ight %S" eval face add-text-properties text-property-not-all prepend font-l= ock-prepend-text-property append font-lock-append-text-property keep font-l= ock-fillin-text-property line-end-position line-beginning-position match-da= ta (...) pos count bufname keywords case-fold-search loudly start end highl= ight 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=00 \306 \307 \310\211=1D\310\211=11=12\311\21= 1=13=14\311=15\312\216\313\216\214=16\204+~\210=17\2035\314=17!\210=18=19= =1A=1B=1C\211=1D\203b=0E@ \203T=0E=0E=3D\203Z=0EA\202\\=0E\211=1D\204E=0E= =16=0E=16+\315=19=1A\"\210 \203}\316=19=1A\"\210=1E\204\213\317=19=1A=1F#\2= 10\320=19=1A=1F#.\207" [parse-sexp-lookup-properties font-lock-syntactic-ke= ywords old-syntax-table modified buffer-undo-list inhibit-read-only syntax-= table buffer-modified-p t nil (...) (...) set-syntax-table font-lock-unfont= ify-region font-lock-fontify-syntactic-keywords-region font-lock-fontify-sy= ntactically-region font-lock-fontify-keywords-region inhibit-point-motion-h= ooks inhibit-modification-hooks deactivate-mark buffer-file-name buffer-fil= e-truename font-lock-dont-widen font-lock-syntax-table font-lock-extend-reg= ion-functions beg end font-lock-end font-lock-beg funs font-lock-keywords-o= nly loudly] 5](1 2136 nil) > apply(#[(beg end loudly) "\206=00 \306 \307 \310\211=1D\310\211=11=12\= 311\211=13=14\311=15\312\216\313\216\214=16\204+~\210=17\2035\314=17!\210= =18=19=1A=1B=1C\211=1D\203b=0E@ \203T=0E=0E=3D\203Z=0EA\202\\=0E\211=1D\204= E=0E=16=0E=16+\315=19=1A\"\210 \203}\316=19=1A\"\210=1E\204\213\317=19=1A= =1F#\210\320=19=1A=1F#.\207" [parse-sexp-lookup-properties font-lock-syntac= tic-keywords old-syntax-table modified buffer-undo-list inhibit-read-only s= yntax-table buffer-modified-p t nil (...) (...) set-syntax-table font-lock-= unfontify-region font-lock-fontify-syntactic-keywords-region font-lock-font= ify-syntactically-region font-lock-fontify-keywords-region inhibit-point-mo= tion-hooks inhibit-modification-hooks deactivate-mark buffer-file-name buff= er-file-truename font-lock-dont-widen font-lock-syntax-table font-lock-exte= nd-region-functions beg end font-lock-end font-lock-beg funs font-lock-keyw= ords-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=0B#\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=0B#\207" [font-lock-f= ontify-region-function beg end loudly font-lock-set-defaults] 4] (1 2136 ni= l)) > 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-m= atch-data-internal verbose font-lock-fontified match-data ((byte-code "\301= \302\"\207" [save-match-data-internal set-match-data evaporate] 3)) font-l= ock-fontify-region font-lock-after-fontify-buffer t] 4) > #[nil "\247\203\f\304 V\202=00\211\205=00\305\306\307 \"\310=1B\311\= 216=0B\203(\312 \313\314=0B\"\210\214~\210\310\315\316\217-\207" [font-lock= -verbose verbose current-message with-temp-message buffer-size format "Font= ifying %s..." buffer-name nil (...) current-message message "%s" (byte-code= "\212\303 \304\216\305ed #\210\306 \210\307\211+\207" [save-match-data-int= ernal verbose font-lock-fontified match-data ... font-lock-fontify-region f= ont-lock-after-fontify-buffer t] 4) (...)] 4]() > apply(#[nil "\247\203\f\304 V\202=00\211\205=00\305\306\307 \"\310= =1B\311\216=0B\203(\312 \313\314=0B\"\210\214~\210\310\315\316\217-\207" [f= ont-lock-verbose verbose current-message with-temp-message buffer-size form= at "Fontifying %s..." buffer-name nil (...) current-message message "%s" (b= yte-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-f= ontify-buffer-function font-lock-set-defaults called-interactively-p intera= ctive] 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) (co= lumn-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 (...) (o= rg-mode)) (setq case-fold-search t) (org-install-letbind) (run-hooks (quote= org-export-preprocess-hook)) (org-export-preprocess-apply-macros) (run-hoo= ks (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-t= rees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-e= xport-handle-export-tags (plist-get parameters :select-tags) (plist-get par= ameters :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) (whe= n (plist-get parameters :footnotes) (org-footnote-normalize nil t)) (setq t= arget-alist (org-export-define-heading-targets target-alist)) (run-hooks (q= uote org-export-preprocess-after-headline-targets-hook)) (org-export-rememb= er-html-container-classes) (org-export-remove-or-extract-drawers drawers (p= list-get parameters :drawers) backend) (when (plist-get parameters :skip-be= fore-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-invisi= ble-targets target-alist)) (run-hooks (quote org-export-preprocess-before-s= electing-backend-code-hook)) (org-export-select-backend-specific-text backe= nd) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (o= rg-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-= hooks (quote org-export-preprocess-after-blockquote-hook)) (unless (plist-g= et parameters :timestamps) (org-export-remove-timestamps)) (setq target-ali= st (org-export-attach-captions-and-attributes backend target-alist)) (org-e= xport-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 pa= rameters :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-properti= es ... ... ...)) (org-export-kill-licensed-text) (let (...) (org-mode)) (se= tq case-fold-search t) (org-install-letbind) (run-hooks (quote org-export-p= reprocess-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-prepr= ocess-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 :excl= ude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hoo= k)) (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-expo= rt-preprocess-after-headline-targets-hook)) (org-export-remember-html-conta= iner-classes) (org-export-remove-or-extract-drawers drawers (plist-get para= meters :drawers) backend) (when (plist-get parameters :skip-before-1st-head= ing) (goto-char ...) (when ... ... ... ...)) (when (plist-get parameters :a= dd-text) (goto-char ...) (insert ... "\n")) (org-export-remove-headline-met= adata parameters) (setq target-alist (org-export-handle-invisible-targets t= arget-alist)) (run-hooks (quote org-export-preprocess-before-selecting-back= end-code-hook)) (org-export-select-backend-specific-text backend) (org-expo= rt-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-pro= tect-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-expor= t-attach-captions-and-attributes backend target-alist)) (org-export-mark-ra= dio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook= )) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-pr= eprocess-before-normalizing-links-hook)) (org-export-normalize-links) (org-= export-target-internal-links target-alist) (when (plist-get parameters :emp= h-multiline) (org-export-concatenate-multiline-emphasis)) (org-store-forced= -table-alignment) (when org-export-table-remove-special-lines (org-export-r= emove-special-table-lines)) ...) > (let* ((htmlp ...) (asciip ...) (latexp ...) (docbookp ...) (backend ..= .) (archived-trees ...) (inhibit-read-only t) (drawers org-drawers) (outlin= e-regexp "\\*+ ") target-alist rtn) (setq org-export-target-aliases nil org= -export-preferred-target-alist nil org-export-id-target-alist nil org-expor= t-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-ins= tall-letbind) (run-hooks ...) (org-export-preprocess-apply-macros) (run-hoo= ks ...) (untabify ... ...) (org-export-handle-include-files-recurse) (run-h= ooks ...) (org-export-remove-archived-trees archived-trees) (org-export-rem= ove-comment-blocks-and-subtrees) (org-export-handle-export-tags ... ...) (r= un-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-c= ontainer-classes) (org-export-remove-or-extract-drawers drawers ... backend= ) (when ... ... ...) (when ... ... ...) (org-export-remove-headline-metadat= a parameters) (setq target-alist ...) (run-hooks ...) (org-export-select-ba= ckend-specific-text backend) (org-export-protect-quoted-subtrees) (org-expo= rt-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-block= quote-verse-center) (run-hooks ...) (unless ... ...) (setq target-alist ...= ) (org-export-mark-radio-links) (run-hooks ...) (org-export-concatenate-mul= tiline-links) (run-hooks ...) (org-export-normalize-links) (org-export-targ= et-internal-links target-alist) (when ... ...) (org-store-forced-table-alig= nment) (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\nLore= m ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod\ntempo= r incididunt ut labore et dolore magna aliqua.\n\nUt enim ad minim veniam, = quis nostrud exercitation ullamco laboris nisi ut\naliquip ex ea commodo co= nsequat.\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 pariat= ur.\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 =3D= mollit=3D 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 s= int 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=3Dvsum= (@-I..@-II)\n\n* Headline 1\n\n#+BEGIN_QUOTE\nLorem ipsum dolor sit amet, c= onsectetur adipiscing elit. Fusce vel leo odio,\nnon adipiscing mi. Etiam a= liquet nibh sed nisl malesuada adipiscing. Donec\nmollis, turpis a faucibus= consequat, ipsum magna molestie purus, eget\nfringilla urna leo ac urna. U= t condimentum, dolor\n#+END_QUOTE\n\n** Headline 2\n\n- Quis nostrud exerci= tation ullamco laboris nisi ut aliquip ex ea commodo\n consequat.\n- Quid\= n + Cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupida= tat\n non proident, sunt in culpa qui officia deserunt mollit anim id es= t\n laborum.\n + Etc.\n- Duis aute irure dolor in reprehenderit in volu= ptate velit esse.\n\n*** Headline 3\n\nCurabitur vehicula interdum erat ut = varius. Sed ut enim tortor, nec rutrum\nurna. Phasellus mauris velit, laore= et 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 f= ontified t face org-document-title) 36 37 (fontified t) 37 55 (font-lock-fo= ntified t fontified t face org-meta-line) 55 56 (fontified t) 56 93 (font-l= ock-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-fl= yspell 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 (fontifie= d t) 420 430 (fontified t face org-special-keyword) 430 431 (fontified t) 4= 31 446 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap .= .. ... ... ... ...) face org-date) 446 447 (rear-nonsticky (mouse-face high= light keymap invisible intangible help-echo org-linked-text) fontified t or= g-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) fa= ce 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 5= 53 (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-n= o-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 (fontifie= d t) 634 643 (fontified t face org-special-keyword) 643 644 (fontified t) 6= 44 659 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap .= .. ... ... ... ...) face org-date) 659 660 (rear-nonsticky (mouse-face high= light keymap invisible intangible help-echo org-linked-text) fontified t or= g-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) fa= ce org-date) 660 661 (fontified t) 661 673 (fontified t face org-special-ke= yword) 673 679 (fontified t) 679 684 (fontified t) 684 698 (fontified t) 69= 8 702 (fontified t) 702 716 (fontified t) 716 737 (fontified t org-no-flysp= ell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-dat= e) 737 738 (rear-nonsticky (mouse-face highlight keymap invisible intangibl= e help-echo org-linked-text) fontified t org-no-flyspell t mouse-face highl= ight 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 75= 7 (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) 7= 66 767 (fontified t org-no-flyspell t) 767 771 (fontified t) 771 772 (fonti= fied t org-no-flyspell t) 772 776 (fontified t face (org-verbatim) org-no-f= lyspell 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-f= ontified t fontified t font-lock-multiline t face nil) 807 808 (font-lock-f= ontified t fontified t font-lock-multiline t face font-lock-keyword-face) 8= 08 813 (font-lock-fontified t fontified t font-lock-multiline t face font-l= ock-keyword-face) 813 814 (font-lock-fontified t fontified t font-lock-mult= iline t face nil) 814 823 (font-lock-fontified t fontified t font-lock-mult= iline t face nil) 823 824 (font-lock-fontified t fontified t font-lock-mult= iline t face font-lock-keyword-face) 824 827 (font-lock-fontified t fontifi= ed 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-mul= tiline t face nil) 834 835 (font-lock-fontified t fontified t font-lock-mul= tiline t face font-lock-keyword-face) 835 839 (font-lock-fontified t fontif= ied 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-loc= k-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 (fontifi= ed t face org-todo) 868 921 (fontified t face org-level-2) 921 937 (fontifi= ed t face (org-tag org-level-2) org-no-flyspell t mouse-face highlight keym= ap (keymap ... ... ... ... ...)) 937 938 (rear-nonsticky (mouse-face highli= ght keymap invisible intangible help-echo org-linked-text) fontified t face= (org-tag org-level-2) org-no-flyspell t mouse-face highlight keymap (keyma= p ... ... ... ... ...)) 938 942 (fontified t) 942 957 (fontified t org-no-f= lyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org= -date) 957 958 (rear-nonsticky (mouse-face highlight keymap invisible intan= gible help-echo org-linked-text) fontified t org-no-flyspell t mouse-face h= ighlight keymap (keymap ... ... ... ... ...) face org-date) 958 1013 (fonti= fied t) 1013 1015 (fontified t) 1015 1035 (fontified t) 1035 1036 (fontifie= d t) 1036 1038 (fontified t face org-table) 1038 1039 (fontified t face (bo= ld 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 (font= ified t face (bold org-table) font-lock-multiline t org-emphasis t) 1044 10= 48 (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-tab= le) 1057 1058 (fontified t) 1058 1059 (fontified t face org-table) 1059 106= 5 (fontified t face org-table) 1065 1069 (fontified t face (org-latex-and-e= xport-specials org-table) font-lock-multiline t) 1069 1075 (fontified t fac= e 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-an= d-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 (fontif= ied t face org-table) 1148 1155 (fontified t face (bold org-table) font-loc= k-multiline t org-emphasis t) 1155 1167 (fontified t face org-table) 1167 1= 168 (fontified t) 1168 1197 (fontified t font-lock-fontified t face org-met= a-line) 1197 1199 (fontified t) 1199 1201 (fontified t face org-level-1) 12= 01 1211 (fontified t face org-level-1) 1211 1213 (fontified t) 1213 1226 (f= ontified 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 14= 98 (fontified t font-lock-fontified t font-lock-multiline t) 1498 1499 (fon= tified 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 (fontif= ied 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 or= g-level-3) 1874 2135 (fontified nil)) :emph-multiline t :for-html t :skip-b= efore-1st-heading nil :drawers nil :todo-keywords t :tags not-in-toc :prior= ity 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-1s= t-heading) :drawers (plist-get opt-plist :drawers) :todo-keywords (plist-ge= t opt-plist :todo-keywords) :tags (plist-get opt-plist :tags) :priority (pl= ist-get opt-plist :priority) :footnotes (plist-get opt-plist :footnotes) :t= imestamps (plist-get opt-plist :timestamps) :archived-trees (plist-get opt-= plist :archived-trees) :select-tags (plist-get opt-plist :select-tags) :exc= lude-tags (plist-get opt-plist :exclude-tags) :add-text (plist-get opt-plis= t :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 ...) (leve= l-offset ...) (opt-plist ...) (org-current-export-dir ...) (org-current-exp= ort-file buffer-file-name) (level 0) (line "") (origline "") txt todo (umax= nil) (umax-toc nil) (filename ...) (current-dir ...) (buffer ...) (org-lev= els-open ...) (date ...) (author ...) (title ...) (link-up ...) (link-home = ...) (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) (inquo= te nil) (infixed nil) (inverse nil) (in-local-list nil) (local-list-type ni= l) (local-list-indent nil) (llt org-plain-list-ordered-item-terminator) (em= ail ...) (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 la= ng-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer)) (fund= amental-mode) (org-install-letbind) (and (fboundp ...) (set-buffer-file-cod= ing-system coding-system-for-write)) (let (... ...) (mapc ... org-export-pl= ist-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 ... ... ...) (got= o-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-se= ntinel 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 templat= e\n[v] limit export to visible part of outline tree\n[1] only export th= e current subtree\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EXP= ORT_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 a= s 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] expo= rt 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 fi= les [c] ...as one combined file\n\n[F] publish current file [P] = publish current project\n[X] publish a project... [E] publish ever= y projects") (cmds ...) r1 r2 ass (cpos ...) (cbuf ...) bpos) (save-excursi= on (save-window-excursion ... ... ... ... ... ... ...)) (and bpos (goto-cha= r bpos)) (setq r2 (if ... ... r1)) (unless (setq ass ...) (error "No comman= d 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=3D\203!\310\311\312\"\210\313\311!\211A@)\242\314= =3D\203!\310\315\312\"\210\316=0B!\210\317 \210\320 !\210\f\203d\321ed\"V\2= 03Web\210\322\245y\210`=1Bdb\210\322\245Zy\210=1B`|\210)\323c\210eb\210\324= \325\326 \"\210\327\306!\210\324\330!\210\331\312=1C=1D\324\330!\210\212\33= 2 \210+\331\207" [unread-command-char debugger-args x debugger-buffer nonin= teractive debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-f= rame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines= 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit midd= lestart 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 ha= ve > 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 l= ine > being fontified up to the end of the screen (i.e., not limited up to the = last > character on that line =3D 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