mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-28 07:44:49 +00:00
Code

org.el (orgstruct-setup): Bind all intermediate key translations.

Browse Source 
* org.el (orgstruct-setup): Bind all intermediate key
translations.
This commit is contained in:
Christopher Schmidt 2013-05-26 17:31:49 +02:00
parent 847637f4bd
commit 8a3e48bd21
1 changed files with 24 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
lisp/org.el
View File

@ -8960,26 +8960,30 @@ buffer. It will also recognize item context in multiline items."
(let ((f (or (car-safe cell) cell))
(disable-when-heading-prefix (cdr-safe cell)))
(when (fboundp f)
(dolist (binding (nconc (where-is-internal f org-mode-map)
(where-is-internal f outline-mode-map)))
;; TODO use local-function-key-map
(dolist (rep '(("<tab>" . "TAB")
("<return>" . "RET")
("<escape>" . "ESC")
("<delete>" . "DEL")))
(setq binding (read-kbd-macro
(let ((case-fold-search))
(replace-regexp-in-string
(regexp-quote (cdr rep))
(car rep)
(key-description binding))))))
(let ((key (lookup-key orgstruct-mode-map binding)))
(when (or (not key) (numberp key))
(condition-case nil
(org-defkey orgstruct-mode-map
binding
(orgstruct-make-binding f binding disable-when-heading-prefix))
(error nil))))))))
(let ((new-bindings))
(dolist (binding (nconc (where-is-internal f org-mode-map)
(where-is-internal f outline-mode-map)))
(push binding new-bindings)
;; TODO use local-function-key-map
(dolist (rep '(("<tab>" . "TAB")
("<return>" . "RET")
("<escape>" . "ESC")
("<delete>" . "DEL")))
(setq binding (read-kbd-macro
(let ((case-fold-search))
(replace-regexp-in-string
(regexp-quote (cdr rep))
(car rep)
(key-description binding)))))
(pushnew binding new-bindings :test 'equal)))
(dolist (binding new-bindings)
(let ((key (lookup-key orgstruct-mode-map binding)))
(when (or (not key) (numberp key))
(condition-case nil
(org-defkey orgstruct-mode-map
binding
(orgstruct-make-binding f binding disable-when-heading-prefix))
(error nil)))))))))
(run-hooks 'orgstruct-setup-hook))
(defun orgstruct-make-binding (fun key disable-when-heading-prefix)