emacs-orgmode
[Top][All Lists]
Advanced

[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)




reply via email to

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