summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Schmidt <christopher@ch.ristopher.com>2013-03-15 18:50:04 (GMT)
committer Christopher Schmidt <christopher@ch.ristopher.com>2013-03-15 18:50:04 (GMT)
commit404cf23fa99e6f1e072d5e04bfd0cae601b3e87e (patch)
tree700c0f60cd0b61e296d5d876713c793a03123920
parentce6c04830526f34d08e344f8e92d395ce081dc34 (diff)
downloadorg-mode-404cf23fa99e6f1e072d5e04bfd0cae601b3e87e.zip
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.el10
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