From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric Abrahamsen Subject: orgstruct-mode taking over C-c C-f Date: Wed, 22 Jan 2014 12:15:50 +0700 Message-ID: <87r480oaux.fsf@ericabrahamsen.net> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:36901) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W5q8a-000564-Ez for emacs-orgmode@gnu.org; Wed, 22 Jan 2014 00:14:11 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1W5q8S-0005QW-VN for emacs-orgmode@gnu.org; Wed, 22 Jan 2014 00:14:04 -0500 Received: from plane.gmane.org ([80.91.229.3]:60005) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W5q8S-0005QO-LD for emacs-orgmode@gnu.org; Wed, 22 Jan 2014 00:13:56 -0500 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1W5q8Q-00074b-R2 for emacs-orgmode@gnu.org; Wed, 22 Jan 2014 06:13:54 +0100 Received: from cm-171-100-243-209.revip10.asianet.co.th ([171.100.243.209]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 22 Jan 2014 06:13:54 +0100 Received: from eric by cm-171-100-243-209.revip10.asianet.co.th with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 22 Jan 2014 06:13:54 +0100 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 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 =3D "." for rep in (quote= (nil ("<\\([^>]*\\)tab>" . "\\1TAB") ("<\\([^>]*\\)return>" . "\\1RET") ("= <\\([^>]*\\)escape>" . "\\1ESC") ("<\\([^>]*\\)delete>" . "\\1DEL"))) do (w= hen rep (setq key (read-kbd-macro (let ... ...)))) thereis (key-binding key= )))) (if (keymapp binding) (set-transient-map binding) (let ((func (or bind= ing (unless disable (quote orgstruct-error))))) (when func (call-interactiv= ely func))))) (if fallback (let* ((orgstruct-mode) (binding (loop with key =3D "." for = rep in (quote (nil ("<\\([^>]*\\)tab>" . "\\1TAB") ("<\\([^>]*\\)return>" .= "\\1RET") ("<\\([^>]*\\)escape>" . "\\1ESC") ("<\\([^>]*\\)delete>" . "\\1= DEL"))) do (when rep (setq key (read-kbd-macro ...))) thereis (key-binding = key)))) (if (keymapp binding) (set-transient-map binding) (let ((func (or b= inding (unless disable ...)))) (when func (call-interactively func))))) (or= g-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-reg= exp org-outline-regexp) (outline-heading-end-regexp "\n") (outline-level (q= uote org-outline-level)) (outline-heading-alist)) (call-interactively (quot= e org-forward-heading-same-level)))))) (let* ((disable nil) (fallback (or disable (not (let* ((org-heading-regex= p ...) (org-outline-regexp ...) (org-outline-regexp-bol ...) (outline-regex= p 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 =3D "." = for rep in (quote (nil ... ... ... ...)) do (when rep (setq key ...)) there= is (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-rege= xp org-outline-regexp) (outline-heading-end-regexp "\n") (outline-level (qu= ote 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 ni= l nil)