From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
Subject: [bug] "Invalid face" when exporting code block to HTML
Date: Thu, 05 Jan 2012 23:06:48 +0100
Message-ID: <80aa61ls7b.fsf@somewhere.org>
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode-mXXj517/zsQ@public.gmane.org>
List-Help: <mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org

Hello,

Not a good day for me, today...

* Summary

Quite "simple": the following block generates an "Invalid face" error when
exported to HTML.

#+begin_src sh
svn checkout http://svn/trunk/dev/ mydev
#+end_src

This worked yesterday. Does it ring a bell to someone? Could some recent
commit be responsible of this?

* Version info

GNU Emacs 24.0.92.1 (i386-mingw-nt5.1.2600) of 2011-12-07 on MARVIN

Org-mode version 7.8.03 (release_7.8.03.31.g28541)

* Backtrace

#+begin_src emacs-lisp
Debugger entered--Lisp error: (error "Invalid face")
  internal-get-lisp-face-attribute(nil :height nil)
  face-attribute(nil :height)
  (setq h (face-attribute f :height))
  (while (progn (setq f (if --cl-var-- face (face-attribute f :inherit))) (=
not (eq f (quote unspecified)))) (setq h (face-attribute f :height)) (push =
(if (eq h (quote unspecified)) nil h) --cl-var--) (setq --cl-var-- nil))
  (let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var-- t)) (while (progn (se=
tq f (if --cl-var-- face (face-attribute f :inherit))) (not (eq f (quote un=
specified)))) (setq h (face-attribute f :height)) (push (if (eq h (quote un=
specified)) nil h) --cl-var--) (setq --cl-var-- nil)) (nreverse --cl-var--))
  (catch (quote --cl-block-nil--) (let* ((f nil) (h nil) (--cl-var-- nil) (=
--cl-var-- t)) (while (progn (setq f (if --cl-var-- face (face-attribute f =
:inherit))) (not (eq f (quote unspecified)))) (setq h (face-attribute f :he=
ight)) (push (if (eq h (quote unspecified)) nil h) --cl-var--) (setq --cl-v=
ar-- nil)) (nreverse --cl-var--)))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((f nil) (h nil) =
(--cl-var-- nil) (--cl-var-- t)) (while (progn (setq f (if --cl-var-- face =
(face-attribute f :inherit))) (not (eq f (quote unspecified)))) (setq h (fa=
ce-attribute f :height)) (push (if (eq h (quote unspecified)) nil h) --cl-v=
ar--) (setq --cl-var-- nil)) (nreverse --cl-var--))))
  (block nil (let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var-- t)) (while=
 (progn (setq f (if --cl-var-- face (face-attribute f :inherit))) (not (eq =
f (quote unspecified)))) (setq h (face-attribute f :height)) (push (if (eq =
h (quote unspecified)) nil h) --cl-var--) (setq --cl-var-- nil)) (nreverse =
--cl-var--)))
  (loop for f =3D face then (face-attribute f :inherit) until (eq f (quote =
unspecified)) for h =3D (face-attribute f :height) collect (if (eq h (quote=
 unspecified)) nil h))
  (let ((size-list (loop for f =3D face then (face-attribute f :inherit) un=
til (eq f (quote unspecified)) for h =3D (face-attribute f :height) collect=
 (if (eq h (quote unspecified)) nil h)))) (reduce (quote htmlize-merge-size=
) (cons nil size-list)))
  htmlize-face-size(default)
  (let ((size (htmlize-face-size face))) (unless (eql size 1.0) (setf (html=
ize-fstruct-size fstruct) size)))
  (cond (htmlize-running-xemacs (let* ((font-instance (face-font-instance f=
ace)) (props (font-instance-properties font-instance))) (when (equalp (cdr =
(assq (quote WEIGHT_NAME) props)) "bold") (setf (htmlize-fstruct-boldp fstr=
uct) t)) (when (or (equalp (cdr (assq ... props)) "i") (equalp (cdr (assq .=
.. props)) "o")) (setf (htmlize-fstruct-italicp fstruct) t)) (setf (htmlize=
-fstruct-strikep fstruct) (face-strikethru-p face)) (setf (htmlize-fstruct-=
underlinep fstruct) (face-underline-p face)))) ((fboundp (quote face-attrib=
ute)) (dolist (attr (quote (:weight :slant :underline :overline :strike-thr=
ough))) (let ((value (if (>=3D emacs-major-version 22) (face-attribute face=
 attr nil t) (let ... ... ...)))) (when (and value (not (eq value ...))) (h=
tmlize-face-emacs21-attr fstruct attr value)))) (let ((size (htmlize-face-s=
ize face))) (unless (eql size 1.0) (setf (htmlize-fstruct-size fstruct) siz=
e)))) (t (when (fboundp (quote face-bold-p)) (setf (htmlize-fstruct-boldp f=
struct) (face-bold-p face))) (when (fboundp (quote face-italic-p)) (setf (h=
tmlize-fstruct-italicp fstruct) (face-italic-p face))) (setf (htmlize-fstru=
ct-underlinep fstruct) (face-underline-p face))))
  (let ((fstruct (make-htmlize-fstruct :foreground (htmlize-color-to-rgb (h=
tmlize-face-foreground face)) :background (htmlize-color-to-rgb (htmlize-fa=
ce-background face))))) (cond (htmlize-running-xemacs (let* ((font-instance=
 (face-font-instance face)) (props (font-instance-properties font-instance)=
)) (when (equalp (cdr (assq ... props)) "bold") (setf (htmlize-fstruct-bold=
p fstruct) t)) (when (or (equalp (cdr ...) "i") (equalp (cdr ...) "o")) (se=
tf (htmlize-fstruct-italicp fstruct) t)) (setf (htmlize-fstruct-strikep fst=
ruct) (face-strikethru-p face)) (setf (htmlize-fstruct-underlinep fstruct) =
(face-underline-p face)))) ((fboundp (quote face-attribute)) (dolist (attr =
(quote (:weight :slant :underline :overline :strike-through))) (let ((value=
 (if ... ... ...))) (when (and value (not ...)) (htmlize-face-emacs21-attr =
fstruct attr value)))) (let ((size (htmlize-face-size face))) (unless (eql =
size 1.0) (setf (htmlize-fstruct-size fstruct) size)))) (t (when (fboundp (=
quote face-bold-p)) (setf (htmlize-fstruct-boldp fstruct) (face-bold-p face=
))) (when (fboundp (quote face-italic-p)) (setf (htmlize-fstruct-italicp fs=
truct) (face-italic-p face))) (setf (htmlize-fstruct-underlinep fstruct) (f=
ace-underline-p face)))) (setf (htmlize-fstruct-css-name fstruct) (let ((na=
me (downcase (symbol-name face)))) (when (string-match "\\`font-lock-" name=
) (setq name (replace-match "" t t name))) (when (string-match "-face\\'" n=
ame) (setq name (replace-match "" t t name))) (while (string-match "[^-a-zA=
-Z0-9]" name) (setq name (replace-match "X" t t name))) (when (string-match=
 "\\`[-0-9]" name) (setq name (concat "X" name))) (when (equal name "") (se=
tq name "face")) (setq name (concat htmlize-css-name-prefix name)) name)) f=
struct)
  htmlize-face-to-fstruct(default)
  (if (symbolp face) (htmlize-face-to-fstruct face) (htmlize-attrlist-to-fs=
truct face))
  (let ((fstruct (if (symbolp face) (htmlize-face-to-fstruct face) (htmlize=
-attrlist-to-fstruct face)))) (setf (gethash face face-map) fstruct) (let* =
((css-name (htmlize-fstruct-css-name fstruct)) (new-name css-name) (i 0)) (=
while (member new-name css-names) (setq new-name (format "%s-%s" css-name (=
incf i)))) (unless (equal new-name css-name) (setf (htmlize-fstruct-css-nam=
e fstruct) new-name)) (push new-name css-names)))
  (if (gethash face face-map) nil (let ((fstruct (if (symbolp face) (htmliz=
e-face-to-fstruct face) (htmlize-attrlist-to-fstruct face)))) (setf (gethas=
h face face-map) fstruct) (let* ((css-name (htmlize-fstruct-css-name fstruc=
t)) (new-name css-name) (i 0)) (while (member new-name css-names) (setq new=
-name (format "%s-%s" css-name (incf i)))) (unless (equal new-name css-name=
) (setf (htmlize-fstruct-css-name fstruct) new-name)) (push new-name css-na=
mes))))
  (unless (gethash face face-map) (let ((fstruct (if (symbolp face) (htmliz=
e-face-to-fstruct face) (htmlize-attrlist-to-fstruct face)))) (setf (gethas=
h face face-map) fstruct) (let* ((css-name (htmlize-fstruct-css-name fstruc=
t)) (new-name css-name) (i 0)) (while (member new-name css-names) (setq new=
-name (format "%s-%s" css-name (incf i)))) (unless (equal new-name css-name=
) (setf (htmlize-fstruct-css-name fstruct) new-name)) (push new-name css-na=
mes))))
  (while --cl-dolist-temp-- (setq face (car --cl-dolist-temp--)) (unless (g=
ethash face face-map) (let ((fstruct (if (symbolp face) (htmlize-face-to-fs=
truct face) (htmlize-attrlist-to-fstruct face)))) (setf (gethash face face-=
map) fstruct) (let* ((css-name (htmlize-fstruct-css-name fstruct)) (new-nam=
e css-name) (i 0)) (while (member new-name css-names) (setq new-name (forma=
t "%s-%s" css-name (incf i)))) (unless (equal new-name css-name) (setf (htm=
lize-fstruct-css-name fstruct) new-name)) (push new-name css-names)))) (set=
q --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- faces) face) (while --cl-dolist-temp-- (setq fa=
ce (car --cl-dolist-temp--)) (unless (gethash face face-map) (let ((fstruct=
 (if (symbolp face) (htmlize-face-to-fstruct face) (htmlize-attrlist-to-fst=
ruct face)))) (setf (gethash face face-map) fstruct) (let* ((css-name (html=
ize-fstruct-css-name fstruct)) (new-name css-name) (i 0)) (while (member ne=
w-name css-names) (setq new-name (format "%s-%s" css-name ...))) (unless (e=
qual new-name css-name) (setf (htmlize-fstruct-css-name fstruct) new-name))=
 (push new-name css-names)))) (setq --cl-dolist-temp-- (cdr --cl-dolist-tem=
p--))))
  (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- faces) face) (w=
hile --cl-dolist-temp-- (setq face (car --cl-dolist-temp--)) (unless (getha=
sh face face-map) (let ((fstruct (if ... ... ...))) (setf (gethash face fac=
e-map) fstruct) (let* ((css-name ...) (new-name css-name) (i 0)) (while (me=
mber new-name css-names) (setq new-name ...)) (unless (equal new-name css-n=
ame) (setf ... new-name)) (push new-name css-names)))) (setq --cl-dolist-te=
mp-- (cdr --cl-dolist-temp--)))))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp=
-- faces) face) (while --cl-dolist-temp-- (setq face (car --cl-dolist-temp-=
-)) (unless (gethash face face-map) (let ((fstruct ...)) (setf (gethash fac=
e face-map) fstruct) (let* (... ... ...) (while ... ...) (unless ... ...) (=
push new-name css-names)))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp-=
-))))))
  (block nil (let ((--cl-dolist-temp-- faces) face) (while --cl-dolist-temp=
-- (setq face (car --cl-dolist-temp--)) (unless (gethash face face-map) (le=
t ((fstruct (if ... ... ...))) (setf (gethash face face-map) fstruct) (let*=
 ((css-name ...) (new-name css-name) (i 0)) (while (member new-name css-nam=
es) (setq new-name ...)) (unless (equal new-name css-name) (setf ... new-na=
me)) (push new-name css-names)))) (setq --cl-dolist-temp-- (cdr --cl-dolist=
-temp--)))))
  (dolist (face faces) (unless (gethash face face-map) (let ((fstruct (if (=
symbolp face) (htmlize-face-to-fstruct face) (htmlize-attrlist-to-fstruct f=
ace)))) (setf (gethash face face-map) fstruct) (let* ((css-name (htmlize-fs=
truct-css-name fstruct)) (new-name css-name) (i 0)) (while (member new-name=
 css-names) (setq new-name (format "%s-%s" css-name (incf i)))) (unless (eq=
ual new-name css-name) (setf (htmlize-fstruct-css-name fstruct) new-name)) =
(push new-name css-names)))))
  (let ((face-map (make-hash-table :test (quote equal))) css-names) (dolist=
 (face faces) (unless (gethash face face-map) (let ((fstruct (if (symbolp f=
ace) (htmlize-face-to-fstruct face) (htmlize-attrlist-to-fstruct face)))) (=
setf (gethash face face-map) fstruct) (let* ((css-name (htmlize-fstruct-css=
-name fstruct)) (new-name css-name) (i 0)) (while (member new-name css-name=
s) (setq new-name (format "%s-%s" css-name ...))) (unless (equal new-name c=
ss-name) (setf (htmlize-fstruct-css-name fstruct) new-name)) (push new-name=
 css-names))))) face-map)
  htmlize-make-face-map((default (:foreground "black" :background "#FF993F"=
) (:foreground "black" :background "#FFF33F") (:foreground "black" :backgro=
und "#B0FF3F") (:foreground "black" :background "#4BFF4B") (:foreground "bl=
ack" :background "#3FFFB0") (:foreground "black" :background "#3FF3FF") (:f=
oreground "black" :background "#3F99FF") (:foreground "white" :background "=
#3F3FFF")))
  (let* ((buffer-faces (htmlize-faces-in-buffer)) (face-map (htmlize-make-f=
ace-map (adjoin (quote default) buffer-faces))) (htmlbuf (generate-new-buff=
er (if (buffer-file-name) (htmlize-make-file-name (file-name-nondirectory (=
buffer-file-name))) "*html*"))) (places (quote (nil nil))) (title (if (buff=
er-file-name) (file-name-nondirectory (buffer-file-name)) (buffer-name)))) =
(with-current-buffer htmlbuf (buffer-disable-undo) (insert (htmlize-method =
doctype) 10 (format "<!-- Created by htmlize-%s in %s mode. -->\n" htmlize-=
version htmlize-output-type) "<html>\n  ") (plist-put places (quote head-st=
art) (point-marker)) (insert "<head>\n" "    <title>" (htmlize-protect-stri=
ng title) "</title>\n" (if htmlize-html-charset (format (concat "    <meta =
http-equiv=3D\"Content-Type\" " "content=3D\"text/html; charset=3D%s\">\n")=
 htmlize-html-charset) "") htmlize-head-tags) (htmlize-method insert-head b=
uffer-faces face-map) (insert "  </head>") (plist-put places (quote head-en=
d) (point-marker)) (insert "\n  ") (plist-put places (quote body-start) (po=
int-marker)) (insert (htmlize-method body-tag face-map) "\n    ") (plist-pu=
t places (quote content-start) (point-marker)) (insert "<pre>\n")) (let ((i=
nsert-text-method (htmlize-method-function (quote insert-text))) next-chang=
e text face-list fstruct-list trailing-ellipsis) (goto-char (point-min)) (w=
hile (not (eobp)) (setq next-change (htmlize-next-change (point) (quote fac=
e))) (setq face-list (htmlize-faces-at-point) fstruct-list (delq nil (mapca=
r (lambda (f) (gethash f face-map)) face-list))) (setq text (htmlize-buffer=
-substring-no-invisible (point) next-change)) (when trailing-ellipsis (setq=
 text (htmlize-trim-ellipsis text))) (when (> (length text) 0) (setq traili=
ng-ellipsis (get-text-property (1- (length text)) (quote htmlize-ellipsis) =
text))) (setq text (htmlize-untabify text (current-column))) (setq text (ht=
mlize-protect-string text)) (when (> (length text) 0) (funcall insert-text-=
method text fstruct-list htmlbuf)) (goto-char next-change))) (with-current-=
buffer htmlbuf (insert "</pre>") (plist-put places (quote content-end) (poi=
nt-marker)) (insert "\n  </body>") (plist-put places (quote body-end) (poin=
t-marker)) (insert "\n</html>\n") (when htmlize-generate-hyperlinks (htmliz=
e-make-hyperlinks)) (htmlize-defang-local-variables) (when htmlize-replace-=
form-feeds (goto-char (point-min)) (let ((source (htmlize-protect-string "\=
n\f")) (replacement (if (stringp htmlize-replace-form-feeds) htmlize-replac=
e-form-feeds "</pre><hr /><pre>"))) (while (search-forward source nil t) (r=
eplace-match replacement t t)))) (goto-char (point-min)) (when htmlize-html=
-major-mode (funcall htmlize-html-major-mode)) (set (make-local-variable (q=
uote htmlize-buffer-places)) places) (run-hooks (quote htmlize-after-hook))=
 (buffer-enable-undo)) htmlbuf)
  (save-excursion (save-excursion (run-hooks (quote htmlize-before-hook))) =
(htmlize-ensure-fontified) (clrhash htmlize-extended-character-cache) (clrh=
ash htmlize-memoization-table) (let* ((buffer-faces (htmlize-faces-in-buffe=
r)) (face-map (htmlize-make-face-map (adjoin (quote default) buffer-faces))=
) (htmlbuf (generate-new-buffer (if (buffer-file-name) (htmlize-make-file-n=
ame (file-name-nondirectory ...)) "*html*"))) (places (quote (nil nil))) (t=
itle (if (buffer-file-name) (file-name-nondirectory (buffer-file-name)) (bu=
ffer-name)))) (with-current-buffer htmlbuf (buffer-disable-undo) (insert (h=
tmlize-method doctype) 10 (format "<!-- Created by htmlize-%s in %s mode. -=
->\n" htmlize-version htmlize-output-type) "<html>\n  ") (plist-put places =
(quote head-start) (point-marker)) (insert "<head>\n" "    <title>" (htmliz=
e-protect-string title) "</title>\n" (if htmlize-html-charset (format (conc=
at "    <meta http-equiv=3D\"Content-Type\" " "content=3D\"text/html; chars=
et=3D%s\">\n") htmlize-html-charset) "") htmlize-head-tags) (htmlize-method=
 insert-head buffer-faces face-map) (insert "  </head>") (plist-put places =
(quote head-end) (point-marker)) (insert "\n  ") (plist-put places (quote b=
ody-start) (point-marker)) (insert (htmlize-method body-tag face-map) "\n  =
  ") (plist-put places (quote content-start) (point-marker)) (insert "<pre>=
\n")) (let ((insert-text-method (htmlize-method-function (quote insert-text=
))) next-change text face-list fstruct-list trailing-ellipsis) (goto-char (=
point-min)) (while (not (eobp)) (setq next-change (htmlize-next-change (poi=
nt) (quote face))) (setq face-list (htmlize-faces-at-point) fstruct-list (d=
elq nil (mapcar (lambda ... ...) face-list))) (setq text (htmlize-buffer-su=
bstring-no-invisible (point) next-change)) (when trailing-ellipsis (setq te=
xt (htmlize-trim-ellipsis text))) (when (> (length text) 0) (setq trailing-=
ellipsis (get-text-property (1- ...) (quote htmlize-ellipsis) text))) (setq=
 text (htmlize-untabify text (current-column))) (setq text (htmlize-protect=
-string text)) (when (> (length text) 0) (funcall insert-text-method text f=
struct-list htmlbuf)) (goto-char next-change))) (with-current-buffer htmlbu=
f (insert "</pre>") (plist-put places (quote content-end) (point-marker)) (=
insert "\n  </body>") (plist-put places (quote body-end) (point-marker)) (i=
nsert "\n</html>\n") (when htmlize-generate-hyperlinks (htmlize-make-hyperl=
inks)) (htmlize-defang-local-variables) (when htmlize-replace-form-feeds (g=
oto-char (point-min)) (let ((source (htmlize-protect-string "\n\f")) (repla=
cement (if ... htmlize-replace-form-feeds "</pre><hr /><pre>"))) (while (se=
arch-forward source nil t) (replace-match replacement t t)))) (goto-char (p=
oint-min)) (when htmlize-html-major-mode (funcall htmlize-html-major-mode))=
 (set (make-local-variable (quote htmlize-buffer-places)) places) (run-hook=
s (quote htmlize-after-hook)) (buffer-enable-undo)) htmlbuf))
  htmlize-buffer-1()
  (save-restriction (narrow-to-region beg end) (htmlize-buffer-1))
  (let ((htmlbuf (save-restriction (narrow-to-region beg end) (htmlize-buff=
er-1)))) (when (interactive-p) (switch-to-buffer htmlbuf)) htmlbuf)
  htmlize-region(1 42)
  (let* ((htmlize-output-type org-export-htmlize-output-type) (htmlize-css-=
name-prefix org-export-htmlize-css-font-prefix) (htmlbuf (htmlize-region be=
g end))) (unwind-protect (with-current-buffer htmlbuf (buffer-substring (pl=
ist-get htmlize-buffer-places (quote content-start)) (plist-get htmlize-buf=
fer-places (quote content-end)))) (kill-buffer htmlbuf)))
  org-export-htmlize-region-for-paste(1 42)
  (progn (insert rtn) (if (functionp mode) (funcall mode) (fundamental-mode=
)) (font-lock-fontify-buffer) (org-remove-formatting-on-newlines-in-region =
(point-min) (point-max)) (org-src-mode) (set-buffer-modified-p nil) (org-ex=
port-htmlize-region-for-paste (point-min) (point-max)))
  (unwind-protect (progn (insert rtn) (if (functionp mode) (funcall mode) (=
fundamental-mode)) (font-lock-fontify-buffer) (org-remove-formatting-on-new=
lines-in-region (point-min) (point-max)) (org-src-mode) (set-buffer-modifie=
d-p nil) (org-export-htmlize-region-for-paste (point-min) (point-max))) (an=
d (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (ins=
ert rtn) (if (functionp mode) (funcall mode) (fundamental-mode)) (font-lock=
-fontify-buffer) (org-remove-formatting-on-newlines-in-region (point-min) (=
point-max)) (org-src-mode) (set-buffer-modified-p nil) (org-export-htmlize-=
region-for-paste (point-min) (point-max))) (and (buffer-name temp-buffer) (=
kill-buffer temp-buffer))))
  (with-current-buffer temp-buffer (unwind-protect (progn (insert rtn) (if =
(functionp mode) (funcall mode) (fundamental-mode)) (font-lock-fontify-buff=
er) (org-remove-formatting-on-newlines-in-region (point-min) (point-max)) (=
org-src-mode) (set-buffer-modified-p nil) (org-export-htmlize-region-for-pa=
ste (point-min) (point-max))) (and (buffer-name temp-buffer) (kill-buffer t=
emp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer=
 temp-buffer (unwind-protect (progn (insert rtn) (if (functionp mode) (func=
all mode) (fundamental-mode)) (font-lock-fontify-buffer) (org-remove-format=
ting-on-newlines-in-region (point-min) (point-max)) (org-src-mode) (set-buf=
fer-modified-p nil) (org-export-htmlize-region-for-paste (point-min) (point=
-max))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (with-temp-buffer (insert rtn) (if (functionp mode) (funcall mode) (funda=
mental-mode)) (font-lock-fontify-buffer) (org-remove-formatting-on-newlines=
-in-region (point-min) (point-max)) (org-src-mode) (set-buffer-modified-p n=
il) (org-export-htmlize-region-for-paste (point-min) (point-max)))
  (setq rtn (with-temp-buffer (insert rtn) (if (functionp mode) (funcall mo=
de) (fundamental-mode)) (font-lock-fontify-buffer) (org-remove-formatting-o=
n-newlines-in-region (point-min) (point-max)) (org-src-mode) (set-buffer-mo=
dified-p nil) (org-export-htmlize-region-for-paste (point-min) (point-max))=
))
  (let* ((lang-m (when lang (or (cdr (assoc lang org-src-lang-modes)) lang)=
)) (mode (and lang-m (intern (concat (if (symbolp lang-m) (symbol-name lang=
-m) lang-m) "-mode")))) (org-inhibit-startup t) (org-startup-folded nil)) (=
setq rtn (with-temp-buffer (insert rtn) (if (functionp mode) (funcall mode)=
 (fundamental-mode)) (font-lock-fontify-buffer) (org-remove-formatting-on-n=
ewlines-in-region (point-min) (point-max)) (org-src-mode) (set-buffer-modif=
ied-p nil) (org-export-htmlize-region-for-paste (point-min) (point-max)))) =
(if (string-match "<pre\\([^>]*\\)>\n*" rtn) (setq rtn (concat (if caption =
(concat "<div class=3D\"org-src-container\">" (format "<label class=3D\"org=
-src-name\">%s</label>" caption)) "") (replace-match (format "<pre class=3D=
\"src src-%s\">\n" lang) t t rtn) (if caption "</div>" "")))))
  (if lang (let* ((lang-m (when lang (or (cdr (assoc lang org-src-lang-mode=
s)) lang))) (mode (and lang-m (intern (concat (if ... ... lang-m) "-mode"))=
)) (org-inhibit-startup t) (org-startup-folded nil)) (setq rtn (with-temp-b=
uffer (insert rtn) (if (functionp mode) (funcall mode) (fundamental-mode)) =
(font-lock-fontify-buffer) (org-remove-formatting-on-newlines-in-region (po=
int-min) (point-max)) (org-src-mode) (set-buffer-modified-p nil) (org-expor=
t-htmlize-region-for-paste (point-min) (point-max)))) (if (string-match "<p=
re\\([^>]*\\)>\n*" rtn) (setq rtn (concat (if caption (concat "<div class=
=3D\"org-src-container\">" (format "<label class=3D\"org-src-name\">%s</lab=
el>" caption)) "") (replace-match (format "<pre class=3D\"src src-%s\">\n" =
lang) t t rtn) (if caption "</div>" ""))))) (if textareap (setq rtn (concat=
 (format "<p>\n<textarea cols=3D\"%d\" rows=3D\"%d\">" cols rows) rtn "</te=
xtarea>\n</p>\n")) (with-temp-buffer (insert rtn) (goto-char (point-min)) (=
while (re-search-forward "[<>&]" nil t) (replace-match (cdr (assq (char-bef=
ore) (quote ...))) t t)) (setq rtn (buffer-string))) (setq rtn (concat "<pr=
e class=3D\"example\">\n" rtn "</pre>\n"))))
  (cond (backend-formatter (funcall backend-formatter rtn lang caption text=
areap cols rows num cont rpllbl fmt)) ((eq org-export-current-backend (quot=
e docbook)) (setq rtn (org-export-number-lines rtn 0 0 num cont rpllbl fmt)=
) (concat "<programlisting><![CDATA[" rtn "]]></programlisting>\n")) ((eq o=
rg-export-current-backend (quote html)) (when lang (if (featurep (quote xem=
acs)) (require (quote htmlize)) (require (quote htmlize) nil t)) (when (not=
 (fboundp (quote htmlize-region-for-paste))) (setq lang nil) (message "html=
ize.el 1.34 or later is needed for source code formatting"))) (if lang (let=
* ((lang-m (when lang (or ... lang))) (mode (and lang-m (intern ...))) (org=
-inhibit-startup t) (org-startup-folded nil)) (setq rtn (with-temp-buffer (=
insert rtn) (if (functionp mode) (funcall mode) (fundamental-mode)) (font-l=
ock-fontify-buffer) (org-remove-formatting-on-newlines-in-region (point-min=
) (point-max)) (org-src-mode) (set-buffer-modified-p nil) (org-export-htmli=
ze-region-for-paste (point-min) (point-max)))) (if (string-match "<pre\\([^=
>]*\\)>\n*" rtn) (setq rtn (concat (if caption ... "") (replace-match ... t=
 t rtn) (if caption "</div>" ""))))) (if textareap (setq rtn (concat (forma=
t "<p>\n<textarea cols=3D\"%d\" rows=3D\"%d\">" cols rows) rtn "</textarea>=
\n</p>\n")) (with-temp-buffer (insert rtn) (goto-char (point-min)) (while (=
re-search-forward "[<>&]" nil t) (replace-match (cdr ...) t t)) (setq rtn (=
buffer-string))) (setq rtn (concat "<pre class=3D\"example\">\n" rtn "</pre=
>\n")))) (unless textareap (setq rtn (org-export-number-lines rtn 1 1 num c=
ont rpllbl fmt))) (if (string-match "\\(\\`<[^>]*>\\)\n" rtn) (setq rtn (re=
place-match "\\1" t nil rtn))) rtn) ((eq org-export-current-backend (quote =
latex)) (setq rtn (org-export-number-lines rtn 0 0 num cont rpllbl fmt)) (c=
ond ((and lang org-export-latex-listings) (flet ((make-option-string (pair)=
 (concat ... ...))) (let* ((lang-sym ...) (minted-p ...) (listings-p ...) (=
backend-lang ...) (custom-environment ...)) (concat (when ... ...) (when ..=
. ...) (cond ... ... ...))))) (t (concat (car org-export-latex-verbatim-wra=
p) rtn (cdr org-export-latex-verbatim-wrap))))) ((eq org-export-current-bac=
kend (quote ascii)) (setq rtn (org-export-number-lines rtn 0 0 num cont rpl=
lbl fmt)) (concat caption "\n" (concat (mapconcat (lambda (l) (concat "  " =
l)) (org-split-string rtn "\n") "\n") "\n"))) (t (error "Don't know how to =
markup source or example block in %s" (upcase backend-name))))
  (setq rtn (cond (backend-formatter (funcall backend-formatter rtn lang ca=
ption textareap cols rows num cont rpllbl fmt)) ((eq org-export-current-bac=
kend (quote docbook)) (setq rtn (org-export-number-lines rtn 0 0 num cont r=
pllbl fmt)) (concat "<programlisting><![CDATA[" rtn "]]></programlisting>\n=
")) ((eq org-export-current-backend (quote html)) (when lang (if (featurep =
(quote xemacs)) (require (quote htmlize)) (require (quote htmlize) nil t)) =
(when (not (fboundp (quote htmlize-region-for-paste))) (setq lang nil) (mes=
sage "htmlize.el 1.34 or later is needed for source code formatting"))) (if=
 lang (let* ((lang-m (when lang ...)) (mode (and lang-m ...)) (org-inhibit-=
startup t) (org-startup-folded nil)) (setq rtn (with-temp-buffer (insert rt=
n) (if ... ... ...) (font-lock-fontify-buffer) (org-remove-formatting-on-ne=
wlines-in-region ... ...) (org-src-mode) (set-buffer-modified-p nil) (org-e=
xport-htmlize-region-for-paste ... ...))) (if (string-match "<pre\\([^>]*\\=
)>\n*" rtn) (setq rtn (concat ... ... ...)))) (if textareap (setq rtn (conc=
at (format "<p>\n<textarea cols=3D\"%d\" rows=3D\"%d\">" cols rows) rtn "</=
textarea>\n</p>\n")) (with-temp-buffer (insert rtn) (goto-char (point-min))=
 (while (re-search-forward "[<>&]" nil t) (replace-match ... t t)) (setq rt=
n (buffer-string))) (setq rtn (concat "<pre class=3D\"example\">\n" rtn "</=
pre>\n")))) (unless textareap (setq rtn (org-export-number-lines rtn 1 1 nu=
m cont rpllbl fmt))) (if (string-match "\\(\\`<[^>]*>\\)\n" rtn) (setq rtn =
(replace-match "\\1" t nil rtn))) rtn) ((eq org-export-current-backend (quo=
te latex)) (setq rtn (org-export-number-lines rtn 0 0 num cont rpllbl fmt))=
 (cond ((and lang org-export-latex-listings) (flet ((make-option-string ...=
 ...)) (let* (... ... ... ... ...) (concat ... ... ...)))) (t (concat (car =
org-export-latex-verbatim-wrap) rtn (cdr org-export-latex-verbatim-wrap))))=
) ((eq org-export-current-backend (quote ascii)) (setq rtn (org-export-numb=
er-lines rtn 0 0 num cont rpllbl fmt)) (concat caption "\n" (concat (mapcon=
cat (lambda (l) (concat "  " l)) (org-split-string rtn "\n") "\n") "\n"))) =
(t (error "Don't know how to markup source or example block in %s" (upcase =
backend-name)))))
  (let* ((backend-name (symbol-name org-export-current-backend)) (backend-f=
ormatter (intern (format "org-%s-format-source-code-or-example" backend-nam=
e))) (backend-feature (intern (concat "org-" backend-name))) (backend-forma=
tter (and (require (intern (concat "org-" backend-name)) nil) (fboundp back=
end-formatter) backend-formatter)) num cont rtn rpllbl keepp textareap pres=
erve-indentp cols rows fmt) (setq opts (or opts "") num (string-match "[-+]=
n\\>" opts) cont (string-match "\\+n\\>" opts) rpllbl (string-match "-r\\>"=
 opts) keepp (string-match "-k\\>" opts) textareap (string-match "-t\\>" op=
ts) preserve-indentp (or org-src-preserve-indentation (string-match "-i\\>"=
 opts)) cols (if (string-match "-w[ 	]+\\([0-9]+\\)" opts) (string-to-numbe=
r (match-string 1 opts)) 80) rows (if (string-match "-h[ 	]+\\([0-9]+\\)" o=
pts) (string-to-number (match-string 1 opts)) (org-count-lines code)) fmt (=
if (string-match "-l[ 	]+\"\\([^\"\n]+\\)\"" opts) (match-string 1 opts))) =
(when (and textareap (eq org-export-current-backend (quote html))) (setq nu=
m nil cont nil lang nil)) (if keepp (setq rpllbl (quote keep))) (setq rtn (=
if preserve-indentp code (org-remove-indentation code))) (when (string-matc=
h "^," rtn) (setq rtn (with-temp-buffer (insert rtn) (goto-char (point-min)=
) (while (re-search-forward "^," nil t) (if (or (equal lang "org") (save-ma=
tch-data ...)) (replace-match "")) (end-of-line 1)) (buffer-string)))) (set=
q rtn (cond (backend-formatter (funcall backend-formatter rtn lang caption =
textareap cols rows num cont rpllbl fmt)) ((eq org-export-current-backend (=
quote docbook)) (setq rtn (org-export-number-lines rtn 0 0 num cont rpllbl =
fmt)) (concat "<programlisting><![CDATA[" rtn "]]></programlisting>\n")) ((=
eq org-export-current-backend (quote html)) (when lang (if (featurep (quote=
 xemacs)) (require (quote htmlize)) (require (quote htmlize) nil t)) (when =
(not (fboundp ...)) (setq lang nil) (message "htmlize.el 1.34 or later is n=
eeded for source code formatting"))) (if lang (let* ((lang-m ...) (mode ...=
) (org-inhibit-startup t) (org-startup-folded nil)) (setq rtn (with-temp-bu=
ffer ... ... ... ... ... ... ...)) (if (string-match "<pre\\([^>]*\\)>\n*" =
rtn) (setq rtn ...))) (if textareap (setq rtn (concat ... rtn "</textarea>\=
n</p>\n")) (with-temp-buffer (insert rtn) (goto-char ...) (while ... ...) (=
setq rtn ...)) (setq rtn (concat "<pre class=3D\"example\">\n" rtn "</pre>\=
n")))) (unless textareap (setq rtn (org-export-number-lines rtn 1 1 num con=
t rpllbl fmt))) (if (string-match "\\(\\`<[^>]*>\\)\n" rtn) (setq rtn (repl=
ace-match "\\1" t nil rtn))) rtn) ((eq org-export-current-backend (quote la=
tex)) (setq rtn (org-export-number-lines rtn 0 0 num cont rpllbl fmt)) (con=
d ((and lang org-export-latex-listings) (flet (...) (let* ... ...))) (t (co=
ncat (car org-export-latex-verbatim-wrap) rtn (cdr org-export-latex-verbati=
m-wrap))))) ((eq org-export-current-backend (quote ascii)) (setq rtn (org-e=
xport-number-lines rtn 0 0 num cont rpllbl fmt)) (concat caption "\n" (conc=
at (mapconcat (lambda ... ...) (org-split-string rtn "\n") "\n") "\n"))) (t=
 (error "Don't know how to markup source or example block in %s" (upcase ba=
ckend-name))))) (setq rtn (concat "\n#+BEGIN_" backend-name "\n" (org-add-p=
rops rtn (quote (org-protected t org-example t org-native-text t))) "\n#+EN=
D_" backend-name "\n")) (org-add-props rtn nil (quote original-indentation)=
 indent))
  (progn (let* ((backend-name (symbol-name org-export-current-backend)) (ba=
ckend-formatter (intern (format "org-%s-format-source-code-or-example" back=
end-name))) (backend-feature (intern (concat "org-" backend-name))) (backen=
d-formatter (and (require (intern (concat "org-" backend-name)) nil) (fboun=
dp backend-formatter) backend-formatter)) num cont rtn rpllbl keepp textare=
ap preserve-indentp cols rows fmt) (setq opts (or opts "") num (string-matc=
h "[-+]n\\>" opts) cont (string-match "\\+n\\>" opts) rpllbl (string-match =
"-r\\>" opts) keepp (string-match "-k\\>" opts) textareap (string-match "-t=
\\>" opts) preserve-indentp (or org-src-preserve-indentation (string-match =
"-i\\>" opts)) cols (if (string-match "-w[ 	]+\\([0-9]+\\)" opts) (string-t=
o-number (match-string 1 opts)) 80) rows (if (string-match "-h[ 	]+\\([0-9]=
+\\)" opts) (string-to-number (match-string 1 opts)) (org-count-lines code)=
) fmt (if (string-match "-l[ 	]+\"\\([^\"\n]+\\)\"" opts) (match-string 1 o=
pts))) (when (and textareap (eq org-export-current-backend (quote html))) (=
setq num nil cont nil lang nil)) (if keepp (setq rpllbl (quote keep))) (set=
q rtn (if preserve-indentp code (org-remove-indentation code))) (when (stri=
ng-match "^," rtn) (setq rtn (with-temp-buffer (insert rtn) (goto-char (poi=
nt-min)) (while (re-search-forward "^," nil t) (if (or ... ...) (replace-ma=
tch "")) (end-of-line 1)) (buffer-string)))) (setq rtn (cond (backend-forma=
tter (funcall backend-formatter rtn lang caption textareap cols rows num co=
nt rpllbl fmt)) ((eq org-export-current-backend (quote docbook)) (setq rtn =
(org-export-number-lines rtn 0 0 num cont rpllbl fmt)) (concat "<programlis=
ting><![CDATA[" rtn "]]></programlisting>\n")) ((eq org-export-current-back=
end (quote html)) (when lang (if (featurep ...) (require ...) (require ... =
nil t)) (when (not ...) (setq lang nil) (message "htmlize.el 1.34 or later =
is needed for source code formatting"))) (if lang (let* (... ... ... ...) (=
setq rtn ...) (if ... ...)) (if textareap (setq rtn ...) (with-temp-buffer =
... ... ... ...) (setq rtn ...))) (unless textareap (setq rtn (org-export-n=
umber-lines rtn 1 1 num cont rpllbl fmt))) (if (string-match "\\(\\`<[^>]*>=
\\)\n" rtn) (setq rtn (replace-match "\\1" t nil rtn))) rtn) ((eq org-expor=
t-current-backend (quote latex)) (setq rtn (org-export-number-lines rtn 0 0=
 num cont rpllbl fmt)) (cond ((and lang org-export-latex-listings) (flet ..=
. ...)) (t (concat ... rtn ...)))) ((eq org-export-current-backend (quote a=
scii)) (setq rtn (org-export-number-lines rtn 0 0 num cont rpllbl fmt)) (co=
ncat caption "\n" (concat (mapconcat ... ... "\n") "\n"))) (t (error "Don't=
 know how to markup source or example block in %s" (upcase backend-name))))=
) (setq rtn (concat "\n#+BEGIN_" backend-name "\n" (org-add-props rtn (quot=
e (org-protected t org-example t org-native-text t))) "\n#+END_" backend-na=
me "\n")) (org-add-props rtn nil (quote original-indentation) indent)))
  (unwind-protect (progn (let* ((backend-name (symbol-name org-export-curre=
nt-backend)) (backend-formatter (intern (format "org-%s-format-source-code-=
or-example" backend-name))) (backend-feature (intern (concat "org-" backend=
-name))) (backend-formatter (and (require (intern ...) nil) (fboundp backen=
d-formatter) backend-formatter)) num cont rtn rpllbl keepp textareap preser=
ve-indentp cols rows fmt) (setq opts (or opts "") num (string-match "[-+]n\=
\>" opts) cont (string-match "\\+n\\>" opts) rpllbl (string-match "-r\\>" o=
pts) keepp (string-match "-k\\>" opts) textareap (string-match "-t\\>" opts=
) preserve-indentp (or org-src-preserve-indentation (string-match "-i\\>" o=
pts)) cols (if (string-match "-w[ 	]+\\([0-9]+\\)" opts) (string-to-number =
(match-string 1 opts)) 80) rows (if (string-match "-h[ 	]+\\([0-9]+\\)" opt=
s) (string-to-number (match-string 1 opts)) (org-count-lines code)) fmt (if=
 (string-match "-l[ 	]+\"\\([^\"\n]+\\)\"" opts) (match-string 1 opts))) (w=
hen (and textareap (eq org-export-current-backend (quote html))) (setq num =
nil cont nil lang nil)) (if keepp (setq rpllbl (quote keep))) (setq rtn (if=
 preserve-indentp code (org-remove-indentation code))) (when (string-match =
"^," rtn) (setq rtn (with-temp-buffer (insert rtn) (goto-char (point-min)) =
(while (re-search-forward "^," nil t) (if ... ...) (end-of-line 1)) (buffer=
-string)))) (setq rtn (cond (backend-formatter (funcall backend-formatter r=
tn lang caption textareap cols rows num cont rpllbl fmt)) ((eq org-export-c=
urrent-backend (quote docbook)) (setq rtn (org-export-number-lines rtn 0 0 =
num cont rpllbl fmt)) (concat "<programlisting><![CDATA[" rtn "]]></program=
listing>\n")) ((eq org-export-current-backend (quote html)) (when lang (if =
... ... ...) (when ... ... ...)) (if lang (let* ... ... ...) (if textareap =
... ... ...)) (unless textareap (setq rtn ...)) (if (string-match "\\(\\`<[=
^>]*>\\)\n" rtn) (setq rtn ...)) rtn) ((eq org-export-current-backend (quot=
e latex)) (setq rtn (org-export-number-lines rtn 0 0 num cont rpllbl fmt)) =
(cond (... ...) (t ...))) ((eq org-export-current-backend (quote ascii)) (s=
etq rtn (org-export-number-lines rtn 0 0 num cont rpllbl fmt)) (concat capt=
ion "\n" (concat ... "\n"))) (t (error "Don't know how to markup source or =
example block in %s" (upcase backend-name))))) (setq rtn (concat "\n#+BEGIN=
_" backend-name "\n" (org-add-props rtn (quote (org-protected t org-example=
 t org-native-text t))) "\n#+END_" backend-name "\n")) (org-add-props rtn n=
il (quote original-indentation) indent))) (set-match-data save-match-data-i=
nternal (quote evaporate)))
  (let ((save-match-data-internal (match-data))) (unwind-protect (progn (le=
t* ((backend-name (symbol-name org-export-current-backend)) (backend-format=
ter (intern (format "org-%s-format-source-code-or-example" backend-name))) =
(backend-feature (intern (concat "org-" backend-name))) (backend-formatter =
(and (require ... nil) (fboundp backend-formatter) backend-formatter)) num =
cont rtn rpllbl keepp textareap preserve-indentp cols rows fmt) (setq opts =
(or opts "") num (string-match "[-+]n\\>" opts) cont (string-match "\\+n\\>=
" opts) rpllbl (string-match "-r\\>" opts) keepp (string-match "-k\\>" opts=
) textareap (string-match "-t\\>" opts) preserve-indentp (or org-src-preser=
ve-indentation (string-match "-i\\>" opts)) cols (if (string-match "-w[ 	]+=
\\([0-9]+\\)" opts) (string-to-number (match-string 1 opts)) 80) rows (if (=
string-match "-h[ 	]+\\([0-9]+\\)" opts) (string-to-number (match-string 1 =
opts)) (org-count-lines code)) fmt (if (string-match "-l[ 	]+\"\\([^\"\n]+\=
\)\"" opts) (match-string 1 opts))) (when (and textareap (eq org-export-cur=
rent-backend (quote html))) (setq num nil cont nil lang nil)) (if keepp (se=
tq rpllbl (quote keep))) (setq rtn (if preserve-indentp code (org-remove-in=
dentation code))) (when (string-match "^," rtn) (setq rtn (with-temp-buffer=
 (insert rtn) (goto-char ...) (while ... ... ...) (buffer-string)))) (setq =
rtn (cond (backend-formatter (funcall backend-formatter rtn lang caption te=
xtareap cols rows num cont rpllbl fmt)) ((eq org-export-current-backend ...=
) (setq rtn ...) (concat "<programlisting><![CDATA[" rtn "]]></programlisti=
ng>\n")) ((eq org-export-current-backend ...) (when lang ... ...) (if lang =
... ...) (unless textareap ...) (if ... ...) rtn) ((eq org-export-current-b=
ackend ...) (setq rtn ...) (cond ... ...)) ((eq org-export-current-backend =
...) (setq rtn ...) (concat caption "\n" ...)) (t (error "Don't know how to=
 markup source or example block in %s" ...)))) (setq rtn (concat "\n#+BEGIN=
_" backend-name "\n" (org-add-props rtn (quote ...)) "\n#+END_" backend-nam=
e "\n")) (org-add-props rtn nil (quote original-indentation) indent))) (set=
-match-data save-match-data-internal (quote evaporate))))
  (save-match-data (let* ((backend-name (symbol-name org-export-current-bac=
kend)) (backend-formatter (intern (format "org-%s-format-source-code-or-exa=
mple" backend-name))) (backend-feature (intern (concat "org-" backend-name)=
)) (backend-formatter (and (require (intern (concat "org-" backend-name)) n=
il) (fboundp backend-formatter) backend-formatter)) num cont rtn rpllbl kee=
pp textareap preserve-indentp cols rows fmt) (setq opts (or opts "") num (s=
tring-match "[-+]n\\>" opts) cont (string-match "\\+n\\>" opts) rpllbl (str=
ing-match "-r\\>" opts) keepp (string-match "-k\\>" opts) textareap (string=
-match "-t\\>" opts) preserve-indentp (or org-src-preserve-indentation (str=
ing-match "-i\\>" opts)) cols (if (string-match "-w[ 	]+\\([0-9]+\\)" opts)=
 (string-to-number (match-string 1 opts)) 80) rows (if (string-match "-h[ 	=
]+\\([0-9]+\\)" opts) (string-to-number (match-string 1 opts)) (org-count-l=
ines code)) fmt (if (string-match "-l[ 	]+\"\\([^\"\n]+\\)\"" opts) (match-=
string 1 opts))) (when (and textareap (eq org-export-current-backend (quote=
 html))) (setq num nil cont nil lang nil)) (if keepp (setq rpllbl (quote ke=
ep))) (setq rtn (if preserve-indentp code (org-remove-indentation code))) (=
when (string-match "^," rtn) (setq rtn (with-temp-buffer (insert rtn) (goto=
-char (point-min)) (while (re-search-forward "^," nil t) (if (or ... ...) (=
replace-match "")) (end-of-line 1)) (buffer-string)))) (setq rtn (cond (bac=
kend-formatter (funcall backend-formatter rtn lang caption textareap cols r=
ows num cont rpllbl fmt)) ((eq org-export-current-backend (quote docbook)) =
(setq rtn (org-export-number-lines rtn 0 0 num cont rpllbl fmt)) (concat "<=
programlisting><![CDATA[" rtn "]]></programlisting>\n")) ((eq org-export-cu=
rrent-backend (quote html)) (when lang (if (featurep ...) (require ...) (re=
quire ... nil t)) (when (not ...) (setq lang nil) (message "htmlize.el 1.34=
 or later is needed for source code formatting"))) (if lang (let* (... ... =
... ...) (setq rtn ...) (if ... ...)) (if textareap (setq rtn ...) (with-te=
mp-buffer ... ... ... ...) (setq rtn ...))) (unless textareap (setq rtn (or=
g-export-number-lines rtn 1 1 num cont rpllbl fmt))) (if (string-match "\\(=
\\`<[^>]*>\\)\n" rtn) (setq rtn (replace-match "\\1" t nil rtn))) rtn) ((eq=
 org-export-current-backend (quote latex)) (setq rtn (org-export-number-lin=
es rtn 0 0 num cont rpllbl fmt)) (cond ((and lang org-export-latex-listings=
) (flet ... ...)) (t (concat ... rtn ...)))) ((eq org-export-current-backen=
d (quote ascii)) (setq rtn (org-export-number-lines rtn 0 0 num cont rpllbl=
 fmt)) (concat caption "\n" (concat (mapconcat ... ... "\n") "\n"))) (t (er=
ror "Don't know how to markup source or example block in %s" (upcase backen=
d-name))))) (setq rtn (concat "\n#+BEGIN_" backend-name "\n" (org-add-props=
 rtn (quote (org-protected t org-example t org-native-text t))) "\n#+END_" =
backend-name "\n")) (org-add-props rtn nil (quote original-indentation) ind=
ent)))
  org-export-format-source-code-or-example("sh" "svn checkout http://svn/tr=
unk/dev/ mydev\n" " " 0 nil)
  (setq trans (org-export-format-source-code-or-example lang code opts inde=
nt caption))
  (while (re-search-forward "\\(^\\([ 	]*\\)#\\+BEGIN_SRC:?\\([ 	]+\\([^ 	\=
n]+\\)\\)?\\(.*\\)\n\\([^]+?\n\\)[ 	]*#\\+END_SRC.*\n?\\)\\|\\(^\\([ 	]*\\)=
#\\+BEGIN_EXAMPLE:?\\(?:[ 	]+\\(.*\\)\\)?\n\\([^]+?\n\\)[ 	]*#\\+END_EXAMPL=
E.*\n?\\)" nil t) (if (match-end 1) (if (not (match-string 4)) (error "Sour=
ce block missing language specification: %s" (let* ((body (match-string 6))=
 (nothing (message "body:%s" body)) (preview (or ... body))) (if (> (length=
 preview) 35) (concat (substring preview 0 32) "...") preview))) (setq lang=
 (match-string 4) opts (match-string 5) code (match-string 6) indent (lengt=
h (match-string 2)) caption (get-text-property 0 (quote org-caption) (match=
-string 0)))) (setq lang nil opts (match-string 9) code (match-string 10) i=
ndent (length (match-string 8)) caption (get-text-property 0 (quote org-cap=
tion) (match-string 0)))) (setq trans (org-export-format-source-code-or-exa=
mple lang code opts indent caption)) (replace-match trans t t))
  (let ((case-fold-search t) lang code trans opts indent caption) (goto-cha=
r (point-min)) (while (re-search-forward "\\(^\\([ 	]*\\)#\\+BEGIN_SRC:?\\(=
[ 	]+\\([^ 	\n]+\\)\\)?\\(.*\\)\n\\([^]+?\n\\)[ 	]*#\\+END_SRC.*\n?\\)\\|\\=
(^\\([ 	]*\\)#\\+BEGIN_EXAMPLE:?\\(?:[ 	]+\\(.*\\)\\)?\n\\([^]+?\n\\)[ 	]*#=
\\+END_EXAMPLE.*\n?\\)" nil t) (if (match-end 1) (if (not (match-string 4))=
 (error "Source block missing language specification: %s" (let* ((body ...)=
 (nothing ...) (preview ...)) (if (> ... 35) (concat ... "...") preview))) =
(setq lang (match-string 4) opts (match-string 5) code (match-string 6) ind=
ent (length (match-string 2)) caption (get-text-property 0 (quote org-capti=
on) (match-string 0)))) (setq lang nil opts (match-string 9) code (match-st=
ring 10) indent (length (match-string 8)) caption (get-text-property 0 (quo=
te org-caption) (match-string 0)))) (setq trans (org-export-format-source-c=
ode-or-example lang code opts indent caption)) (replace-match trans t t)))
  org-export-replace-src-segments-and-examples()
  ...
#+end_src

Best regards,
  Seb

--=20
Sebastien Vauban