emacs-orgmode
[Top][All Lists]
Advanced

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

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


From: Eric Schulte
Subject: Re: [Orgmode] [Babel] Bug with org-src-fontify-natively... after running epresent
Date: Thu, 28 Oct 2010 16:55:28 -0600
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux)

Hi Seb,

I just pushed up a change to epresent so that it should now restore your
original value of org-src-fontify-natively -- assuming that you quit
epresent with the epresent-quit command (bound to "q").

Best -- Eric

Sébastien Vauban <address@hidden> writes:

> Hello Eric,
>
> After having run epresent, I got this error when trying to publish my
> theme-test.org file (sent on this list a couple of days ago -- no reaction
> BTW ;-)).
>
> Debugger entered--Lisp error: (void-function -mode)
>   -mode()
>   funcall(-mode)
>   (if (eq major-mode lang-mode) nil (funcall lang-mode))
>   (unless (eq major-mode lang-mode) (funcall lang-mode))
>   (save-current-buffer (set-buffer (get-buffer-create ...)) (delete-region 
> (point-min) (point-max)) (insert string) (unless (eq major-mode lang-mode) 
> (funcall lang-mode)) (font-lock-fontify-buffer) (setq pos (point-min)) (while 
> (setq next ...) (put-text-property ... ... ... ... org-buffer) (setq pos 
> next)))
>   (with-current-buffer (get-buffer-create (concat " org-src-fontification:" 
> ...)) (delete-region (point-min) (point-max)) (insert string) (unless (eq 
> major-mode lang-mode) (funcall lang-mode)) (font-lock-fontify-buffer) (setq 
> pos (point-min)) (while (setq next ...) (put-text-property ... ... ... ... 
> org-buffer) (setq pos next)))
>   (let* ((lang-mode ...) (string ...) (modified ...) (org-buffer ...) pos 
> next) (remove-text-properties start end (quote ...)) (with-current-buffer 
> (get-buffer-create ...) (delete-region ... ...) (insert string) (unless ... 
> ...) (font-lock-fontify-buffer) (setq pos ...) (while ... ... ...)) 
> (add-text-properties start end (quote ...)) (set-buffer-modified-p modified))
>   org-src-font-lock-fontify-block("" 1227 1500)
>   (cond ((and lang org-src-fontify-natively) (org-src-font-lock-fontify-block 
> lang block-start block-end)) (quoting (add-text-properties beg1 ... ...)) 
> ((not org-fontify-quote-and-verse-blocks)) ((string= block-type "quote") 
> (add-text-properties beg1 end1 ...)) ((string= block-type "verse") 
> (add-text-properties beg1 end1 ...)))
>   (progn (setq end (match-end 0) end1 (1- ...)) (setq block-end 
> (match-beginning 0)) (when quoting (remove-text-properties beg end ...)) 
> (add-text-properties beg end (quote ...)) (add-text-properties beg beg1 
> (quote ...)) (add-text-properties end1 (+ end 1) (quote ...)) (cond (... ...) 
> (quoting ...) (...) (... ...) (... ...)) t)
>   (if (re-search-forward (concat "^[  ]*#\\+end" ... "\\>.*") nil t) (progn 
> (setq end ... end1 ...) (setq block-end ...) (when quoting ...) 
> (add-text-properties beg end ...) (add-text-properties beg beg1 ...) 
> (add-text-properties end1 ... ...) (cond ... ... ... ... ...) t))
>   (when (re-search-forward (concat "^[        ]*#\\+end" ... "\\>.*") nil t) 
> (setq end (match-end 0) end1 (1- ...)) (setq block-end (match-beginning 0)) 
> (when quoting (remove-text-properties beg end ...)) (add-text-properties beg 
> end (quote ...)) (add-text-properties beg beg1 (quote ...)) 
> (add-text-properties end1 (+ end 1) (quote ...)) (cond (... ...) (quoting 
> ...) (...) (... ...) (... ...)) t)
>   (cond ((member dc1 ...) (org-remove-flyspell-overlays-in ... ...) 
> (remove-text-properties ... ... ...) (add-text-properties ... ... ...) 
> (add-text-properties ... ... ...) t) ((and ... ...) (setq block-type ... 
> quoting ...) (when ... ... ... ... ... ... ... ... t)) ((member dc1 ...) 
> (add-text-properties beg ... ...) (add-text-properties ... ... ...)) ((not 
> ...) (add-text-properties beg ... ...) t) ((or ... ...) (add-text-properties 
> beg ... ...) t) ((member dc3 ...) (add-text-properties beg ... ...)) (t nil))
>   (let ((beg ...) (block-start ...) (block-end nil) (lang ...) (beg1 ...) 
> (dc1 ...) (dc3 ...) end end1 quoting block-type) (cond (... ... ... ... ... 
> t) (... ... ...) (... ... ...) (... ... t) (... ... t) (... ...) (t nil)))
>   (if (re-search-forward "^\\([       ]*#\\+\\(\\([a-zA-Z]+:?\\| 
> \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[   ]*\\(\\([^      \n]*\\)[        
> ]*\\(.*\\)\\)\\)" limit t) (let (... ... ... ... ... ... ... end end1 quoting 
> block-type) (cond ... ... ... ... ... ... ...)))
>   (let ((case-fold-search t)) (if (re-search-forward "^\\([   
> ]*#\\+\\(\\([a-zA-Z]+:?\\| \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[   ]*\\(\\([^    
>   \n]*\\)[        ]*\\(.*\\)\\)\\)" limit t) (let ... ...)))
>   org-fontify-meta-lines-and-blocks(2136)
>   #[(start end &optional loudly) "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$\210A\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$\210A\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\245Zy\210`|\210)\323c\210eb\210\324\325\326
>  \"\210\327\306!\210\324\330!\210\331\312\324\330!\210\212\332 
> \210+\331\207" [unread-command-char debugger-args x debugger-buffer 
> noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t 
> backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer 
> count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil 
> recursive-edit middlestart buffer-read-only standard-output] 4)
>   debug(error (wrong-type-argument integer-or-marker-p nil))
>   goto-char(nil)
>   (progn (goto-char isearch-other-end))
>   (if isearch-forward (progn (goto-char isearch-other-end)))
>   (when isearch-forward (goto-char isearch-other-end))
>   custom-goto-match-beginning()
>   run-hooks(isearch-mode-end-hook)
>   isearch-done()
>   isearch-other-control-char(nil)
>   call-interactively(isearch-other-control-char nil nil)
>
> The only code block I have in that file is a 3-line SQL src. Though, I have
> sql-mode loaded... hence why such a message?
>
> BTW, I "never" asked for the org-src-fontification for one sole reason: as
> reported, since that change, I don't benefit anymore of the #+BEGIN_SRC line
> being fontified up to the end of the screen (i.e., not limited up to the last
> character on that line = C-e).
>
> Why is it on?
>
> org-src-fontify-natively is a variable defined in `org.el'.
> Its value is t
>
> Documentation:
> When non-nil, fontify code in code blocks.
>
> You can customize this variable.
>
> [back]
>
> I've seen the culprit:
>
>   (setq org-src-fontify-natively t)
>
> line 221 of epresent.el.
>
> I don't mind that much: it allowed this problem to pop up.
>
> Best regards,
>   Seb



reply via email to

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