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

View file

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