Browse Source

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

* org.el (orgstruct-setup): Generalize key bindings.
Christopher Schmidt 12 năm trước cách đây
mục cha
commit
404cf23fa9
1 tập tin đã thay đổi với 6 bổ sung4 xóa
  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