diff options
author | Christopher Schmidt <christopher@ch.ristopher.com> | 2013-03-15 19:50:04 +0100 |
---|---|---|
committer | Christopher Schmidt <christopher@ch.ristopher.com> | 2013-03-15 19:50:04 +0100 |
commit | 404cf23fa99e6f1e072d5e04bfd0cae601b3e87e (patch) | |
tree | 700c0f60cd0b61e296d5d876713c793a03123920 | |
parent | ce6c04830526f34d08e344f8e92d395ce081dc34 (diff) | |
download | org-mode-404cf23fa99e6f1e072d5e04bfd0cae601b3e87e.tar.gz |
org.el: Use most general key bindings in orgstruct-mode
* org.el (orgstruct-setup): Generalize key bindings.
-rw-r--r-- | lisp/org.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index a75bdfb..f02a455 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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 |