瀏覽代碼

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

* org.el (orgstruct-setup): Generalize key bindings.
Christopher Schmidt 12 年之前
父節點
當前提交
404cf23fa9
共有 1 個文件被更改,包括 6 次插入4 次删除
  1. 6 4
      lisp/org.el

+ 6 - 4
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