emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] [Babel] Bug with org-src-fontify-natively... after running epr


From: Sébastien Vauban
Subject: [Orgmode] [Babel] Bug with org-src-fontify-natively... after running epresent
Date: Thu, 28 Oct 2010 21:51:00 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (windows-nt)

Hello Eric,

After having run epresent, I got this error when trying to publish my
theme-test.org file (sent on this list a couple of days ago -- no reaction
BTW ;-)).

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (void-function -mode)
  -mode()
  funcall(-mode)
  (if (eq major-mode lang-mode) nil (funcall lang-mode))
  (unless (eq major-mode lang-mode) (funcall lang-mode))
  (save-current-buffer (set-buffer (get-buffer-create ...)) (delete-region 
(point-min) (point-max)) (insert string) (unless (eq major-mode lang-mode) 
(funcall lang-mode)) (font-lock-fontify-buffer) (setq pos (point-min)) (while 
(setq next ...) (put-text-property ... ... ... ... org-buffer) (setq pos next)))
  (with-current-buffer (get-buffer-create (concat " org-src-fontification:" 
...)) (delete-region (point-min) (point-max)) (insert string) (unless (eq 
major-mode lang-mode) (funcall lang-mode)) (font-lock-fontify-buffer) (setq pos 
(point-min)) (while (setq next ...) (put-text-property ... ... ... ... 
org-buffer) (setq pos next)))
  (let* ((lang-mode ...) (string ...) (modified ...) (org-buffer ...) pos next) 
(remove-text-properties start end (quote ...)) (with-current-buffer 
(get-buffer-create ...) (delete-region ... ...) (insert string) (unless ... 
...) (font-lock-fontify-buffer) (setq pos ...) (while ... ... ...)) 
(add-text-properties start end (quote ...)) (set-buffer-modified-p modified))
  org-src-font-lock-fontify-block("" 1227 1500)
  (cond ((and lang org-src-fontify-natively) (org-src-font-lock-fontify-block 
lang block-start block-end)) (quoting (add-text-properties beg1 ... ...)) ((not 
org-fontify-quote-and-verse-blocks)) ((string= block-type "quote") 
(add-text-properties beg1 end1 ...)) ((string= block-type "verse") 
(add-text-properties beg1 end1 ...)))
  (progn (setq end (match-end 0) end1 (1- ...)) (setq block-end 
(match-beginning 0)) (when quoting (remove-text-properties beg end ...)) 
(add-text-properties beg end (quote ...)) (add-text-properties beg beg1 (quote 
...)) (add-text-properties end1 (+ end 1) (quote ...)) (cond (... ...) (quoting 
...) (...) (... ...) (... ...)) t)
  (if (re-search-forward (concat "^[    ]*#\\+end" ... "\\>.*") nil t) (progn 
(setq end ... end1 ...) (setq block-end ...) (when quoting ...) 
(add-text-properties beg end ...) (add-text-properties beg beg1 ...) 
(add-text-properties end1 ... ...) (cond ... ... ... ... ...) t))
  (when (re-search-forward (concat "^[  ]*#\\+end" ... "\\>.*") nil t) (setq 
end (match-end 0) end1 (1- ...)) (setq block-end (match-beginning 0)) (when 
quoting (remove-text-properties beg end ...)) (add-text-properties beg end 
(quote ...)) (add-text-properties beg beg1 (quote ...)) (add-text-properties 
end1 (+ end 1) (quote ...)) (cond (... ...) (quoting ...) (...) (... ...) (... 
...)) t)
  (cond ((member dc1 ...) (org-remove-flyspell-overlays-in ... ...) 
(remove-text-properties ... ... ...) (add-text-properties ... ... ...) 
(add-text-properties ... ... ...) t) ((and ... ...) (setq block-type ... 
quoting ...) (when ... ... ... ... ... ... ... ... t)) ((member dc1 ...) 
(add-text-properties beg ... ...) (add-text-properties ... ... ...)) ((not ...) 
(add-text-properties beg ... ...) t) ((or ... ...) (add-text-properties beg ... 
...) t) ((member dc3 ...) (add-text-properties beg ... ...)) (t nil))
  (let ((beg ...) (block-start ...) (block-end nil) (lang ...) (beg1 ...) (dc1 
...) (dc3 ...) end end1 quoting block-type) (cond (... ... ... ... ... t) (... 
... ...) (... ... ...) (... ... t) (... ... t) (... ...) (t nil)))
  (if (re-search-forward "^\\([         ]*#\\+\\(\\([a-zA-Z]+:?\\| 
\\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[   ]*\\(\\([^      \n]*\\)[        
]*\\(.*\\)\\)\\)" limit t) (let (... ... ... ... ... ... ... end end1 quoting 
block-type) (cond ... ... ... ... ... ... ...)))
  (let ((case-fold-search t)) (if (re-search-forward "^\\([     
]*#\\+\\(\\([a-zA-Z]+:?\\| \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[   ]*\\(\\([^      
\n]*\\)[        ]*\\(.*\\)\\)\\)" limit t) (let ... ...)))
  org-fontify-meta-lines-and-blocks(2136)
  #[(start end &optional loudly) "address@hidden        \211AA)\310 \311\312 
\313\211\211&'()*)address@hidden(\316'T\211'\317\"#\210)@address@hidden,b\210`-W\203\373\f;\203`\320\f-\306#\202d\f-!\203\373`\311\224V\204q\321u\210\203\241`\212\311\224b\210\321y\210`)Y\203\241\322`\212\311\224b\210\321y\210`)U\203\232`S\202\234\311\224`\323\306$\210
A\211\203K@@address@hidden@\211/\224,/\225-\324.80,\204\334\325.8\206x\326\327/address@hidden,-1\211AA)#\2101\211A@)11\2040\306=\204\313\202w0\204.\333,-\331\313$\206w\322,-\3311$\202w0\306=\203A\322,-\3311$\202w0\334=\203T\335,-\3311$\202w0\336=\203g\337,-\3311$\202w0\340=\205w\341,-\3311$),\210)\202\364&address@hidden)@\325)\233\313\311\224\330)address@hidden
 
2\202\34332\203\3432\343\324!Y\203\343\3222\343\324!U\203\3312S\202\3354`^2\323\306$\210\344
 
6\345\216`2W\203\337\f;address@hidden@\211/\224,/\225-\324.80,\2049\325.8\206\325\326\327/address@hidden,-1\211AA)#\2101\211A@)11\204o0\306=\204o\313\202\3240\204\213\333,-\331\313$\206\324\322,-\3311$\202\3240\306=\203\236\322,-\3311$\202\3240\334=\203\261\335,-\3311$\202\3240\336=\203\304\337,-\3311$\202\3240\340=\205\324\341,-\3311$),\210)A\211\202
     
*\330\324)8!-\210*`&W\203\364&b\210A\211\202\245)A\211)\204,&\313\211\223.\207"
 [font-lock-keywords font-lock-keywords-case-fold-search x highlights matcher 
keyword t font-lock-compile-keywords buffer-name 0 make-marker nil message 
"Fontifying %s... (regexps..%s)" make-string 46 re-search-forward 1 
put-text-property font-lock-multiline 2 3 error "No match %d in highlight %S" 
eval face add-text-properties text-property-not-all prepend 
font-lock-prepend-text-property append font-lock-append-text-property keep 
font-lock-fillin-text-property line-end-position line-beginning-position 
match-data (...) pos count bufname keywords case-fold-search loudly start end 
highlight match override val ...] 9 2137128](1 2136 nil)
  apply(#[(start end &optional loudly) "address@hidden  \211AA)\310 \311\312 
\313\211\211&'()*)address@hidden(\316'T\211'\317\"#\210)@address@hidden,b\210`-W\203\373\f;\203`\320\f-\306#\202d\f-!\203\373`\311\224V\204q\321u\210\203\241`\212\311\224b\210\321y\210`)Y\203\241\322`\212\311\224b\210\321y\210`)U\203\232`S\202\234\311\224`\323\306$\210
A\211\203K@@address@hidden@\211/\224,/\225-\324.80,\204\334\325.8\206x\326\327/address@hidden,-1\211AA)#\2101\211A@)11\2040\306=\204\313\202w0\204.\333,-\331\313$\206w\322,-\3311$\202w0\306=\203A\322,-\3311$\202w0\334=\203T\335,-\3311$\202w0\336=\203g\337,-\3311$\202w0\340=\205w\341,-\3311$),\210)\202\364&address@hidden)@\325)\233\313\311\224\330)address@hidden
 
2\202\34332\203\3432\343\324!Y\203\343\3222\343\324!U\203\3312S\202\3354`^2\323\306$\210\344
 
6\345\216`2W\203\337\f;address@hidden@\211/\224,/\225-\324.80,\2049\325.8\206\325\326\327/address@hidden,-1\211AA)#\2101\211A@)11\204o0\306=\204o\313\202\3240\204\213\333,-\331\313$\206\324\322,-\3311$\202\3240\306=\203\236\322,-\3311$\202\3240\334=\203\261\335,-\3311$\202\3240\336=\203\304\337,-\3311$\202\3240\340=\205\324\341,-\3311$),\210)A\211\202
     
*\330\324)8!-\210*`&W\203\364&b\210A\211\202\245)A\211)\204,&\313\211\223.\207"
 [font-lock-keywords font-lock-keywords-case-fold-search x highlights matcher 
keyword t font-lock-compile-keywords buffer-name 0 make-marker nil message 
"Fontifying %s... (regexps..%s)" make-string 46 re-search-forward 1 
put-text-property font-lock-multiline 2 3 error "No match %d in highlight %S" 
eval face add-text-properties text-property-not-all prepend 
font-lock-prepend-text-property append font-lock-append-text-property keep 
font-lock-fillin-text-property line-end-position line-beginning-position 
match-data (...) pos count bufname keywords case-fold-search loudly start end 
highlight match override val ...] 9 2137128] (1 2136 nil))
  elp-wrapper(font-lock-fontify-keywords-region nil (1 2136 nil))
  font-lock-fontify-keywords-region(1 2136 nil)
  #[(beg end loudly) "\206   \306 \307 
\310\211\310\211\311\211\311\312\216\313\216\214\204+~\210\2035\314!\210\211\203b@
 \203T=\203ZA\202\\\211\204E+\315\"\210     
\203}\316\"\210\204\213\317#\210\320#.
\207" [parse-sexp-lookup-properties font-lock-syntactic-keywords 
old-syntax-table modified buffer-undo-list inhibit-read-only syntax-table 
buffer-modified-p t nil (...) (...) set-syntax-table font-lock-unfontify-region 
font-lock-fontify-syntactic-keywords-region 
font-lock-fontify-syntactically-region font-lock-fontify-keywords-region 
inhibit-point-motion-hooks inhibit-modification-hooks deactivate-mark 
buffer-file-name buffer-file-truename font-lock-dont-widen 
font-lock-syntax-table font-lock-extend-region-functions beg end font-lock-end 
font-lock-beg funs font-lock-keywords-only loudly] 5](1 2136 nil)
  apply(#[(beg end loudly) "\206     \306 \307 
\310\211\310\211\311\211\311\312\216\313\216\214\204+~\210\2035\314!\210\211\203b@
 \203T=\203ZA\202\\\211\204E+\315\"\210     
\203}\316\"\210\204\213\317#\210\320#.
\207" [parse-sexp-lookup-properties font-lock-syntactic-keywords 
old-syntax-table modified buffer-undo-list inhibit-read-only syntax-table 
buffer-modified-p t nil (...) (...) set-syntax-table font-lock-unfontify-region 
font-lock-fontify-syntactic-keywords-region 
font-lock-fontify-syntactically-region font-lock-fontify-keywords-region 
inhibit-point-motion-hooks inhibit-modification-hooks deactivate-mark 
buffer-file-name buffer-file-truename font-lock-dont-widen 
font-lock-syntax-table font-lock-extend-region-functions beg end font-lock-end 
font-lock-beg funs font-lock-keywords-only loudly] 5] (1 2136 nil))
  elp-wrapper(font-lock-default-fontify-region nil (1 2136 nil))
  font-lock-default-fontify-region(1 2136 nil)
  #[(beg end &optional loudly) "\304 \210      \n#\207" 
[font-lock-fontify-region-function beg end loudly font-lock-set-defaults] 4](1 
2136 nil)
  apply(#[(beg end &optional loudly) "\304 \210        \n#\207" 
[font-lock-fontify-region-function beg end loudly font-lock-set-defaults] 4] (1 
2136 nil))
  elp-wrapper(font-lock-fontify-region nil (1 2136 nil))
  font-lock-fontify-region(1 2136 nil)
  byte-code("\212\303 \304\216\305ed   #\210\306 \210\307\211+\207" 
[save-match-data-internal verbose font-lock-fontified match-data ((byte-code 
"\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 
font-lock-fontify-region font-lock-after-fontify-buffer t] 4)
  #[nil "\247\203\f\304 V\202
\211\205\305\306\307 \"\310\311\216\203(\312 
\313\314\"\210\214~\210\310\315\316\217-\207" [font-lock-verbose verbose 
current-message with-temp-message buffer-size format "Fontifying %s..." 
buffer-name nil (...) current-message message "%s" (byte-code "\212\303 
\304\216\305ed        #\210\306 \210\307\211+\207" [save-match-data-internal 
verbose font-lock-fontified match-data ... font-lock-fontify-region 
font-lock-after-fontify-buffer t] 4) (...)] 4]()
  apply(#[nil "\247\203\f\304 V\202
\211\205\305\306\307 \"\310\311\216\203(\312 
\313\314\"\210\214~\210\310\315\316\217-\207" [font-lock-verbose verbose 
current-message with-temp-message buffer-size format "Fontifying %s..." 
buffer-name nil (...) current-message message "%s" (byte-code "\212\303 
\304\216\305ed        #\210\306 \210\307\211+\207" [save-match-data-internal 
verbose font-lock-fontified match-data ... font-lock-fontify-region 
font-lock-after-fontify-buffer t] 4) (...)] 4] nil)
  elp-wrapper(font-lock-default-fontify-buffer nil nil)
  font-lock-default-fontify-buffer()
  #[nil "\302 \210\206\n\303\304!     )\207" [font-lock-verbose 
font-lock-fontify-buffer-function font-lock-set-defaults called-interactively-p 
interactive] 2 2132618 nil]()
  apply(#[nil "\302 \210\206\n\303\304!       )\207" [font-lock-verbose 
font-lock-fontify-buffer-function font-lock-set-defaults called-interactively-p 
interactive] 2 2132618 nil] nil)
  elp-wrapper(font-lock-fontify-buffer nil nil)
  font-lock-fontify-buffer()
  column-marker-internal(column-marker-1 79 column-marker-1-face)
  (cond ((null arg) (column-marker-internal ... ... column-marker-1-face)) 
((consp arg) (if ... ... ...)) ((and ... ...) (column-marker-internal ... ... 
column-marker-1-face)) (t (dolist ... ...)))
  column-marker-1(78)
  (lambda nil (interactive) (column-marker-1 78) (column-marker-2 79) 
(column-marker-3 80))()
  run-hooks(text-mode-hook outline-mode-hook org-mode-hook)
  apply(run-hooks (text-mode-hook outline-mode-hook org-mode-hook))
  run-mode-hooks(org-mode-hook)
  org-mode()
  (let ((org-inhibit-startup t)) (org-mode))
  (save-current-buffer (set-buffer (get-buffer-create " org-mode-tmp")) 
(erase-buffer) (insert string) (setq case-fold-search t) (let (...) 
(remove-text-properties ... ... ...)) (org-export-kill-licensed-text) (let 
(...) (org-mode)) (setq case-fold-search t) (org-install-letbind) (run-hooks 
(quote org-export-preprocess-hook)) (org-export-preprocess-apply-macros) 
(run-hooks (quote org-export-preprocess-after-macros-hook)) (untabify 
(point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks 
(quote org-export-preprocess-after-include-files-hook)) 
(org-export-remove-archived-trees archived-trees) 
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags 
(plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) 
(run-hooks (quote org-export-preprocess-after-tree-selection-hook)) 
(org-export-mark-list-ending backend) 
(org-export-replace-src-segments-and-examples backend) 
(org-export-protect-colon-examples) (when (plist-get parameters :footnotes) 
(org-footnote-normalize nil t)) (setq target-alist 
(org-export-define-heading-targets target-alist)) (run-hooks (quote 
org-export-preprocess-after-headline-targets-hook)) 
(org-export-remember-html-container-classes) 
(org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers) 
backend) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) 
(when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) 
(insert ... "\n")) (org-export-remove-headline-metadata parameters) (setq 
target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks 
(quote org-export-preprocess-before-selecting-backend-code-hook)) 
(org-export-select-backend-specific-text backend) 
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) 
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) 
(run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless 
(plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq 
target-alist (org-export-attach-captions-and-attributes backend target-alist)) 
(org-export-mark-radio-links) (run-hooks (quote 
org-export-preprocess-after-radio-targets-hook)) 
(org-export-concatenate-multiline-links) (run-hooks (quote 
org-export-preprocess-before-normalizing-links-hook)) 
(org-export-normalize-links) (org-export-target-internal-links target-alist) 
(when (plist-get parameters :emph-multiline) 
(org-export-concatenate-multiline-emphasis)) (org-store-forced-table-alignment) 
(when org-export-table-remove-special-lines 
(org-export-remove-special-table-lines)) ...)
  (with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer) 
(insert string) (setq case-fold-search t) (let (...) (remove-text-properties 
... ... ...)) (org-export-kill-licensed-text) (let (...) (org-mode)) (setq 
case-fold-search t) (org-install-letbind) (run-hooks (quote 
org-export-preprocess-hook)) (org-export-preprocess-apply-macros) (run-hooks 
(quote org-export-preprocess-after-macros-hook)) (untabify (point-min) 
(point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote 
org-export-preprocess-after-include-files-hook)) 
(org-export-remove-archived-trees archived-trees) 
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags 
(plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) 
(run-hooks (quote org-export-preprocess-after-tree-selection-hook)) 
(org-export-mark-list-ending backend) 
(org-export-replace-src-segments-and-examples backend) 
(org-export-protect-colon-examples) (when (plist-get parameters :footnotes) 
(org-footnote-normalize nil t)) (setq target-alist 
(org-export-define-heading-targets target-alist)) (run-hooks (quote 
org-export-preprocess-after-headline-targets-hook)) 
(org-export-remember-html-container-classes) 
(org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers) 
backend) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) 
(when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) 
(insert ... "\n")) (org-export-remove-headline-metadata parameters) (setq 
target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks 
(quote org-export-preprocess-before-selecting-backend-code-hook)) 
(org-export-select-backend-specific-text backend) 
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) 
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) 
(run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless 
(plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq 
target-alist (org-export-attach-captions-and-attributes backend target-alist)) 
(org-export-mark-radio-links) (run-hooks (quote 
org-export-preprocess-after-radio-targets-hook)) 
(org-export-concatenate-multiline-links) (run-hooks (quote 
org-export-preprocess-before-normalizing-links-hook)) 
(org-export-normalize-links) (org-export-target-internal-links target-alist) 
(when (plist-get parameters :emph-multiline) 
(org-export-concatenate-multiline-emphasis)) (org-store-forced-table-alignment) 
(when org-export-table-remove-special-lines 
(org-export-remove-special-table-lines)) ...)
  (let* ((htmlp ...) (asciip ...) (latexp ...) (docbookp ...) (backend ...) 
(archived-trees ...) (inhibit-read-only t) (drawers org-drawers) 
(outline-regexp "\\*+ ") target-alist rtn) (setq org-export-target-aliases nil 
org-export-preferred-target-alist nil org-export-id-target-alist nil 
org-export-code-refs nil) (with-current-buffer (get-buffer-create " 
org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t) (let 
... ...) (org-export-kill-licensed-text) (let ... ...) (setq case-fold-search 
t) (org-install-letbind) (run-hooks ...) (org-export-preprocess-apply-macros) 
(run-hooks ...) (untabify ... ...) (org-export-handle-include-files-recurse) 
(run-hooks ...) (org-export-remove-archived-trees archived-trees) 
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags 
... ...) (run-hooks ...) (org-export-mark-list-ending backend) 
(org-export-replace-src-segments-and-examples backend) 
(org-export-protect-colon-examples) (when ... ...) (setq target-alist ...) 
(run-hooks ...) (org-export-remember-html-container-classes) 
(org-export-remove-or-extract-drawers drawers ... backend) (when ... ... ...) 
(when ... ... ...) (org-export-remove-headline-metadata parameters) (setq 
target-alist ...) (run-hooks ...) (org-export-select-backend-specific-text 
backend) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) 
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) 
(run-hooks ...) (unless ... ...) (setq target-alist ...) 
(org-export-mark-radio-links) (run-hooks ...) 
(org-export-concatenate-multiline-links) (run-hooks ...) 
(org-export-normalize-links) (org-export-target-internal-links target-alist) 
(when ... ...) (org-store-forced-table-alignment) (when 
org-export-table-remove-special-lines ...) ...) (kill-buffer " org-mode-tmp") 
rtn)
  org-export-preprocess-string(#("#+TITLE: Emacs Color Theme Test 
File\n#+STARTUP: content\n#+TAGS: Home(h) School(s) Computer(c)\n\n* 
Tasks\n\nLorem ipsum dolor sit amet, consectetur adipisicing elit, sed do 
eiusmod\ntempor incididunt ut labore et dolore magna aliqua.\n\nUt enim ad 
minim veniam, quis nostrud exercitation ullamco laboris nisi ut\naliquip ex ea 
commodo consequat.\n\n** TODO Task 1                                            
             :Home:\n   SCHEDULED: <2010-10-08 Fri>\n\nDuis aute irure dolor in 
reprehenderit in voluptate velit esse cillum dolore\neu fugiat nulla 
pariatur.\n\n** DONE Task 2                                                     
  :School:\n   DEADLINE: <2010-10-26 Tue>\n   :LOGBOOK:\n   - State \"DONE\"    
   from \"\"           [2010-10-22 Fri 21:57]\n   :END:\n\nDeserunt =mollit= 
anim ~id~ est laborum:\n\n#+begin_src sql\nSELECT top 10 *\nFROM table\nWHERE 
price > 0\n#+end_src\n\n** TODO Task 3                                          
    :School:Computer:\n   [2010-10-26 Tue]\n\nExcepteur sint occaecat cupidatat 
non proident, sunt in culpa qui officia:\n\n| *Date*  | *Price* 
|\n|---------+---------|\n| You     |   18.90 |\n| Me      |   89.99 
|\n|---------+---------|\n| *Total* |  108.89 |\n#+TBLFM: 
@4$2=vsum(@address@hidden)\n\n* Headline 1\n\n#+BEGIN_QUOTE\nLorem ipsum dolor 
sit amet, consectetur adipiscing elit. Fusce vel leo odio,\nnon adipiscing mi. 
Etiam aliquet nibh sed nisl malesuada adipiscing. Donec\nmollis, turpis a 
faucibus consequat, ipsum magna molestie purus, eget\nfringilla urna leo ac 
urna. Ut condimentum, dolor\n#+END_QUOTE\n\n** Headline 2\n\n- Quis nostrud 
exercitation ullamco laboris nisi ut aliquip ex ea commodo\n  consequat.\n- 
Quid\n  + Cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat 
cupidatat\n    non proident, sunt in culpa qui officia deserunt mollit anim id 
est\n    laborum.\n  + Etc.\n- Duis aute irure dolor in reprehenderit in 
voluptate velit esse.\n\n*** Headline 3\n\nCurabitur vehicula interdum erat ut 
varius. Sed ut enim tortor, nec rutrum\nurna. Phasellus mauris velit, laoreet 
id pharetra vitae, convallis sit amet\nleo. Mauris posuere porta nunc in 
consectetur. Nullam ut nulla sed nisi\nfacilisis scelerisque quis ac nisi.\n" 0 
8 (font-lock-fontified t fontified t face org-document-info-keyword) 8 9 
(fontified t face font-lock-comment-face) 9 36 (font-lock-fontified t fontified 
t face org-document-title) 36 37 (fontified t) 37 55 (font-lock-fontified t 
fontified t face org-meta-line) 55 56 (fontified t) 56 93 (font-lock-fontified 
t fontified t face org-meta-line) 93 95 (fontified t) 95 97 (fontified t face 
org-level-1) 97 102 (fontified t face org-level-1) 102 339 (fontified t) 339 
340 (fontified t face org-level-2) 340 342 (fontified t face org-level-2) 342 
346 (fontified t face org-todo) 346 410 (fontified t face org-level-2) 410 415 
(fontified t face (org-tag org-level-2) org-no-flyspell t mouse-face highlight 
keymap (keymap ... ... ... ... ...)) 415 416 (rear-nonsticky (mouse-face 
highlight keymap invisible intangible help-echo org-linked-text) fontified t 
face (org-tag org-level-2) org-no-flyspell t mouse-face highlight keymap 
(keymap ... ... ... ... ...)) 416 420 (fontified t) 420 430 (fontified t face 
org-special-keyword) 430 431 (fontified t) 431 446 (fontified t org-no-flyspell 
t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 446 
447 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo 
org-linked-text) fontified t org-no-flyspell t mouse-face highlight keymap 
(keymap ... ... ... ... ...) face org-date) 447 471 (fontified t) 471 473 
(fontified t) 473 488 (fontified t) 488 490 (fontified t) 490 526 (fontified t) 
526 552 (fontified t) 552 553 (fontified t) 553 554 (fontified t face 
org-level-2) 554 556 (fontified t face org-level-2) 556 560 (fontified t face 
org-done) 560 622 (fontified t face org-headline-done) 622 629 (fontified t 
face org-headline-done org-no-flyspell t mouse-face highlight keymap (keymap 
... ... ... ... ...)) 629 630 (rear-nonsticky (mouse-face highlight keymap 
invisible intangible help-echo org-linked-text) fontified t face 
org-headline-done org-no-flyspell t mouse-face highlight keymap (keymap ... ... 
... ... ...)) 630 634 (fontified t) 634 643 (fontified t face 
org-special-keyword) 643 644 (fontified t) 644 659 (fontified t org-no-flyspell 
t mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 659 
660 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo 
org-linked-text) fontified t org-no-flyspell t mouse-face highlight keymap 
(keymap ... ... ... ... ...) face org-date) 660 661 (fontified t) 661 673 
(fontified t face org-special-keyword) 673 679 (fontified t) 679 684 (fontified 
t) 684 698 (fontified t) 698 702 (fontified t) 702 716 (fontified t) 716 737 
(fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... 
... ...) face org-date) 737 738 (rear-nonsticky (mouse-face highlight keymap 
invisible intangible help-echo org-linked-text) fontified t org-no-flyspell t 
mouse-face highlight keymap (keymap ... ... ... ... ...) face org-date) 738 739 
(fontified t) 739 743 (fontified t face org-special-keyword) 743 746 (fontified 
t face org-special-keyword) 746 747 (fontified t face org-special-keyword) 747 
757 (fontified t) 757 758 (fontified t org-no-flyspell t) 758 766 (fontified t 
face (org-code) org-no-flyspell t font-lock-multiline t org-emphasis t) 766 767 
(fontified t org-no-flyspell t) 767 771 (fontified t) 771 772 (fontified t 
org-no-flyspell t) 772 776 (fontified t face (org-verbatim) org-no-flyspell t 
font-lock-multiline t org-emphasis t) 776 777 (fontified t org-no-flyspell t) 
777 791 (fontified t) 791 803 (font-lock-fontified t fontified t face 
org-meta-line font-lock-multiline t) 803 806 (font-lock-fontified t fontified t 
face org-meta-line font-lock-multiline t) 806 807 (font-lock-fontified t 
fontified t font-lock-multiline t face nil) 807 808 (font-lock-fontified t 
fontified t font-lock-multiline t face font-lock-keyword-face) 808 813 
(font-lock-fontified t fontified t font-lock-multiline t face 
font-lock-keyword-face) 813 814 (font-lock-fontified t fontified t 
font-lock-multiline t face nil) 814 823 (font-lock-fontified t fontified t 
font-lock-multiline t face nil) 823 824 (font-lock-fontified t fontified t 
font-lock-multiline t face font-lock-keyword-face) 824 827 (font-lock-fontified 
t fontified t font-lock-multiline t face font-lock-keyword-face) 827 828 
(font-lock-fontified t fontified t font-lock-multiline t face nil) 828 829 
(font-lock-fontified t fontified t font-lock-multiline t face 
font-lock-keyword-face) 829 833 (font-lock-fontified t fontified t 
font-lock-multiline t face font-lock-keyword-face) 833 834 (font-lock-fontified 
t fontified t font-lock-multiline t face nil) 834 835 (font-lock-fontified t 
fontified t font-lock-multiline t face font-lock-keyword-face) 835 839 
(font-lock-fontified t fontified t font-lock-multiline t face 
font-lock-keyword-face) 839 840 (font-lock-fontified t fontified t 
font-lock-multiline t face font-lock-keyword-face) 840 849 (font-lock-fontified 
t fontified t font-lock-multiline t) 849 850 (font-lock-fontified t fontified t 
font-lock-multiline t) 850 859 (font-lock-fontified t fontified t face 
org-meta-line font-lock-multiline t) 859 860 (fontified t face org-meta-line) 
860 861 (fontified t) 861 862 (fontified t face org-level-2) 862 864 (fontified 
t face org-level-2) 864 868 (fontified t face org-todo) 868 921 (fontified t 
face org-level-2) 921 937 (fontified t face (org-tag org-level-2) 
org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...)) 937 
938 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo 
org-linked-text) fontified t face (org-tag org-level-2) org-no-flyspell t 
mouse-face highlight keymap (keymap ... ... ... ... ...)) 938 942 (fontified t) 
942 957 (fontified t org-no-flyspell t mouse-face highlight keymap (keymap ... 
... ... ... ...) face org-date) 957 958 (rear-nonsticky (mouse-face highlight 
keymap invisible intangible help-echo org-linked-text) fontified t 
org-no-flyspell t mouse-face highlight keymap (keymap ... ... ... ... ...) face 
org-date) 958 1013 (fontified t) 1013 1015 (fontified t) 1015 1035 (fontified 
t) 1035 1036 (fontified t) 1036 1038 (fontified t face org-table) 1038 1039 
(fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 1039 
1043 (fontified t face (bold org-table) font-lock-multiline t org-emphasis t) 
1043 1044 (fontified t face (bold org-table) font-lock-multiline t org-emphasis 
t) 1044 1048 (fontified t face org-table) 1048 1055 (fontified t face (bold 
org-table) font-lock-multiline t org-emphasis t) 1055 1057 (fontified t face 
org-table) 1057 1058 (fontified t) 1058 1059 (fontified t face org-table) 1059 
1065 (fontified t face org-table) 1065 1069 (fontified t face 
(org-latex-and-export-specials org-table) font-lock-multiline t) 1069 1075 
(fontified t face org-table) 1075 1079 (fontified t face 
(org-latex-and-export-specials org-table) font-lock-multiline t) 1079 1080 
(fontified t) 1080 1101 (fontified t face org-table) 1101 1102 (fontified t) 
1102 1123 (fontified t face org-table) 1123 1124 (fontified t) 1124 1125 
(fontified t face org-table) 1125 1131 (fontified t face org-table) 1131 1135 
(fontified t face (org-latex-and-export-specials org-table) font-lock-multiline 
t) 1135 1141 (fontified t face org-table) 1141 1145 (fontified t face 
(org-latex-and-export-specials org-table) font-lock-multiline t) 1145 1146 
(fontified t) 1146 1148 (fontified t face org-table) 1148 1155 (fontified t 
face (bold org-table) font-lock-multiline t org-emphasis t) 1155 1167 
(fontified t face org-table) 1167 1168 (fontified t) 1168 1197 (fontified t 
font-lock-fontified t face org-meta-line) 1197 1199 (fontified t) 1199 1201 
(fontified t face org-level-1) 1201 1211 (fontified t face org-level-1) 1211 
1213 (fontified t) 1213 1226 (fontified t font-lock-fontified t face 
org-meta-line font-lock-multiline t) 1226 1227 (fontified t font-lock-fontified 
t font-lock-multiline t) 1227 1498 (fontified t font-lock-fontified t 
font-lock-multiline t) 1498 1499 (fontified t font-lock-fontified t 
font-lock-multiline t) 1499 1510 (fontified t font-lock-fontified t face 
org-meta-line font-lock-multiline t) 1510 1511 (fontified t face org-meta-line) 
1511 1512 (fontified t) 1512 1513 (fontified t face org-level-2) 1513 1515 
(fontified t face org-level-2) 1515 1525 (fontified t face org-level-2) 1525 
1601 (fontified t) 1601 1859 (fontified nil) 1859 1860 (fontified nil) 1860 
1862 (fontified nil face org-level-3) 1862 1864 (fontified nil face 
org-level-3) 1864 1874 (fontified nil face org-level-3) 1874 2135 (fontified 
nil)) :emph-multiline t :for-html t :skip-before-1st-heading nil :drawers nil 
:todo-keywords t :tags not-in-toc :priority nil :footnotes t :timestamps t 
:archived-trees headline :select-tags ("export") :exclude-tags ("noexport") 
:add-text nil :LaTeX-fragments t)
  (org-split-string (org-export-preprocess-string region :emph-multiline t 
:for-html t :skip-before-1st-heading (plist-get opt-plist 
:skip-before-1st-heading) :drawers (plist-get opt-plist :drawers) 
:todo-keywords (plist-get opt-plist :todo-keywords) :tags (plist-get opt-plist 
:tags) :priority (plist-get opt-plist :priority) :footnotes (plist-get 
opt-plist :footnotes) :timestamps (plist-get opt-plist :timestamps) 
:archived-trees (plist-get opt-plist :archived-trees) :select-tags (plist-get 
opt-plist :select-tags) :exclude-tags (plist-get opt-plist :exclude-tags) 
:add-text (plist-get opt-plist :text) :LaTeX-fragments (plist-get opt-plist 
:LaTeX-fragments)) "[
\n]")
  (let* ((opt-plist ...) (body-only ...) (style ...) (html-extension ...) 
(link-validate ...) valid thetoc have-headings first-heading-pos (odd 
org-odd-levels-only) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...) 
(level-offset ...) (opt-plist ...) (org-current-export-dir ...) 
(org-current-export-file buffer-file-name) (level 0) (line "") (origline "") 
txt todo (umax nil) (umax-toc nil) (filename ...) (current-dir ...) (buffer 
...) (org-levels-open ...) (date ...) (author ...) (title ...) (link-up ...) 
(link-home ...) (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) 
(inquote nil) (infixed nil) (inverse nil) (in-local-list nil) (local-list-type 
nil) (local-list-indent nil) (llt org-plain-list-ordered-item-terminator) 
(email ...) (language ...) (keywords ...) (description ...) (lang-words nil) 
...) (let (...) (org-unmodified ...)) (message "Exporting...") (setq 
org-min-level (org-get-min-level lines level-offset)) (setq org-last-level 
org-min-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq 
lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer)) 
(fundamental-mode) (org-install-letbind) (and (fboundp ...) 
(set-buffer-file-coding-system coding-system-for-write)) (let (... ...) (mapc 
... org-export-plist-vars) (setq umax ...) (setq umax-toc ...) (unless 
body-only ... ... ...) (if ... ...) (setq head-count 0) 
(org-init-section-numbers) (org-open-par) (while ... ...) (when inquote ... 
...) (org-html-level-start 1 nil umax ... head-count) (when ... ...) 
(save-excursion ... ...) (when footnotes ...) (let ... ...) (unless body-only 
... ... ... ...) (unless ... ... ...) (goto-char ...) (when thetoc ... ... ... 
...) (goto-char ...) (while ... ...) (goto-char ...) (while ... ...) (goto-char 
...) (goto-char ...) (let ... ...) (goto-char ...) (when ... ...) 
(remove-text-properties ... ... ...) (run-hooks ...) (or to-buffer ...) 
(goto-char ...) (or ... ...) (if ... ... ...)))
  org-export-as-html(nil hidden)
  org-export-as-html-and-open(nil)
  call-interactively(org-export-as-html-and-open)
  (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sentinel 
p ...) (message "Background process \"%s\": started" p)) (if subtree-p (progn 
... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (let ... ... 
... ... ...)))
  (let* ((bg ...) subtree-p (help "[t]   insert the export option template\n[v] 
  limit export to visible part of outline tree\n[1]   only export the current 
subtree\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EXPORT_FILE_NAME 
prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8         [A/N/U] to temporary 
buffer\n\n[h] export as HTML      [H] to temporary buffer   [R] export 
region\n[b] export as HTML and open in browser\n\n[l] export as LaTeX     [L] 
to temporary buffer\n[p] export as LaTeX and process to PDF            [d] ... 
and open PDF file\n\n[D] export as DocBook   [V] export as DocBook, process to 
PDF, and open\n\n[j] export as TaskJuggler                         [J] ... and 
open\n\n[m] export as Freemind mind map\n[x] export as XOXO\n[g] export using 
Wes Hardaker's generic exporter\n\n[i] export current file as iCalendar 
file\n[I] export all agenda files as iCalendar files   [c] ...as one combined 
file\n\n[F] publish current file          [P] publish current project\n[X] 
publish a project...          [E] publish every projects") (cmds ...) r1 r2 ass 
(cpos ...) (cbuf ...) bpos) (save-excursion (save-window-excursion ... ... ... 
... ... ... ...)) (and bpos (goto-char bpos)) (setq r2 (if ... ... r1)) (unless 
(setq ass ...) (error "No command associated with key %c" r1)) (if (and bg ... 
... ...) (let ... ... ...) (if subtree-p ...) (call-interactively ...) (when 
... ...)))
  org-export(nil)
  call-interactively(org-export nil nil)
  recursive-edit()
  byte-code("\306      
@\307=\203!\310\311\312\"\210\313\311!\211A@)\242\314=\203!\310\315\312\"\210\316!\210\317
 \210\320 !\210\f\203d\321ed\"
V\203Web\210\322
\245y\210`db\210\322
\245
Zy\210`|\210)\323c\210eb\210\324\325\326 
\"\210\327\306!\210\324\330!\210\331\312\324\330!\210\212\332 
\210+\331\207" [unread-command-char debugger-args x debugger-buffer 
noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t 
backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer 
count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil 
recursive-edit middlestart buffer-read-only standard-output] 4)
  debug(error (wrong-type-argument integer-or-marker-p nil))
  goto-char(nil)
  (progn (goto-char isearch-other-end))
  (if isearch-forward (progn (goto-char isearch-other-end)))
  (when isearch-forward (goto-char isearch-other-end))
  custom-goto-match-beginning()
  run-hooks(isearch-mode-end-hook)
  isearch-done()
  isearch-other-control-char(nil)
  call-interactively(isearch-other-control-char nil nil)
--8<---------------cut here---------------end--------------->8---

The only code block I have in that file is a 3-line SQL src. Though, I have
sql-mode loaded... hence why such a message?

BTW, I "never" asked for the org-src-fontification for one sole reason: as
reported, since that change, I don't benefit anymore of the #+BEGIN_SRC line
being fontified up to the end of the screen (i.e., not limited up to the last
character on that line = C-e).

Why is it on?

--8<---------------cut here---------------start------------->8---
org-src-fontify-natively is a variable defined in `org.el'.
Its value is t

Documentation:
When non-nil, fontify code in code blocks.

You can customize this variable.

[back]
--8<---------------cut here---------------end--------------->8---

I've seen the culprit:

  (setq org-src-fontify-natively t)

line 221 of epresent.el.

I don't mind that much: it allowed this problem to pop up.

Best regards,
  Seb

-- 
Sébastien Vauban




reply via email to

[Prev in Thread] Current Thread [Next in Thread]