From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?utf-8?Q?S=C3=A9bastien_Vauban?= Subject: [Babel] Bug with org-src-fontify-natively... after running epresent Date: Thu, 28 Oct 2010 21:51:00 +0200 Message-ID: <80hbg66qqj.fsf@mundaneum.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: 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-mXXj517/zsQ@public.gmane.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org 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;-)). --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)) (whi= le (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 n= ext) (remove-text-properties start end (quote ...)) (with-current-buffer (g= et-buffer-create ...) (delete-region ... ...) (insert string) (unless ... .= ..) (font-lock-fontify-buffer) (setq pos ...) (while ... ... ...)) (add-tex= t-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-blo= ck lang block-start block-end)) (quoting (add-text-properties beg1 ... ...)= ) ((not org-fontify-quote-and-verse-blocks)) ((string=3D block-type "quote"= ) (add-text-properties beg1 end1 ...)) ((string=3D block-type "verse") (add= -text-properties beg1 end1 ...))) (progn (setq end (match-end 0) end1 (1- ...)) (setq block-end (match-begi= nning 0)) (when quoting (remove-text-properties beg end ...)) (add-text-pro= perties beg end (quote ...)) (add-text-properties beg beg1 (quote ...)) (ad= d-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-proper= ties end1 ... ...) (cond ... ... ... ... ...) t)) (when (re-search-forward (concat "^[ ]*#\\+end" ... "\\>.*") nil t) (set= q end (match-end 0) end1 (1- ...)) (setq block-end (match-beginning 0)) (wh= en quoting (remove-text-properties beg end ...)) (add-text-properties beg e= nd (quote ...)) (add-text-properties beg beg1 (quote ...)) (add-text-proper= ties end1 (+ end 1) (quote ...)) (cond (... ...) (quoting ...) (...) (... .= ..) (... ...)) t) (cond ((member dc1 ...) (org-remove-flyspell-overlays-in ... ...) (remove= -text-properties ... ... ...) (add-text-properties ... ... ...) (add-text-p= roperties ... ... ...) t) ((and ... ...) (setq block-type ... quoting ...) = (when ... ... ... ... ... ... ... ... t)) ((member dc1 ...) (add-text-prope= rties 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=3D\204=0B=00\307!=10 \211=1AAA)\= 310 \311\312 \313\211\211=1B=1C=1D=1E&=1E'=1E(=1E)=1E*=0E)\203=04=03=0E+\20= 3@=00\314\315=0E(\316=0E'T\211=16'\317\"#\210=0E)@\211=15@=14=0E,b\210`=0E-= W\203\373=02\f;\203`=00\320\f=0E-\306#\202d=00\f=0E-!\203\373=02`\311\224V\= 204q=00\321u\210=0E=13\203\241=00`\212\311\224b\210\321y\210`)Y\203\241=00\= 322`\212\311\224b\210\321y\210`)U\203\232=00`S\202\234=00\311\224`\323\306$= \210=0DA\211=13\203K=00=0B@@\247\203~=01=0B@\211=1E.@\211=1E/\224=1E,=0E/\2= 25=1E-\324=0E.8=1E0=0E,\204\334=00\325=0E.8\206x=01\326\327=0E/=0E.#\202x= =01\330=0E.A@!\211=1E1\242\331=3D\203=02=01\332=0E,=0E-=0E1\211=1AAA)#\210= =0E1\211=1AA@)=161=0E1\204=12=01=0E0\306=3D\204=12=01\313\202w=01=0E0\204.= =01\333=0E,=0E-\331\313$\206w=01\322=0E,=0E-\331=0E1$\202w=01=0E0\306=3D\20= 3A=01\322=0E,=0E-\331=0E1$\202w=01=0E0\334=3D\203T=01\335=0E,=0E-\331=0E1$\= 202w=01=0E0\336=3D\203g=01\337=0E,=0E-\331=0E1$\202w=01=0E0\340=3D\205w=01\= 341=0E,=0E-\331=0E1$),\210)\202\364=02=0E&`\313\223\210=0B@=0E-=1E2\211=1E)= @\325=0E)\233\313\311\224\330=0E)A@!=1E3=1E4=1B=1E5=1C=0E3\247\203\260=01= =0E3`V\204\267=01\342 =162\202\343=01=0E3=162=0E=13\203\343=01=0E2\343\324!= Y\203\343=01\322=0E2\343\324!U\203\331=01=0E2S\202\335=01=0E4`^=0E2\323\306= $\210\344 =1E6\345\216`=0E2W\203\337=02\f;\203\376=01\320\f=0E2\306#\202=02= =02\f=0E2!\203\337=02=0E5\211=13\203\351=01=0B@\211=1E.@\211=1E/\224=1E,=0E= /\225=1E-\324=0E.8=1E0=0E,\2049=02\325=0E.8\206\325=02\326\327=0E/=0E.#\202= \325=02\330=0E.A@!\211=1E1\242\331=3D\203_=02\332=0E,=0E-=0E1\211=1AAA)#\21= 0=0E1\211=1AA@)=161=0E1\204o=02=0E0\306=3D\204o=02\313\202\324=02=0E0\204\2= 13=02\333=0E,=0E-\331\313$\206\324=02\322=0E,=0E-\331=0E1$\202\324=02=0E0\3= 06=3D\203\236=02\322=0E,=0E-\331=0E1$\202\324=02=0E0\334=3D\203\261=02\335= =0E,=0E-\331=0E1$\202\324=02=0E0\336=3D\203\304=02\337=0E,=0E-\331=0E1$\202= \324=02=0E0\340=3D\205\324=02\341=0E,=0E-\331=0E1$),\210)=0BA\211=13\202 = =02*\330\324=0E)8!-\210*`=0E&W\203\364=02=0E&b\210=0BA\211=13\202\245=00=0E= )A\211=16)\204,=00=0E&\313\211\223.\207" [font-lock-keywords font-lock-key= words-case-fold-search x highlights matcher keyword t font-lock-compile-key= words 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-a= ppend-text-property keep font-lock-fillin-text-property line-end-position l= ine-beginning-position match-data (...) pos count bufname keywords case-fol= d-search loudly start end highlight match override val ...] 9 2137128](1 21= 36 nil) apply(#[(start end &optional loudly) "@\306=3D\204=0B=00\307!=10 \211= =1AAA)\310 \311\312 \313\211\211=1B=1C=1D=1E&=1E'=1E(=1E)=1E*=0E)\203=04=03= =0E+\203@=00\314\315=0E(\316=0E'T\211=16'\317\"#\210=0E)@\211=15@=14=0E,b\2= 10`=0E-W\203\373=02\f;\203`=00\320\f=0E-\306#\202d=00\f=0E-!\203\373=02`\31= 1\224V\204q=00\321u\210=0E=13\203\241=00`\212\311\224b\210\321y\210`)Y\203\= 241=00\322`\212\311\224b\210\321y\210`)U\203\232=00`S\202\234=00\311\224`\3= 23\306$\210=0DA\211=13\203K=00=0B@@\247\203~=01=0B@\211=1E.@\211=1E/\224=1E= ,=0E/\225=1E-\324=0E.8=1E0=0E,\204\334=00\325=0E.8\206x=01\326\327=0E/=0E.#= \202x=01\330=0E.A@!\211=1E1\242\331=3D\203=02=01\332=0E,=0E-=0E1\211=1AAA)#= \210=0E1\211=1AA@)=161=0E1\204=12=01=0E0\306=3D\204=12=01\313\202w=01=0E0\2= 04.=01\333=0E,=0E-\331\313$\206w=01\322=0E,=0E-\331=0E1$\202w=01=0E0\306=3D= \203A=01\322=0E,=0E-\331=0E1$\202w=01=0E0\334=3D\203T=01\335=0E,=0E-\331=0E= 1$\202w=01=0E0\336=3D\203g=01\337=0E,=0E-\331=0E1$\202w=01=0E0\340=3D\205w= =01\341=0E,=0E-\331=0E1$),\210)\202\364=02=0E&`\313\223\210=0B@=0E-=1E2\211= =1E)@\325=0E)\233\313\311\224\330=0E)A@!=1E3=1E4=1B=1E5=1C=0E3\247\203\260= =01=0E3`V\204\267=01\342 =162\202\343=01=0E3=162=0E=13\203\343=01=0E2\343\3= 24!Y\203\343=01\322=0E2\343\324!U\203\331=01=0E2S\202\335=01=0E4`^=0E2\323\= 306$\210\344 =1E6\345\216`=0E2W\203\337=02\f;\203\376=01\320\f=0E2\306#\202= =02=02\f=0E2!\203\337=02=0E5\211=13\203\351=01=0B@\211=1E.@\211=1E/\224=1E,= =0E/\225=1E-\324=0E.8=1E0=0E,\2049=02\325=0E.8\206\325=02\326\327=0E/=0E.#\= 202\325=02\330=0E.A@!\211=1E1\242\331=3D\203_=02\332=0E,=0E-=0E1\211=1AAA)#= \210=0E1\211=1AA@)=161=0E1\204o=02=0E0\306=3D\204o=02\313\202\324=02=0E0\20= 4\213=02\333=0E,=0E-\331\313$\206\324=02\322=0E,=0E-\331=0E1$\202\324=02=0E= 0\306=3D\203\236=02\322=0E,=0E-\331=0E1$\202\324=02=0E0\334=3D\203\261=02\3= 35=0E,=0E-\331=0E1$\202\324=02=0E0\336=3D\203\304=02\337=0E,=0E-\331=0E1$\2= 02\324=02=0E0\340=3D\205\324=02\341=0E,=0E-\331=0E1$),\210)=0BA\211=13\202 = =02*\330\324=0E)8!-\210*`=0E&W\203\364=02=0E&b\210=0BA\211=13\202\245=00=0E= )A\211=16)\204,=00=0E&\313\211\223.\207" [font-lock-keywords font-lock-key= words-case-fold-search x highlights matcher keyword t font-lock-compile-key= words 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-a= ppend-text-property keep font-lock-fillin-text-property line-end-position l= ine-beginning-position match-data (...) pos count bufname keywords case-fol= d-search loudly start end highlight match override val ...] 9 2137128] (1 2= 136 nil)) elp-wrapper(font-lock-fontify-keywords-region nil (1 2136 nil)) font-lock-fontify-keywords-region(1 2136 nil) #[(beg end loudly) "\206=05=00 =18\306 =1A\307 =1B\310\211=1C=1D\310\211= =1E=11=1E=12\311\211=1E=13=1E=14\311=1E=15\312\216\313\216\214=0E=16\204+= =00~\210=0E=17\2035=00\314=0E=17!\210=0E=18=0E=19=0E=1A=1E=1B=1E=1C\211=1E= =1D\203b=00=0E=1D@ \203T=00=0E=1D=0E=18=3D\203Z=00=0E=1DA\202\\=00=0E=18\21= 1=16=1D\204E=00=0E=1C=16=19=0E=1B=16=1A+\315=0E=19=0E=1A\"\210 \203}=00\316= =0E=19=0E=1A\"\210=0E=1E\204\213=00\317=0E=19=0E=1A=0E=1F#\210\320=0E=19=0E= =1A=0E=1F#.=0D\207" [parse-sexp-lookup-properties font-lock-syntactic-keywo= rds old-syntax-table modified buffer-undo-list inhibit-read-only syntax-tab= le buffer-modified-p t nil (...) (...) set-syntax-table font-lock-unfontify= -region font-lock-fontify-syntactic-keywords-region font-lock-fontify-synta= ctically-region font-lock-fontify-keywords-region inhibit-point-motion-hook= s inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-t= ruename 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=05=00 =18\306 =1A\307 =1B\310\211=1C=1D\3= 10\211=1E=11=1E=12\311\211=1E=13=1E=14\311=1E=15\312\216\313\216\214=0E=16\= 204+=00~\210=0E=17\2035=00\314=0E=17!\210=0E=18=0E=19=0E=1A=1E=1B=1E=1C\211= =1E=1D\203b=00=0E=1D@ \203T=00=0E=1D=0E=18=3D\203Z=00=0E=1DA\202\\=00=0E=18= \211=16=1D\204E=00=0E=1C=16=19=0E=1B=16=1A+\315=0E=19=0E=1A\"\210 \203}=00\= 316=0E=19=0E=1A\"\210=0E=1E\204\213=00\317=0E=19=0E=1A=0E=1F#\210\320=0E=19= =0E=1A=0E=1F#.=0D\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)) 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-r= egion-function beg end loudly font-lock-set-defaults] 4](1 2136 nil) apply(#[(beg end &optional loudly) "\304 \210 \n=0B#\207" [font-lock-fon= tify-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 =18\304\216\305ed #\210\306 \210\307\211=12+\207" [sa= ve-match-data-internal verbose font-lock-fontified match-data ((byte-code "= \301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) fo= nt-lock-fontify-region font-lock-after-fontify-buffer t] 4) #[nil "\247\203\f=00\304 V\202=0D=00\211=19\205=17=00\305\306\307 \"\3= 10=1A=1B\311\216=0B\203(=00\312 =12\313\314=0B\"\210\214~\210\310\315\316\2= 17-\207" [font-lock-verbose verbose current-message with-temp-message buffe= r-size format "Fontifying %s..." buffer-name nil (...) current-message mess= age "%s" (byte-code "\212\303 =18\304\216\305ed #\210\306 \210\307\211=12+\= 207" [save-match-data-internal verbose font-lock-fontified match-data ... f= ont-lock-fontify-region font-lock-after-fontify-buffer t] 4) (...)] 4]() apply(#[nil "\247\203\f=00\304 V\202=0D=00\211=19\205=17=00\305\306\30= 7 \"\310=1A=1B\311\216=0B\203(=00\312 =12\313\314=0B\"\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-messag= e message "%s" (byte-code "\212\303 =18\304\216\305ed #\210\306 \210\307\21= 1=12+\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=00\303\304!=18 )\207" [font-lock-verbose font-lo= ck-fontify-buffer-function font-lock-set-defaults called-interactively-p in= teractive] 2 2132618 nil]() apply(#[nil "\302 \210\206\n=00\303\304!=18 )\207" [font-lock-verbose f= ont-lock-fontify-buffer-function font-lock-set-defaults called-interactivel= y-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) (colu= mn-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")) (er= ase-buffer) (insert string) (setq case-fold-search t) (let (...) (remove-te= xt-properties ... ... ...)) (org-export-kill-licensed-text) (let (...) (org= -mode)) (setq case-fold-search t) (org-install-letbind) (run-hooks (quote o= rg-export-preprocess-hook)) (org-export-preprocess-apply-macros) (run-hooks= (quote org-export-preprocess-after-macros-hook)) (untabify (point-min) (po= int-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-e= xport-preprocess-after-include-files-hook)) (org-export-remove-archived-tre= es archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-exp= ort-handle-export-tags (plist-get parameters :select-tags) (plist-get param= eters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-se= lection-hook)) (org-export-mark-list-ending backend) (org-export-replace-sr= c-segments-and-examples backend) (org-export-protect-colon-examples) (when = (plist-get parameters :footnotes) (org-footnote-normalize nil t)) (setq tar= get-alist (org-export-define-heading-targets target-alist)) (run-hooks (quo= te org-export-preprocess-after-headline-targets-hook)) (org-export-remember= -html-container-classes) (org-export-remove-or-extract-drawers drawers (pli= st-get parameters :drawers) backend) (when (plist-get parameters :skip-befo= re-1st-heading) (goto-char ...) (when ... ... ... ...)) (when (plist-get pa= rameters :add-text) (goto-char ...) (insert ... "\n")) (org-export-remove-h= eadline-metadata parameters) (setq target-alist (org-export-handle-invisibl= e-targets target-alist)) (run-hooks (quote org-export-preprocess-before-sel= ecting-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-ho= oks (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-exp= ort-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-t= argets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote or= g-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-l= inks) (org-export-target-internal-links target-alist) (when (plist-get para= meters :emph-multiline) (org-export-concatenate-multiline-emphasis)) (org-s= tore-forced-table-alignment) (when org-export-table-remove-special-lines (o= rg-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-pre= process-hook)) (org-export-preprocess-apply-macros) (run-hooks (quote org-e= xport-preprocess-after-macros-hook)) (untabify (point-min) (point-max)) (or= g-export-handle-include-files-recurse) (run-hooks (quote org-export-preproc= ess-after-include-files-hook)) (org-export-remove-archived-trees archived-t= rees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-ex= port-tags (plist-get parameters :select-tags) (plist-get parameters :exclud= e-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)= ) (org-export-mark-list-ending backend) (org-export-replace-src-segments-an= d-examples backend) (org-export-protect-colon-examples) (when (plist-get pa= rameters :footnotes) (org-footnote-normalize nil t)) (setq target-alist (or= g-export-define-heading-targets target-alist)) (run-hooks (quote org-export= -preprocess-after-headline-targets-hook)) (org-export-remember-html-contain= er-classes) (org-export-remove-or-extract-drawers drawers (plist-get parame= ters :drawers) backend) (when (plist-get parameters :skip-before-1st-headin= g) (goto-char ...) (when ... ... ... ...)) (when (plist-get parameters :add= -text) (goto-char ...) (insert ... "\n")) (org-export-remove-headline-metad= ata parameters) (setq target-alist (org-export-handle-invisible-targets tar= get-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backen= d-code-hook)) (org-export-select-backend-specific-text backend) (org-export= -protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-prote= ct-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote or= g-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-radi= o-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook))= (org-export-concatenate-multiline-links) (run-hooks (quote org-export-prep= rocess-before-normalizing-links-hook)) (org-export-normalize-links) (org-ex= port-target-internal-links target-alist) (when (plist-get parameters :emph-= multiline) (org-export-concatenate-multiline-emphasis)) (org-store-forced-t= able-alignment) (when org-export-table-remove-special-lines (org-export-rem= ove-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-e= xport-preferred-target-alist nil org-export-id-target-alist nil org-export-= code-refs nil) (with-current-buffer (get-buffer-create " org-mode-tmp") (er= ase-buffer) (insert string) (setq case-fold-search t) (let ... ...) (org-ex= port-kill-licensed-text) (let ... ...) (setq case-fold-search t) (org-insta= ll-letbind) (run-hooks ...) (org-export-preprocess-apply-macros) (run-hooks= ...) (untabify ... ...) (org-export-handle-include-files-recurse) (run-hoo= ks ...) (org-export-remove-archived-trees archived-trees) (org-export-remov= e-comment-blocks-and-subtrees) (org-export-handle-export-tags ... ...) (run= -hooks ...) (org-export-mark-list-ending backend) (org-export-replace-src-s= egments-and-examples backend) (org-export-protect-colon-examples) (when ...= ...) (setq target-alist ...) (run-hooks ...) (org-export-remember-html-con= tainer-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-back= end-specific-text backend) (org-export-protect-quoted-subtrees) (org-export= -remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockqu= ote-verse-center) (run-hooks ...) (unless ... ...) (setq target-alist ...) = (org-export-mark-radio-links) (run-hooks ...) (org-export-concatenate-multi= line-links) (run-hooks ...) (org-export-normalize-links) (org-export-target= -internal-links target-alist) (when ... ...) (org-store-forced-table-alignm= ent) (when org-export-table-remove-special-lines ...) ...) (kill-buffer " o= rg-mode-tmp") rtn) org-export-preprocess-string(#("#+TITLE: Emacs Color Theme Test File\n#+S= TARTUP: 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, qu= is nostrud exercitation ullamco laboris nisi ut\naliquip ex ea commodo cons= equat.\n\n** TODO Task 1 = :Home:\n SCHEDULED: <2010-10-08 Fri>\n\nDuis aute irure dolor in re= prehenderit 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 =3Dmo= llit=3D anim ~id~ est laborum:\n\n#+begin_src sql\nSELECT top 10 *\nFROM ta= ble\nWHERE price > 0\n#+end_src\n\n** TODO Task 3 = :School:Computer:\n [2010-10-26 Tue]\n\nExcepteur sin= t 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, con= sectetur adipiscing elit. Fusce vel leo odio,\nnon adipiscing mi. Etiam ali= quet nibh sed nisl malesuada adipiscing. Donec\nmollis, turpis a faucibus c= onsequat, ipsum magna molestie purus, eget\nfringilla urna leo ac urna. Ut = condimentum, dolor\n#+END_QUOTE\n\n** Headline 2\n\n- Quis nostrud exercita= tion ullamco laboris nisi ut aliquip ex ea commodo\n consequat.\n- Quid\n = + Cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidata= t\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 volupt= ate velit esse.\n\n*** Headline 3\n\nCurabitur vehicula interdum erat ut va= rius. Sed ut enim tortor, nec rutrum\nurna. Phasellus mauris velit, laoreet= id pharetra vitae, convallis sit amet\nleo. Mauris posuere porta nunc in c= onsectetur. 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 fon= tified t face org-document-title) 36 37 (fontified t) 37 55 (font-lock-font= ified t fontified t face org-meta-line) 55 56 (fontified t) 56 93 (font-loc= k-fontified t fontified t face org-meta-line) 93 95 (fontified t) 95 97 (fo= ntified 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 fa= ce org-level-2) 342 346 (fontified t face org-todo) 346 410 (fontified t fa= ce org-level-2) 410 415 (fontified t face (org-tag org-level-2) org-no-flys= pell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 415 416 (r= ear-nonsticky (mouse-face highlight keymap invisible intangible help-echo o= rg-linked-text) fontified t face (org-tag org-level-2) org-no-flyspell t mo= use-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 highli= ght 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 63= 0 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-ec= ho org-linked-text) fontified t face org-headline-done org-no-flyspell t mo= use-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 highli= ght 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-keyw= ord) 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-flyspel= l 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 highlig= ht keymap (keymap ... ... ... ... ...) face org-date) 738 739 (fontified t)= 739 743 (fontified t face org-special-keyword) 743 746 (fontified t face o= rg-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 (fontifi= ed t org-no-flyspell t) 772 776 (fontified t face (org-verbatim) org-no-fly= spell t font-lock-multiline t org-emphasis t) 776 777 (fontified t org-no-f= lyspell 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 f= ontified t face org-meta-line font-lock-multiline t) 806 807 (font-lock-fon= tified t fontified t font-lock-multiline t face nil) 807 808 (font-lock-fon= tified 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-loc= k-keyword-face) 813 814 (font-lock-fontified t fontified t font-lock-multil= ine t face nil) 814 823 (font-lock-fontified t fontified t font-lock-multil= ine t face nil) 823 824 (font-lock-fontified t fontified t font-lock-multil= ine 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-fo= ntified t fontified t font-lock-multiline t face nil) 828 829 (font-lock-fo= ntified t fontified t font-lock-multiline t face font-lock-keyword-face) 82= 9 833 (font-lock-fontified t fontified t font-lock-multiline t face font-lo= ck-keyword-face) 833 834 (font-lock-fontified t fontified t font-lock-multi= line t face nil) 834 835 (font-lock-fontified t fontified t font-lock-multi= line t face font-lock-keyword-face) 835 839 (font-lock-fontified t fontifie= d t font-lock-multiline t face font-lock-keyword-face) 839 840 (font-lock-f= ontified t fontified t font-lock-multiline t face font-lock-keyword-face) 8= 40 849 (font-lock-fontified t fontified t font-lock-multiline t) 849 850 (f= ont-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 highligh= t 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-fly= spell t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-d= ate) 957 958 (rear-nonsticky (mouse-face highlight keymap invisible intangi= ble help-echo org-linked-text) fontified t org-no-flyspell t mouse-face hig= hlight keymap (keymap ... ... ... ... ...) face org-date) 958 1013 (fontifi= ed 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 fa= ce (bold org-table) font-lock-multiline t org-emphasis t) 1043 1044 (fontif= ied 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-exp= ort-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-t= able) 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-ta= ble) 1123 1124 (fontified t) 1124 1125 (fontified t face org-table) 1125 11= 31 (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 fa= ce org-table) 1141 1145 (fontified t face (org-latex-and-export-specials or= g-table) font-lock-multiline t) 1145 1146 (fontified t) 1146 1148 (fontifie= d 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 116= 8 (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 (fon= tified t font-lock-fontified t face org-meta-line font-lock-multiline t) 12= 26 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 (fonti= fied 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 (fontifie= d t face org-level-2) 1513 1515 (fontified t face org-level-2) 1515 1525 (f= ontified t face org-level-2) 1525 1601 (fontified t) 1601 1859 (fontified n= il) 1859 1860 (fontified nil) 1860 1862 (fontified nil face org-level-3) 18= 62 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-bef= ore-1st-heading nil :drawers nil :todo-keywords t :tags not-in-toc :priorit= y nil :footnotes t :timestamps t :archived-trees headline :select-tags ("ex= port") :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 (plis= t-get opt-plist :priority) :footnotes (plist-get opt-plist :footnotes) :tim= estamps (plist-get opt-plist :timestamps) :archived-trees (plist-get opt-pl= ist :archived-trees) :select-tags (plist-get opt-plist :select-tags) :exclu= de-tags (plist-get opt-plist :exclude-tags) :add-text (plist-get opt-plist = :text) :LaTeX-fragments (plist-get opt-plist :LaTeX-fragments)) "[=0D\n]") (let* ((opt-plist ...) (body-only ...) (style ...) (html-extension ...) (= link-validate ...) valid thetoc have-headings first-heading-pos (odd org-od= d-levels-only) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...) (level-= offset ...) (opt-plist ...) (org-current-export-dir ...) (org-current-expor= t-file buffer-file-name) (level 0) (line "") (origline "") txt todo (umax n= il) (umax-toc nil) (filename ...) (current-dir ...) (buffer ...) (org-level= s-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) (emai= l ...) (language ...) (keywords ...) (description ...) (lang-words nil) ...= ) (let (...) (org-unmodified ...)) (message "Exporting...") (setq org-min-l= evel (org-get-min-level lines level-offset)) (setq org-last-level org-min-l= evel) (org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq lang= -words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer)) (fundam= ental-mode) (org-install-letbind) (and (fboundp ...) (set-buffer-file-codin= g-system coding-system-for-write)) (let (... ...) (mapc ... org-export-plis= t-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 ... ...) (go= to-char ...) (while ... ...) (goto-char ...) (goto-char ...) (let ... ...) = (goto-char ...) (when ... ...) (remove-text-properties ... ... ...) (run-ho= oks ...) (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-sent= inel p ...) (message "Background process \"%s\": started" p)) (if subtree-p= (progn ... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (le= t ... ... ... ... ...))) (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 EXPOR= T_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 La= TeX [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 cu= rrent file as iCalendar file\n[I] export all agenda files as iCalendar file= s [c] ...as one combined file\n\n[F] publish current file [P] pu= blish 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=10 @\307=3D\203!=00\310\311\312\"\210\313\311!\211=1AA@)\= 242\314=3D\203!=00\310\315\312\"\210\316=0B!\210\317 \210\320 !\210\f\203d= =00\321ed\"=0DV\203W=00eb\210\322=0D\245y\210`=1E=1Bdb\210\322=0D\245=0DZy\= 210=0E=1B`|\210)\323c\210eb\210\324\325\326 \"\210\327\306!\210\324\330!\21= 0\331\312=1E=1C=1E=1D\324\330!\210\212\332 \210+\331\207" [unread-command-c= har debugger-args x debugger-buffer noninteractive debugger-batch-max-lines= -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugg= er-mode debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-str= ing 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 la= st character on that line =3D 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 --=20 S=C3=A9bastien Vauban _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode-mXXj517/zsQ@public.gmane.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode