From mboxrd@z Thu Jan 1 00:00:00 1970 From: Evan Hawkins Subject: Bug: org-mode-keys Symbol is void [7.9.3e (7.9.3e-dist @ c:/Program Files/emacs-24.1/lisp/org-7.9.3e/lisp/)] Date: Thu, 21 Feb 2013 17:25:30 -0800 Message-ID: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=047d7b6daa702ffab604d64611fb Return-path: Received: from eggs.gnu.org ([208.118.235.92]:52494) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U8hOR-00040w-Tc for emacs-orgmode@gnu.org; Thu, 21 Feb 2013 20:25:56 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U8hOG-000570-Ju for emacs-orgmode@gnu.org; Thu, 21 Feb 2013 20:25:43 -0500 Received: from mail-ve0-f171.google.com ([209.85.128.171]:44287) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U8hOG-00056H-76 for emacs-orgmode@gnu.org; Thu, 21 Feb 2013 20:25:32 -0500 Received: by mail-ve0-f171.google.com with SMTP id b10so140081vea.2 for ; Thu, 21 Feb 2013 17:25:31 -0800 (PST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --047d7b6daa702ffab604d64611fb Content-Type: text/plain; charset=ISO-8859-1 To: emacs-orgmode@gnu.org Subject: Bug: org-mode-keys Symbol is void [7.9.3e (7.9.3e-dist @ c:/Program Files/emacs-24.1/lisp/org-7.9.3e/lisp/)] --text follows this line-- Remember to cover the basics, that is, what you expected to happen and what in fact did happen. You don't know how to make a good report? See http://orgmode.org/manual/Feedback.html#Feedback Your bug report will be posted to the Org-mode mailing list. ------------------------------------------------------------------------ windows XP Emacs : GNU Emacs 24.1.1 (i386-mingw-nt5.1.2600) of 2012-06-10 on MARVIN Package: Org-mode version 7.9.3e (7.9.3e-dist @ c:/Program Files/emacs-24.1/lisp/org-7.9.3e/lisp/) I am experimenting with orgmode to publish my website so I have a basic setup and whenever I try to use (org-publish-project "mywebsite"), of course interactively, I get the error; PS I love org -- thanks for a wonderful product Thanks for your help. --- Here is the backtrace: Debugger entered--Lisp error: (void-function org-mode-keys) org-mode-keys() run-hooks(change-major-mode-after-body-hook text-mode-hook outline-mode-hook org-mode-hook) apply(run-hooks (change-major-mode-after-body-hook text-mode-hook outline-mode-hook org-mode-hook)) run-mode-hooks(org-mode-hook) org-mode() (let ((org-inhibit-startup t)) (org-mode)) (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-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-remove-tasks (plist-get parameters :tasks)) (when (plist-get parameters :footnotes) (org-footnote-normalize nil parameters)) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (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)) (when (plist-get parameters :skip-before-1st-heading) (goto-char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))) (when (plist-get parameters :add-text) (goto-char (point-min)) (insert (plist-get parameters :add-text) "\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) (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 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) ...) (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-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-remove-tasks (plist-get parameters :tasks)) (when (plist-get parameters :footnotes) (org-footnote-normalize nil parameters)) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (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)) (when (plist-get parameters :skip-before-1st-heading) (goto-char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))) (when (plist-get parameters :add-text) (goto-char (point-min)) (insert (plist-get parameters :add-text) "\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) (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 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) ...) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-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-remove-tasks (plist-get parameters :tasks)) (when (plist-get parameters :footnotes) (org-footnote-normalize nil parameters)) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (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)) (when (plist-get parameters :skip-before-1st-heading) (goto-char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))) (when (plist-get parameters :add-text) (goto-char (point-min)) (insert (plist-get parameters :add-text) "\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) (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 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) ...) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (with-current-buffer temp-buffer (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-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-remove-tasks (plist-get parameters :tasks)) (when (plist-get parameters :footnotes) (org-footnote-normalize nil parameters)) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (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)) (when (plist-get parameters :skip-before-1st-heading) (goto-char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))) (when (plist-get parameters :add-text) (goto-char (point-min)) (insert (plist-get parameters :add-text) "\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) (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 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) ...) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer temp-buffer (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-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-remove-tasks (plist-get parameters :tasks)) (when (plist-get parameters :footnotes) (org-footnote-normalize nil parameters)) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (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)) (when (plist-get parameters :skip-before-1st-heading) (goto-char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))) (when (plist-get parameters :add-text) (goto-char (point-min)) (insert (plist-get parameters :add-text) "\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) (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 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) ...) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (with-temp-buffer (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-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-remove-tasks (plist-get parameters :tasks)) (when (plist-get parameters :footnotes) (org-footnote-normalize nil parameters)) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (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)) (when (plist-get parameters :skip-before-1st-heading) (goto-char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))) (when (plist-get parameters :add-text) (goto-char (point-min)) (insert (plist-get parameters :add-text) "\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) (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 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) ...) (let* ((org-export-current-backend (or (plist-get parameters :for-backend) org-export-current-backend)) (archived-trees (plist-get parameters :archived-trees)) (inhibit-read-only t) (drawers org-drawers) (source-buffer (current-buffer)) 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-temp-buffer (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-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-remove-tasks (plist-get parameters :tasks)) (when (plist-get parameters :footnotes) (org-footnote-normalize nil parameters)) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (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)) (when (plist-get parameters :skip-before-1st-heading) (goto-char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))) (when (plist-get parameters :add-text) (goto-char (point-min)) (insert (plist-get parameters :add-text) "\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) (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 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) ...) rtn) org-export-preprocess-string(#("* remember.org\n" 0 15 (fontified nil)) :emph-multiline t :for-backend html :skip-before-1st-heading nil :drawers nil :todo-keywords t :tasks 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-backend (quote html) :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) :tasks (plist-get opt-plist :tasks) :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 (org-export-process-option-filters (org-combine-plists (org-default-export-plist) ext-plist (org-infile-export-plist)))) (body-only (or body-only (plist-get opt-plist :body-only))) (style (concat (if (plist-get opt-plist :style-include-default) org-export-html-style-default) (plist-get opt-plist :style) (plist-get opt-plist :style-extra) "\n" (if (plist-get opt-plist :style-include-scripts) org-export-html-scripts))) (html-extension (plist-get opt-plist :html-extension)) valid thetoc have-headings first-heading-pos (odd org-odd-levels-only) (region-p (org-region-active-p)) (rbeg (and region-p (region-beginning))) (rend (and region-p (region-end))) (subtree-p (if (plist-get opt-plist :ignore-subtree-p) nil (when region-p (save-excursion (goto-char rbeg) (and (org-at-heading-p) (>= ... rend)))))) (level-offset (if subtree-p (save-excursion (goto-char rbeg) (+ (funcall outline-level) (if org-odd-levels-only 1 0))) 0)) (opt-plist (setq org-export-opt-plist (if subtree-p (org-export-add-subtree-options opt-plist rbeg) opt-plist))) (org-current-export-dir (or pub-dir (org-export-directory :html opt-plist))) (org-current-export-file buffer-file-name) (level 0) (org-line "") (origline "") txt todo (umax nil) (umax-toc nil) (filename (if to-buffer nil (expand-file-name (concat (file-name-sans-extension (or ... ...)) "." html-extension) (file-name-as-directory (or pub-dir (org-export-directory :html opt-plist)))))) (current-dir (if buffer-file-name (file-name-directory buffer-file-name) default-directory)) (auto-insert nil) (buffer (if to-buffer (cond ((eq to-buffer (quote string)) (get-buffer-create "*Org HTML Export*")) (t (get-buffer-create to-buffer))) (find-file-noselect filename))) (org-levels-open (make-vector org-level-max nil)) (date (org-html-expand (plist-get opt-plist :date))) (author (org-html-expand (plist-get opt-plist :author))) (html-validation-link (or org-export-html-validation-link "")) (title (org-html-expand (or (and subtree-p (org-export-get-title-from-subtree)) (plist-get opt-plist :title) (and (not body-only) (not (plist-get opt-plist :skip-before-1st-heading)) (org-export-grab-title-from-buffer)) (and buffer-file-name (file-name-sans-extension (file-name-nondirectory buffer-file-name))) "UNTITLED"))) (link-up (and (plist-get opt-plist :link-up) (string-match "\\S-" (plist-get opt-plist :link-up)) (plist-get opt-plist :link-up))) (link-home (and (plist-get opt-plist :link-home) (string-match "\\S-" (plist-get opt-plist :link-home)) (plist-get opt-plist :link-home))) (dummy (setq opt-plist (plist-put opt-plist :title title))) (html-table-tag (plist-get opt-plist :html-table-tag)) (quote-re0 (concat "^ *" org-quote-string "\\( +\\|[ ]*$\\)")) (quote-re (format org-heading-keyword-regexp-format org-quote-string)) (inquote nil) (infixed nil) (inverse nil) (email (plist-get opt-plist :email)) (language (plist-get opt-plist :language)) (keywords (org-html-expand (plist-get opt-plist :keywords))) (description (org-html-expand (plist-get opt-plist :description))) (num (plist-get opt-plist :section-numbers)) (lang-words nil) (head-count 0) cnt ...) (let ((inhibit-read-only t)) (org-unmodified (remove-text-properties (point-min) (point-max) (quote (:org-license-to-kill t))))) (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 ((and date (string-match "%" date)) (setq date (format-time-string date))) (date) (t (setq date (format-time-string org-export-html-date-format-string)))) (setq lang-words (or (assoc language org-export-language-setup) (assoc "en" org-export-language-setup))) (set-buffer buffer) (let ((inhibit-read-only t)) (erase-buffer)) (fundamental-mode) (org-install-letbind) (and (fboundp (quote set-buffer-file-coding-system)) (set-buffer-file-coding-system coding-system-for-write)) (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc (lambda (x) (set (make-local-variable (nth 2 x)) (plist-get opt-plist (car x)))) org-export-plist-vars) (setq umax (if arg (prefix-numeric-value arg) org-export-headline-levels)) (setq umax-toc (if (integerp org-export-with-toc) (min org-export-with-toc umax) umax)) (unless body-only (insert (format "%s\n\n\n\n%s\n\n\n\n\n\n\n\n%s\n%s\n\n\n%s\n" (format (or (and ... org-export-html-xml-declaration) (cdr ...) (cdr ...) "") (or charset "iso-8859-1")) language language title (or charset "iso-8859-1") title date author description keywords style mathjax (if (or link-up link-home) (concat (format org-export-html-home/up-format ... ...) "\n") ""))) (when (plist-get opt-plist :html-preamble) (let ((html-pre (plist-get opt-plist :html-preamble)) (html-pre-real-contents "")) (cond ((stringp html-pre) (setq html-pre-real-contents ...)) ((functionp html-pre) (insert "
\n") (if ... ...) (insert "\n
\n")) (t (setq html-pre-real-contents ...))) (unless (and (functionp html-pre) (equal html-pre-real-contents "")) (insert "
\n") (insert html-pre-real-contents) (insert "\n
\n")))) (insert (format "\n
" (or org-export-html-content-div (nth 1 org-export-html-divs))) "\n

" title "

\n")) (if org-export-with-toc (progn (push (format "%s\n" org-export-html-toplevel-hlevel (nth 3 lang-words) org-export-html-toplevel-hlevel) thetoc) (push "
\n" thetoc) (push "
    \n
  • " thetoc) (setq lines (mapcar (function (lambda ... ... org-line)) lines)) (while (> org-last-level (1- org-min-level)) (setq org-last-level (1- org-last-level)) (push "
    • \n
\n" thetoc)) (push "
\n" thetoc) (setq thetoc (if have-headings (nreverse thetoc) nil)))) (setq head-count 0) (org-init-section-numbers) (org-open-par) (while (setq org-line (pop lines) origline org-line) (catch (quote nextline) (when (and inquote (string-match org-outline-regexp-bol org-line)) (insert "\n") (org-open-par) (setq inquote nil)) (when inquote (insert (org-html-protect org-line) "\n") (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ ]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)" org-line)) (when (not infixed) (setq infixed t) (org-close-par-maybe) (insert "
\n")) (insert (org-html-protect
(match-string 3 org-line)) "\n") (when (or (not lines) (not ...)) (setq
infixed nil) (insert "
\n") (org-open-par)) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) org-line) (not (< ... ...))) (let (par (ind ...)) (when (re-search-backward "\\(

\\)\\([ \n]*\\)\\=" ... t) (setq par ...) (replace-match "\\2\n")) (insert org-line "\n") (while (and lines ... ...) (insert ... "\n")) (and par (insert "

\n"))) (throw (quote nextline) nil)) (when (equal "ORG-BLOCKQUOTE-START" org-line) (org-close-par-maybe) (insert "

\n") (org-open-par) (throw (quote nextline) nil)) (when (equal "ORG-BLOCKQUOTE-END" org-line) (org-close-par-maybe) (insert "\n
\n") (org-open-par) (throw (quote nextline) nil)) (when (equal "ORG-VERSE-START" org-line) (org-close-par-maybe) (insert "\n

\n") (setq org-par-open t) (setq inverse t) (throw (quote nextline) nil)) (when (equal "ORG-VERSE-END" org-line) (insert "

\n") (setq org-par-open nil) (org-open-par) (setq inverse nil) (throw (quote nextline) nil)) (when (equal "ORG-CENTER-START" org-line) (org-close-par-maybe) (insert "\n
") (org-open-par) (throw (quote nextline) nil)) (when (equal "ORG-CENTER-END" org-line) (org-close-par-maybe) (insert "\n
") (org-open-par) (throw (quote nextline) nil)) (run-hooks (quote org-export-html-after-blockquotes-hook)) (when inverse (let ((i ...)) (if (> i 0) (setq org-line ...)) (unless (string-match "\\\\\\\\[ ]*$" org-line) (setq org-line ...)))) (setq start 0) (while (string-match "<<]*\\)>>>?\\((INVISIBLE)\\)?[ ]*\n?" org-line start) (cond ((get-text-property ... ... org-line) (setq start ...)) ((match-end 2) (setq org-line ...)) ((and org-export-with-toc ...) (setq org-line ...)) (t (setq org-line ...)))) (setq org-line (org-html-handle-time-stamps org-line)) (or (string-match org-table-hline-regexp org-line) (string-match "^[ ]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ ]*$" org-line) (setq org-line (org-html-expand org-line))) (setq org-line (org-html-handle-links org-line opt-plist)) (if (and org-todo-line-regexp (string-match org-todo-line-regexp org-line) (match-beginning 2)) (setq org-line (concat (substring org-line 0 ...) "" (match-string 2 org-line) "" (substring org-line ...)))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* ].*?\\)\\[\\([0-9]+\\)\\]" org-line start) (if (or ... ...) (setq start ...) (let ... ... ...)))) (cond ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ ]*$" org-line) (setq level (org-tr-level ...) txt (or ... "")) (if (string-match quote-re0 txt) (setq txt ...)) (if (<= level ...) (setq head-count ...)) (setq first-heading-pos (or first-heading-pos ...)) (org-html-level-start level txt umax (and org-export-with-toc ...) head-count opt-plist) (when (string-match quote-re org-line) (org-close-par-maybe) (insert "
")
(setq inquote t))) ((and org-export-with-tables (string-match "^\\([
]*\\)\\(|\\|\\+-+\\+\\)"
org-line)) (when (not table-open) (setq table-open t table-buffer nil
table-orig-buffer nil)) (setq table-buffer (cons org-line table-buffer)
table-orig-buffer (cons origline table-orig-buffer)) (when (or ... ...)
(setq table-open nil table-buffer ... table-orig-buffer ...)
(org-close-par-maybe) (insert ...))) (t (when (get-text-property 0 ...
org-line) (setq org-line ...)) (when (string-match "^[ ]*-\\{5,\\}[ ]*$"
org-line) (if org-par-open ... ...) (throw ... nil)) (if (string-match "^
[-+*]-\\|^[ ]*$" org-line) (org-open-par)) (when org-export-with-footnotes
(when ... ...) (when ... ... ...)) (cond (... ...)
(org-export-preserve-breaks ...)) (let (...) (while ... ... ...)) (insert
org-line "\n"))))) (when inquote (insert "
\n") (org-open-par)) (org-html-level-start 1 nil umax (and org-export-with-toc (<= level umax)) head-count opt-plist) (when (and (> umax 0) first-heading-pos) (insert "
\n")) (save-excursion (goto-char (point-min)) (while (re-search-forward "\\(\\(

\\)[^ --047d7b6daa702ffab604d64611fb Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable

Subject: Bug: org-mode-keys Symbol is void [7.9.3e (7.9.3e-dist = @ c:/Program Files/emacs-24.1/lisp/org-7.9.3e/lisp/)]

--text follows this line--

Remember to cover = the basics, that is, what you expected to happen and
what in fact= did happen. =A0You don't know how to make a good report? =A0See
<= div>
=
Your bug report will be posted to the Org-mode mailing list.=
----------------------------------------------------------------------= --
windows XP


Emacs =A0: = GNU Emacs 24.1.1 (i386-mingw-nt5.1.2600) =A0of 2012-06-10 on MARVIN
Package: Org-mode version 7.9.3e (7.9.3e-dist @ c:/Program Files/emacs-24.1= /lisp/org-7.9.3e/lisp/)

I am experimenting with or= gmode to publish my website so I have a basic setup and whenever I try to u= se=A0
(org-publish-project "mywebsite"), of course interactively, = I get the error; =A0
PS I love org -- thanks for a wonderful prod= uct
Thanks for your help.
---
Here is the bac= ktrace:
Debugger entered--Lisp error: (void-function org-mode-keys)
= =A0 org-mode-keys()
=A0 run-hooks(change-major-mode-after-body-ho= ok text-mode-hook outline-mode-hook org-mode-hook)
=A0 apply(run-= hooks (change-major-mode-after-body-hook text-mode-hook outline-mode-hook o= rg-mode-hook))
=A0 run-mode-hooks(org-mode-hook)
=A0 org-mode()
= =A0 (let ((org-inhibit-startup t)) (org-mode))
=A0 (progn (erase-= buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only = t)) (remove-text-properties (point-min) (point-max) (quote (read-only t))))= (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode))= (setq case-fold-search t) (org-clone-local-variables source-buffer "^= \\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-exp= ort-preprocess-hook)) (untabify (point-min) (point-max)) (org-export-handle= -include-files-recurse) (run-hooks (quote org-export-preprocess-after-inclu= de-files-hook)) (org-export-remove-archived-trees archived-trees) (org-expo= rt-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags (plis= t-get parameters :select-tags) (plist-get parameters :exclude-tags)) (run-h= ooks (quote org-export-preprocess-after-tree-selection-hook)) (org-export-r= emove-tasks (plist-get parameters :tasks)) (when (plist-get parameters :foo= tnotes) (org-footnote-normalize nil parameters)) (org-export-mark-list-end)= (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preproce= ss-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list= -properties) (org-export-replace-src-segments-and-examples) (org-export-pro= tect-colon-examples) (org-export-convert-protected-spaces) (setq target-ali= st (org-export-define-heading-targets target-alist)) (run-hooks (quote org-= export-preprocess-after-headline-targets-hook)) (org-export-remember-html-c= ontainer-classes) (org-export-remove-or-extract-drawers drawers (plist-get = parameters :drawers)) (when (plist-get parameters :skip-before-1st-heading)= (goto-char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ = ]" ni= l t) (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)= ) (insert "\n"))) (when (plist-get parameters :add-text) (goto-ch= ar (point-min)) (insert (plist-get parameters :add-text) "\n")) (= org-export-remove-headline-metadata parameters) (setq target-alist (org-exp= ort-handle-invisible-targets target-alist)) (run-hooks (quote org-export-pr= eprocess-before-selecting-backend-code-hook)) (org-export-select-backend-sp= ecific-text) (org-export-protect-quoted-subtrees) (org-export-remove-clock-= lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-cent= er) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless= (plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq t= arget-alist (org-export-attach-captions-and-attributes target-alist)) (org-= export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radi= o-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote= org-export-preprocess-before-normalizing-links-hook)) (org-export-normaliz= e-links) ...)
=A0 (unwind-protect (progn (erase-buffer) (insert string) (setq case-f= old-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-m= in) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (le= t ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clon= e-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-ins= tall-letbind) (run-hooks (quote org-export-preprocess-hook)) (untabify (poi= nt-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (= quote org-export-preprocess-after-include-files-hook)) (org-export-remove-a= rchived-trees archived-trees) (org-export-remove-comment-blocks-and-subtree= s) (org-export-handle-export-tags (plist-get parameters :select-tags) (plis= t-get parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-af= ter-tree-selection-hook)) (org-export-remove-tasks (plist-get parameters :t= asks)) (when (plist-get parameters :footnotes) (org-footnote-normalize nil = parameters)) (org-export-mark-list-end) (org-export-preprocess-apply-macros= ) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-b= locks-preprocess) (org-export-mark-list-properties) (org-export-replace-src= -segments-and-examples) (org-export-protect-colon-examples) (org-export-con= vert-protected-spaces) (setq target-alist (org-export-define-heading-target= s target-alist)) (run-hooks (quote org-export-preprocess-after-headline-tar= gets-hook)) (org-export-remember-html-container-classes) (org-export-remove= -or-extract-drawers drawers (plist-get parameters :drawers)) (when (plist-g= et parameters :skip-before-1st-heading) (goto-char (point-min)) (when (re-s= earch-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (mat= ch-beginning 0)) (goto-char (point-min)) (insert "\n"))) (when (p= list-get parameters :add-text) (goto-char (point-min)) (insert (plist-get p= arameters :add-text) "\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-co= de-hook)) (org-export-select-backend-specific-text) (org-export-protect-quo= ted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim)= (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-pre= process-after-blockquote-hook)) (unless (plist-get parameters :timestamps) = (org-export-remove-timestamps)) (setq target-alist (org-export-attach-capti= ons-and-attributes target-alist)) (org-export-mark-radio-links) (run-hooks = (quote org-export-preprocess-after-radio-targets-hook)) (org-export-concate= nate-multiline-links) (run-hooks (quote org-export-preprocess-before-normal= izing-links-hook)) (org-export-normalize-links) ...) (and (buffer-name temp= -buffer) (kill-buffer temp-buffer)))
=A0 (save-current-buffer (set-buffer temp-buffer) (unwind-protect (pro= gn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-= read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-= only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (= org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buff= er "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quo= te org-export-preprocess-hook)) (untabify (point-min) (point-max)) (org-exp= ort-handle-include-files-recurse) (run-hooks (quote org-export-preprocess-a= fter-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-tag= s)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)) (or= g-export-remove-tasks (plist-get parameters :tasks)) (when (plist-get param= eters :footnotes) (org-footnote-normalize nil parameters)) (org-export-mark= -list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-expor= t-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export= -mark-list-properties) (org-export-replace-src-segments-and-examples) (org-= export-protect-colon-examples) (org-export-convert-protected-spaces) (setq = target-alist (org-export-define-heading-targets target-alist)) (run-hooks (= quote org-export-preprocess-after-headline-targets-hook)) (org-export-remem= ber-html-container-classes) (org-export-remove-or-extract-drawers drawers (= plist-get parameters :drawers)) (when (plist-get parameters :skip-before-1s= t-heading) (goto-char (point-min)) (when (re-search-forward "^\\(#.*\n= \\)?\\*+[ = ]" nil t) (delete-region (point-min) (match-beginning 0)) (goto-char (= point-min)) (insert "\n"))) (when (plist-get parameters :add-text= ) (goto-char (point-min)) (insert (plist-get parameters :add-text) "\n= ")) (org-export-remove-headline-metadata parameters) (setq target-alis= t (org-export-handle-invisible-targets target-alist)) (run-hooks (quote org= -export-preprocess-before-selecting-backend-code-hook)) (org-export-select-= backend-specific-text) (org-export-protect-quoted-subtrees) (org-export-rem= ove-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 target-ali= st)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-= after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-ho= oks (quote org-export-preprocess-before-normalizing-links-hook)) (org-expor= t-normalize-links) ...) (and (buffer-name temp-buffer) (kill-buffer temp-bu= ffer))))
=A0 (with-current-buffer temp-buffer (unwind-protect (progn (erase-buf= fer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t))= (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (o= rg-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (s= etq case-fold-search t) (org-clone-local-variables source-buffer "^\\(= org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export= -preprocess-hook)) (untabify (point-min) (point-max)) (org-export-handle-in= clude-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-g= et parameters :select-tags) (plist-get parameters :exclude-tags)) (run-hook= s (quote org-export-preprocess-after-tree-selection-hook)) (org-export-remo= ve-tasks (plist-get parameters :tasks)) (when (plist-get parameters :footno= tes) (org-footnote-normalize nil parameters)) (org-export-mark-list-end) (o= rg-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-= after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-pr= operties) (org-export-replace-src-segments-and-examples) (org-export-protec= t-colon-examples) (org-export-convert-protected-spaces) (setq target-alist = (org-export-define-heading-targets target-alist)) (run-hooks (quote org-exp= ort-preprocess-after-headline-targets-hook)) (org-export-remember-html-cont= ainer-classes) (org-export-remove-or-extract-drawers drawers (plist-get par= ameters :drawers)) (when (plist-get parameters :skip-before-1st-heading) (g= oto-char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t= ) (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (= insert "\n"))) (when (plist-get parameters :add-text) (goto-char = (point-min)) (insert (plist-get parameters :add-text) "\n")) (org= -export-remove-headline-metadata parameters) (setq target-alist (org-export= -handle-invisible-targets target-alist)) (run-hooks (quote org-export-prepr= ocess-before-selecting-backend-code-hook)) (org-export-select-backend-speci= fic-text) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lin= es) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center)= (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless (p= list-get parameters :timestamps) (org-export-remove-timestamps)) (setq targ= et-alist (org-export-attach-captions-and-attributes target-alist)) (org-exp= ort-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-t= argets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote or= g-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-l= inks) ...) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
=A0 (let ((temp-buffer (generate-new-buffer " *temp*"))) (wi= th-current-buffer temp-buffer (unwind-protect (progn (erase-buffer) (insert= string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-tex= t-properties (point-min) (point-max) (quote (read-only t)))) (org-export-ki= ll-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fol= d-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtb= l-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-= 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-comme= nt-blocks-and-subtrees) (org-export-handle-export-tags (plist-get parameter= s :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org= -export-preprocess-after-tree-selection-hook)) (org-export-remove-tasks (pl= ist-get parameters :tasks)) (when (plist-get parameters :footnotes) (org-fo= otnote-normalize nil parameters)) (org-export-mark-list-end) (org-export-pr= eprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros= -hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (o= rg-export-replace-src-segments-and-examples) (org-export-protect-colon-exam= ples) (org-export-convert-protected-spaces) (setq target-alist (org-export-= define-heading-targets target-alist)) (run-hooks (quote org-export-preproce= ss-after-headline-targets-hook)) (org-export-remember-html-container-classe= s) (org-export-remove-or-extract-drawers drawers (plist-get parameters :dra= wers)) (when (plist-get parameters :skip-before-1st-heading) (goto-char (po= int-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-re= gion (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "= ;\n"))) (when (plist-get parameters :add-text) (goto-char (point-min))= (insert (plist-get parameters :add-text) "\n")) (org-export-remo= ve-headline-metadata parameters) (setq target-alist (org-export-handle-invi= sible-targets target-alist)) (run-hooks (quote org-export-preprocess-before= -selecting-backend-code-hook)) (org-export-select-backend-specific-text) (o= rg-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-exp= ort-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks = (quote org-export-preprocess-after-blockquote-hook)) (unless (plist-get par= ameters :timestamps) (org-export-remove-timestamps)) (setq target-alist (or= g-export-attach-captions-and-attributes target-alist)) (org-export-mark-rad= io-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook)= ) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-pre= process-before-normalizing-links-hook)) (org-export-normalize-links) ...) (= and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
=A0 (with-temp-buffer (erase-buffer) (insert string) (setq case-fold-s= earch t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (= point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((o= rg-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-loc= al-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-= letbind) (run-hooks (quote org-export-preprocess-hook)) (untabify (point-mi= n) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote= org-export-preprocess-after-include-files-hook)) (org-export-remove-archiv= ed-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (o= rg-export-handle-export-tags (plist-get parameters :select-tags) (plist-get= parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-t= ree-selection-hook)) (org-export-remove-tasks (plist-get parameters :tasks)= ) (when (plist-get parameters :footnotes) (org-footnote-normalize nil param= eters)) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (ru= n-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks= -preprocess) (org-export-mark-list-properties) (org-export-replace-src-segm= ents-and-examples) (org-export-protect-colon-examples) (org-export-convert-= protected-spaces) (setq target-alist (org-export-define-heading-targets tar= get-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-= hook)) (org-export-remember-html-container-classes) (org-export-remove-or-e= xtract-drawers drawers (plist-get parameters :drawers)) (when (plist-get pa= rameters :skip-before-1st-heading) (goto-char (point-min)) (when (re-search= -forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-be= ginning 0)) (goto-char (point-min)) (insert "\n"))) (when (plist-= get parameters :add-text) (goto-char (point-min)) (insert (plist-get parame= ters :add-text) "\n")) (org-export-remove-headline-metadata param= eters) (setq target-alist (org-export-handle-invisible-targets target-alist= )) (run-hooks (quote org-export-preprocess-before-selecting-backend-code-ho= ok)) (org-export-select-backend-specific-text) (org-export-protect-quoted-s= ubtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org= -export-mark-blockquote-verse-center) (run-hooks (quote org-export-preproce= ss-after-blockquote-hook)) (unless (plist-get parameters :timestamps) (org-= export-remove-timestamps)) (setq target-alist (org-export-attach-captions-a= nd-attributes target-alist)) (org-export-mark-radio-links) (run-hooks (quot= e 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) ...)
=A0 (let* ((org-export-current-backend (or (plist-get parameters :for-= backend) org-export-current-backend)) (archived-trees (plist-get parameters= :archived-trees)) (inhibit-read-only t) (drawers org-drawers) (source-buff= er (current-buffer)) target-alist rtn) (setq org-export-target-aliases nil = org-export-preferred-target-alist nil org-export-id-target-alist nil org-ex= port-code-refs nil) (with-temp-buffer (erase-buffer) (insert string) (setq = case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (p= oint-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-tex= t) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (or= g-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (o= rg-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (untabif= y (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-h= ooks (quote org-export-preprocess-after-include-files-hook)) (org-export-re= move-archived-trees archived-trees) (org-export-remove-comment-blocks-and-s= ubtrees) (org-export-handle-export-tags (plist-get parameters :select-tags)= (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-preproc= ess-after-tree-selection-hook)) (org-export-remove-tasks (plist-get paramet= ers :tasks)) (when (plist-get parameters :footnotes) (org-footnote-normaliz= e nil parameters)) (org-export-mark-list-end) (org-export-preprocess-apply-= macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-ex= port-blocks-preprocess) (org-export-mark-list-properties) (org-export-repla= ce-src-segments-and-examples) (org-export-protect-colon-examples) (org-expo= rt-convert-protected-spaces) (setq target-alist (org-export-define-heading-= targets target-alist)) (run-hooks (quote org-export-preprocess-after-headli= ne-targets-hook)) (org-export-remember-html-container-classes) (org-export-= remove-or-extract-drawers drawers (plist-get parameters :drawers)) (when (p= list-get parameters :skip-before-1st-heading) (goto-char (point-min)) (when= (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min= ) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))) (w= hen (plist-get parameters :add-text) (goto-char (point-min)) (insert (plist= -get parameters :add-text) "\n")) (org-export-remove-headline-met= adata parameters) (setq target-alist (org-export-handle-invisible-targets t= arget-alist)) (run-hooks (quote org-export-preprocess-before-selecting-back= end-code-hook)) (org-export-select-backend-specific-text) (org-export-prote= ct-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-ver= batim) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-expo= rt-preprocess-after-blockquote-hook)) (unless (plist-get parameters :timest= amps) (org-export-remove-timestamps)) (setq target-alist (org-export-attach= -captions-and-attributes target-alist)) (org-export-mark-radio-links) (run-= hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-export-c= oncatenate-multiline-links) (run-hooks (quote org-export-preprocess-before-= normalizing-links-hook)) (org-export-normalize-links) ...) rtn)
=A0 org-export-preprocess-string(#("* remember.org\n" 0 15 (fontified nil)) :emph-multiline t :for-= backend html :skip-before-1st-heading nil :drawers nil :todo-keywords t :ta= sks t :tags not-in-toc :priority nil :footnotes t :timestamps t :archived-t= rees headline :select-tags ("export") :exclude-tags ("noexpo= rt") :add-text nil :LaTeX-fragments t)
=A0 (org-split-string (org-export-preprocess-string region :emph-multi= line t :for-backend (quote html) :skip-before-1st-heading (plist-get opt-pl= ist :skip-before-1st-heading) :drawers (plist-get opt-plist :drawers) :todo= -keywords (plist-get opt-plist :todo-keywords) :tasks (plist-get opt-plist = :tasks) :tags (plist-get opt-plist :tags) :priority (plist-get opt-plist :p= riority) :footnotes (plist-get opt-plist :footnotes) :timestamps (plist-get= opt-plist :timestamps) :archived-trees (plist-get opt-plist :archived-tree= s) :select-tags (plist-get opt-plist :select-tags) :exclude-tags (plist-get= opt-plist :exclude-tags) :add-text (plist-get opt-plist :text) :LaTeX-frag= ments (plist-get opt-plist :LaTeX-fragments)) "[
\n]")
=A0 (let* ((opt-plist (org-export-process-option-= filters (org-combine-plists (org-default-export-plist) ext-plist (org-infil= e-export-plist)))) (body-only (or body-only (plist-get opt-plist :body-only= ))) (style (concat (if (plist-get opt-plist :style-include-default) org-exp= ort-html-style-default) (plist-get opt-plist :style) (plist-get opt-plist := style-extra) "\n" (if (plist-get opt-plist :style-include-scripts= ) org-export-html-scripts))) (html-extension (plist-get opt-plist :html-ext= ension)) valid thetoc have-headings first-heading-pos (odd org-odd-levels-o= nly) (region-p (org-region-active-p)) (rbeg (and region-p (region-beginning= ))) (rend (and region-p (region-end))) (subtree-p (if (plist-get opt-plist = :ignore-subtree-p) nil (when region-p (save-excursion (goto-char rbeg) (and= (org-at-heading-p) (>=3D ... rend)))))) (level-offset (if subtree-p (sa= ve-excursion (goto-char rbeg) (+ (funcall outline-level) (if org-odd-levels= -only 1 0))) 0)) (opt-plist (setq org-export-opt-plist (if subtree-p (org-e= xport-add-subtree-options opt-plist rbeg) opt-plist))) (org-current-export-= dir (or pub-dir (org-export-directory :html opt-plist))) (org-current-expor= t-file buffer-file-name) (level 0) (org-line "") (origline "= ") txt todo (umax nil) (umax-toc nil) (filename (if to-buffer nil (exp= and-file-name (concat (file-name-sans-extension (or ... ...)) "."= html-extension) (file-name-as-directory (or pub-dir (org-export-directory = :html opt-plist)))))) (current-dir (if buffer-file-name (file-name-director= y buffer-file-name) default-directory)) (auto-insert nil) (buffer (if to-bu= ffer (cond ((eq to-buffer (quote string)) (get-buffer-create "*Org HTM= L Export*")) (t (get-buffer-create to-buffer))) (find-file-noselect fi= lename))) (org-levels-open (make-vector org-level-max nil)) (date (org-html= -expand (plist-get opt-plist :date))) (author (org-html-expand (plist-get o= pt-plist :author))) (html-validation-link (or org-export-html-validation-li= nk "")) (title (org-html-expand (or (and subtree-p (org-export-ge= t-title-from-subtree)) (plist-get opt-plist :title) (and (not body-only) (n= ot (plist-get opt-plist :skip-before-1st-heading)) (org-export-grab-title-f= rom-buffer)) (and buffer-file-name (file-name-sans-extension (file-name-non= directory buffer-file-name))) "UNTITLED"))) (link-up (and (plist-= get opt-plist :link-up) (string-match "\\S-" (plist-get opt-plist= :link-up)) (plist-get opt-plist :link-up))) (link-home (and (plist-get opt= -plist :link-home) (string-match "\\S-" (plist-get opt-plist :lin= k-home)) (plist-get opt-plist :link-home))) (dummy (setq opt-plist (plist-p= ut opt-plist :title title))) (html-table-tag (plist-get opt-plist :html-tab= le-tag)) (quote-re0 (concat "^ *" org-quote-string "\\( +\\|= [ ]*$\\)&q= uot;)) (quote-re (format org-heading-keyword-regexp-format org-quote-string= )) (inquote nil) (infixed nil) (inverse nil) (email (plist-get opt-plist :e= mail)) (language (plist-get opt-plist :language)) (keywords (org-html-expan= d (plist-get opt-plist :keywords))) (description (org-html-expand (plist-ge= t opt-plist :description))) (num (plist-get opt-plist :section-numbers)) (l= ang-words nil) (head-count 0) cnt ...) (let ((inhibit-read-only t)) (org-un= modified (remove-text-properties (point-min) (point-max) (quote (:org-licen= se-to-kill t))))) (message "Exporting...") (setq org-min-level (o= rg-get-min-level lines level-offset)) (setq org-last-level org-min-level) (= org-init-section-numbers) (cond ((and date (string-match "%" date= )) (setq date (format-time-string date))) (date) (t (setq date (format-time= -string org-export-html-date-format-string)))) (setq lang-words (or (assoc = language org-export-language-setup) (assoc "en" org-export-langua= ge-setup))) (set-buffer buffer) (let ((inhibit-read-only t)) (erase-buffer)= ) (fundamental-mode) (org-install-letbind) (and (fboundp (quote set-buffer-= file-coding-system)) (set-buffer-file-coding-system coding-system-for-write= )) (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc (lambda (x= ) (set (make-local-variable (nth 2 x)) (plist-get opt-plist (car x)))) org-= export-plist-vars) (setq umax (if arg (prefix-numeric-value arg) org-export= -headline-levels)) (setq umax-toc (if (integerp org-export-with-toc) (min o= rg-export-with-toc umax) umax)) (unless body-only (insert (format "%s\= n<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n = =A0 =A0 =A0 =A0 =A0 =A0 =A0 \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n<html xmlns=3D\"http://www.w3.org/1999/xhtml\" lang=3D\"%s\" xml:la= ng=3D\"%s\">\n<head>\n<title>%s</title>\n<= ;meta http-equiv=3D\"Content-Type\" content=3D\"text/html;ch= arset=3D%s\"/>\n<meta name=3D\"title\" content=3D\&quo= t;%s\"/>\n<meta name=3D\"generator\" content=3D\"= Org-mode\"/>\n<meta name=3D\"generated\" content=3D\&q= uot;%s\"/>\n<meta name=3D\"author\" content=3D\"%= s\"/>\n<meta name=3D\"description\" content=3D\"%= s\"/>\n<meta name=3D\"keywords\" content=3D\"%s\&= quot;/>\n%s\n%s\n</head>\n<body>\n%s\n" (format (or (an= d ... org-export-html-xml-declaration) (cdr ...) (cdr ...) "") (o= r charset "iso-8859-1")) language language title (or charset &quo= t;iso-8859-1") title date author description keywords style mathjax (i= f (or link-up link-home) (concat (format org-export-html-home/up-format ...= ...) "\n") ""))) (when (plist-get opt-plist :html-prea= mble) (let ((html-pre (plist-get opt-plist :html-preamble)) (html-pre-real-= contents "")) (cond ((stringp html-pre) (setq html-pre-real-conte= nts ...)) ((functionp html-pre) (insert "<div id=3D\"" ..= . "\">\n") (if ... ...) (insert "\n</div>\n&qu= ot;)) (t (setq html-pre-real-contents ...))) (unless (and (functionp html-p= re) (equal html-pre-real-contents "")) (insert "<div id= =3D\"" (nth 0 org-export-html-divs) "\">\n") (i= nsert html-pre-real-contents) (insert "\n</div>\n")))) (ins= ert (format "\n<div id=3D\"%s\">" (or org-export-= html-content-div (nth 1 org-export-html-divs))) "\n<h1 class=3D\&qu= ot;title\">" title "</h1>\n")) (if org-export-= with-toc (progn (push (format "<h%d>%s</h%d>\n" org-e= xport-html-toplevel-hlevel (nth 3 lang-words) org-export-html-toplevel-hlev= el) thetoc) (push "<div id=3D\"text-table-of-contents\"&g= t;\n" thetoc) (push "<ul>\n<li>" thetoc) (setq l= ines (mapcar (function (lambda ... ... org-line)) lines)) (while (> org-= last-level (1- org-min-level)) (setq org-last-level (1- org-last-level)) (p= ush "</li>\n</ul>\n" thetoc)) (push "</div>= ;\n" thetoc) (setq thetoc (if have-headings (nreverse thetoc) nil)))) = (setq head-count 0) (org-init-section-numbers) (org-open-par) (while (setq = org-line (pop lines) origline org-line) (catch (quote nextline) (when (and = inquote (string-match org-outline-regexp-bol org-line)) (insert "</= pre>\n") (org-open-par) (setq inquote nil)) (when inquote (insert (= org-html-protect org-line) "\n") (throw (quote nextline) nil)) (w= hen (and org-export-with-fixed-width (string-match "^[ ]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)"= ; org-line)) (when (not infixed) (setq infixed t) (org-close-par-maybe) (in= sert "<pre class=3D\"example\">\n")) (insert (org= -html-protect (match-string 3 org-line)) "\n") (when (or (not lin= es) (not ...)) (setq infixed nil) (insert "</pre>\n") (org-= open-par)) (throw (quote nextline) nil)) (when (and (get-text-property 0 (q= uote org-protected) org-line) (not (< ... ...))) (let (par (ind ...)) (w= hen (re-search-backward "\\(<p>\\)\\([
\n]*\\)\\=3D" ... t) (setq par ...) (replace-match "\\2\n&qu= ot;)) (insert org-line "\n") (while (and lines ... ...) (insert .= .. "\n")) (and par (insert "<p>\n"))) (throw (quo= te nextline) nil)) (when (equal "ORG-BLOCKQUOTE-START" org-line) = (org-close-par-maybe) (insert "<blockquote>\n") (org-open-p= ar) (throw (quote nextline) nil)) (when (equal "ORG-BLOCKQUOTE-END&quo= t; org-line) (org-close-par-maybe) (insert "\n</blockquote>\n&qu= ot;) (org-open-par) (throw (quote nextline) nil)) (when (equal "ORG-VE= RSE-START" org-line) (org-close-par-maybe) (insert "\n<p class= =3D\"verse\">\n") (setq org-par-open t) (setq inverse t) = (throw (quote nextline) nil)) (when (equal "ORG-VERSE-END" org-li= ne) (insert "</p>\n") (setq org-par-open nil) (org-open-par= ) (setq inverse nil) (throw (quote nextline) nil)) (when (equal "ORG-C= ENTER-START" org-line) (org-close-par-maybe) (insert "\n<div s= tyle=3D\"text-align: center\">") (org-open-par) (throw (q= uote nextline) nil)) (when (equal "ORG-CENTER-END" org-line) (org= -close-par-maybe) (insert "\n</div>") (org-open-par) (throw= (quote nextline) nil)) (run-hooks (quote org-export-html-after-blockquotes= -hook)) (when inverse (let ((i ...)) (if (> i 0) (setq org-line ...)) (u= nless (string-match "\\\\\\\\[ ]*$" org-line) (setq org-line ...)))) (setq = start 0) (while (string-match "<<<?\\([^<>]*\\)>>= >?\\((INVISIBLE)\\)?[ ]*\n?" org-line start) (cond ((get-text-property ... ..= . org-line) (setq start ...)) ((match-end 2) (setq org-line ...)) ((and org= -export-with-toc ...) (setq org-line ...)) (t (setq org-line ...)))) (setq = org-line (org-html-handle-time-stamps org-line)) (or (string-match org-tabl= e-hline-regexp org-line) (string-match "^[ ]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ ]*$" org-l= ine) (setq org-line (org-html-expand org-line))) (setq org-line (org-html-h= andle-links org-line opt-plist)) (if (and org-todo-line-regexp (string-matc= h org-todo-line-regexp org-line) (match-beginning 2)) (setq org-line (conca= t (substring org-line 0 ...) "<span class=3D\"" (if ... &= quot;done" "todo") " " (org-export-html-get-todo-k= wd-class-name ...) "\">" (match-string 2 org-line) "= </span>" (substring org-line ...)))) (when org-export-with-footn= otes (setq start 0) (while (string-match "\\([^* ].*?\\)\\[\\([0-9]+\\)\\]"= org-line start) (if (or ... ...) (setq start ...) (let ... ... ...)))) (co= nd ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ ]*$" org-line) (setq le= vel (org-tr-level ...) txt (or ... "")) (if (string-match quote-r= e0 txt) (setq txt ...)) (if (<=3D level ...) (setq head-count ...)) (set= q first-heading-pos (or first-heading-pos ...)) (org-html-level-start level= txt umax (and org-export-with-toc ...) head-count opt-plist) (when (string= -match quote-re org-line) (org-close-par-maybe) (insert "<pre>&q= uot;) (setq inquote t))) ((and org-export-with-tables (string-match "^= \\([ ]*\\)= \\(|\\|\\+-+\\+\\)" org-line)) (when (not table-open) (setq table-open= t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons org-li= ne table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when= (or ... ...) (setq table-open nil table-buffer ... table-orig-buffer ...) = (org-close-par-maybe) (insert ...))) (t (when (get-text-property 0 ... org-= line) (setq org-line ...)) (when (string-match "^[ ]*-\\{5,\\}[ ]*$" org-line) (if or= g-par-open ... ...) (throw ... nil)) (if (string-match "^ [-+*]-\\|^[ = ]*$" = org-line) (org-open-par)) (when org-export-with-footnotes (when ... ...) (w= hen ... ... ...)) (cond (... ...) (org-export-preserve-breaks ...)) (let (.= ..) (while ... ... ...)) (insert org-line "\n"))))) (when inquote= (insert "</pre>\n") (org-open-par)) (org-html-level-start = 1 nil umax (and org-export-with-toc (<=3D level umax)) head-count opt-pl= ist) (when (and (> umax 0) first-heading-pos) (insert "</div>= \n")) (save-excursion (goto-char (point-min)) (while (re-search-forwar= d "\\(\\(<p class=3D\"footnote\">\\)[^
--047d7b6daa702ffab604d64611fb--