org.el: Use longest form when translating keys.

* org.el (orgstruct-setup): Use longest form when translating
keys.
This commit is contained in:
Christopher Schmidt 2013-02-22 19:49:54 +01:00
parent b10e2bde13
commit 14df16d931
1 changed files with 3 additions and 3 deletions

View File

@ -8721,9 +8721,9 @@ buffer. It will also recognize item context in multiline items."
(where-is-internal f outline-mode-map))) (where-is-internal f outline-mode-map)))
;; TODO use local-function-key-map ;; TODO use local-function-key-map
(dolist (rep '(("<tab>" . "TAB") (dolist (rep '(("<tab>" . "TAB")
("<ret>" . "RET") ("<return>" . "RET")
("<esc>" . "ESC") ("<escape>" . "ESC")
("<del>" . "DEL"))) ("<delete>" . "DEL")))
(setq binding (read-kbd-macro (replace-regexp-in-string (setq binding (read-kbd-macro (replace-regexp-in-string
(regexp-quote (car rep)) (regexp-quote (car rep))
(cdr rep) (cdr rep)