[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] orgstruct-mode taking over C-c C-f
From: |
Eric Abrahamsen |
Subject: |
[O] orgstruct-mode taking over C-c C-f |
Date: |
Wed, 22 Jan 2014 12:15:50 +0700 |
User-agent: |
Gnus/5.130008 (Ma Gnus v0.8) Emacs/24.3 (gnu/linux) |
Hey there,
I use the orgstruct minor mode in message mode, and recently it has
started eating the C-c C-f prefix, which it didn't used to do. Or it's
erroring on it, instead of passing it along, I'm not sure which.
In message mode, C-c C-f is the prefix for a set of "goto mail header"
commands. With orgstruct mode on, hitting C-c C-f gives the backtrace
below.
I'm not sure how this is supposed to work, so I'm not quite sure what
the proper solution is...
Thanks,
Eric
Debugger entered--Lisp error: (void-function set-transient-map)
(set-transient-map binding)
(if (keymapp binding) (set-transient-map binding) (let ((func (or binding
(unless disable (quote orgstruct-error))))) (when func (call-interactively
func))))
(let* ((orgstruct-mode) (binding (loop with key = "." for rep in (quote (nil
("<\\([^>]*\\)tab>" . "\\1TAB") ("<\\([^>]*\\)return>" . "\\1RET")
("<\\([^>]*\\)escape>" . "\\1ESC") ("<\\([^>]*\\)delete>" . "\\1DEL"))) do
(when rep (setq key (read-kbd-macro (let ... ...)))) thereis (key-binding
key)))) (if (keymapp binding) (set-transient-map binding) (let ((func (or
binding (unless disable (quote orgstruct-error))))) (when func
(call-interactively func)))))
(if fallback (let* ((orgstruct-mode) (binding (loop with key = "." for rep in
(quote (nil ("<\\([^>]*\\)tab>" . "\\1TAB") ("<\\([^>]*\\)return>" . "\\1RET")
("<\\([^>]*\\)escape>" . "\\1ESC") ("<\\([^>]*\\)delete>" . "\\1DEL"))) do
(when rep (setq key (read-kbd-macro ...))) thereis (key-binding key)))) (if
(keymapp binding) (set-transient-map binding) (let ((func (or binding (unless
disable ...)))) (when func (call-interactively func)))))
(org-run-like-in-org-mode (lambda nil (interactive) (let* ((org-heading-regexp
(concat "^" orgstruct-heading-prefix-regexp "\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[
]*$")) (org-outline-regexp (concat orgstruct-heading-prefix-regexp
"\\*+ ")) (org-outline-regexp-bol (concat "^" org-outline-regexp))
(outline-regexp org-outline-regexp) (outline-heading-end-regexp "\n")
(outline-level (quote org-outline-level)) (outline-heading-alist))
(call-interactively (quote org-forward-heading-same-level))))))
(let* ((disable nil) (fallback (or disable (not (let* ((org-heading-regexp
...) (org-outline-regexp ...) (org-outline-regexp-bol ...) (outline-regexp
org-outline-regexp) (outline-heading-end-regexp "\n") (outline-level ...)
(outline-heading-alist)) (org-context-p (quote headline) (quote item) nil))))))
(if fallback (let* ((orgstruct-mode) (binding (loop with key = "." for rep in
(quote (nil ... ... ... ...)) do (when rep (setq key ...)) thereis (key-binding
key)))) (if (keymapp binding) (set-transient-map binding) (let ((func (or
binding ...))) (when func (call-interactively func)))))
(org-run-like-in-org-mode (lambda nil (interactive) (let* ((org-heading-regexp
(concat "^" orgstruct-heading-prefix-regexp "\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[
]*$")) (org-outline-regexp (concat orgstruct-heading-prefix-regexp "\\*+
")) (org-outline-regexp-bol (concat "^" org-outline-regexp)) (outline-regexp
org-outline-regexp) (outline-heading-end-regexp "\n") (outline-level (quote
org-outline-level)) (outline-heading-alist)) (call-interactively (quote
org-forward-heading-same-level)))))))
orgstruct-hijacker-org-forward-heading-same-level-1(1)
call-interactively(orgstruct-hijacker-org-forward-heading-same-level-1 nil
nil)
- [O] orgstruct-mode taking over C-c C-f,
Eric Abrahamsen <=