org.el: Use most general key bindings in orgstruct-mode

* org.el (orgstruct-setup): Generalize key bindings.
This commit is contained in:
Christopher Schmidt 2013-03-15 19:50:04 +01:00
parent ce6c048305
commit 404cf23fa9
1 changed files with 6 additions and 4 deletions

View File

@ -8829,10 +8829,12 @@ buffer. It will also recognize item context in multiline items."
("<return>" . "RET")
("<escape>" . "ESC")
("<delete>" . "DEL")))
(setq binding (read-kbd-macro (replace-regexp-in-string
(regexp-quote (car rep))
(cdr rep)
(key-description binding)))))
(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