* 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/)]
@ 2013-02-22 1:25 Evan Hawkins
2013-02-23 8:15 ` Bastien
0 siblings, 1 reply; 2+ messages in thread
From: Evan Hawkins @ 2013-02-22 1:25 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 33183 bytes --]
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<!DOCTYPE html PUBLIC \"-//W3C//DTD
XHTML 1.0 Strict//EN\"\n \"
http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n<html xmlns=\"
http://www.w3.org/1999/xhtml\" lang=\"%s\"
xml:lang=\"%s\">\n<head>\n<title>%s</title>\n<meta
http-equiv=\"Content-Type\" content=\"text/html;charset=%s\"/>\n<meta
name=\"title\" content=\"%s\"/>\n<meta name=\"generator\"
content=\"Org-mode\"/>\n<meta name=\"generated\" content=\"%s\"/>\n<meta
name=\"author\" content=\"%s\"/>\n<meta name=\"description\"
content=\"%s\"/>\n<meta name=\"keywords\"
content=\"%s\"/>\n%s\n%s\n</head>\n<body>\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 "<div
id=\"" ... "\">\n") (if ... ...) (insert "\n</div>\n")) (t (setq
html-pre-real-contents ...))) (unless (and (functionp html-pre) (equal
html-pre-real-contents "")) (insert "<div id=\"" (nth 0
org-export-html-divs) "\">\n") (insert html-pre-real-contents) (insert
"\n</div>\n")))) (insert (format "\n<div id=\"%s\">" (or
org-export-html-content-div (nth 1 org-export-html-divs))) "\n<h1
class=\"title\">" title "</h1>\n")) (if org-export-with-toc (progn (push
(format "<h%d>%s</h%d>\n" org-export-html-toplevel-hlevel (nth 3
lang-words) org-export-html-toplevel-hlevel) thetoc) (push "<div
id=\"text-table-of-contents\">\n" thetoc) (push "<ul>\n<li>" 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 "</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)) (when (and
org-export-with-fixed-width (string-match "^[ ]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)"
org-line)) (when (not infixed) (setq infixed t) (org-close-par-maybe)
(insert "<pre class=\"example\">\n")) (insert (org-html-protect
(match-string 3 org-line)) "\n") (when (or (not lines) (not ...)) (setq
infixed nil) (insert "</pre>\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 "\\(<p>\\)\\([
\n]*\\)\\=" ... t) (setq par ...) (replace-match "\\2\n")) (insert org-line
"\n") (while (and lines ... ...) (insert ... "\n")) (and par (insert
"<p>\n"))) (throw (quote nextline) nil)) (when (equal
"ORG-BLOCKQUOTE-START" org-line) (org-close-par-maybe) (insert
"<blockquote>\n") (org-open-par) (throw (quote nextline) nil)) (when (equal
"ORG-BLOCKQUOTE-END" org-line) (org-close-par-maybe) (insert
"\n</blockquote>\n") (org-open-par) (throw (quote nextline) nil)) (when
(equal "ORG-VERSE-START" org-line) (org-close-par-maybe) (insert "\n<p
class=\"verse\">\n") (setq org-par-open t) (setq inverse t) (throw (quote
nextline) nil)) (when (equal "ORG-VERSE-END" org-line) (insert "</p>\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<div style=\"text-align: center\">")
(org-open-par) (throw (quote 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 ...)) (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 ...) "<span class=\"" (if ... "done" "todo") " "
(org-export-html-get-todo-kwd-class-name ...) "\">" (match-string 2
org-line) "</span>" (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 "<pre>")
(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 "</pre>\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
"</div>\n")) (save-excursion (goto-char (point-min)) (while
(re-search-forward "\\(\\(<p class=\"footnote\">\\)[^
[-- Attachment #2: Type: text/html, Size: 36949 bytes --]
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: 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/)]
2013-02-22 1:25 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/)] Evan Hawkins
@ 2013-02-23 8:15 ` Bastien
0 siblings, 0 replies; 2+ messages in thread
From: Bastien @ 2013-02-23 8:15 UTC (permalink / raw)
To: Evan Hawkins; +Cc: emacs-orgmode
Hi Evan,
`org-mode-keys' is not an Org function, so I suspect something is
wrong with your setup.
Did you borrow the `org-mode-keys' function from another setup?
What is the value of `org-export-preprocess-after-include-files-hook'?
HTH,
--
Bastien
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2013-02-23 10:48 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2013-02-22 1:25 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/)] Evan Hawkins
2013-02-23 8:15 ` Bastien
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).