emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* orgstruct-mode taking over C-c C-f
@ 2014-01-22  5:15 Eric Abrahamsen
  2014-01-22  7:04 ` Jambunathan K
                   ` (2 more replies)
  0 siblings, 3 replies; 9+ messages in thread
From: Eric Abrahamsen @ 2014-01-22  5:15 UTC (permalink / raw)
  To: emacs-orgmode

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)

^ permalink raw reply	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2014-01-25  2:33 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2014-01-22  5:15 orgstruct-mode taking over C-c C-f Eric Abrahamsen
2014-01-22  7:04 ` Jambunathan K
2014-01-22  7:05 ` Jambunathan K
2014-01-22 10:44 ` Bastien
2014-01-24  9:48   ` Eric Abrahamsen
2014-01-24 10:27     ` Bastien
2014-01-24 11:08       ` Malcolm Purvis
2014-01-24 11:17         ` Bastien
2014-01-25  2:35           ` Eric Abrahamsen

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