mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:36:26 +00:00
org.el (orgstruct-make-binding): Do not use loop in interpreted code.
* lisp/org.el (orgstruct-make-binding): Do not use loop in interpreted code.
This commit is contained in:
parent
4a872ae3a0
commit
2b98cd6554
21
lisp/org.el
21
lisp/org.el
|
@ -9261,14 +9261,16 @@ if `orgstruct-heading-prefix-regexp' is not empty."
|
|||
(if fallback
|
||||
(let* ((orgstruct-mode)
|
||||
(binding
|
||||
(loop with key = ,key
|
||||
for rep in
|
||||
'(nil
|
||||
("<\\([^>]*\\)tab>" . "\\1TAB")
|
||||
("<\\([^>]*\\)return>" . "\\1RET")
|
||||
("<\\([^>]*\\)escape>" . "\\1ESC")
|
||||
("<\\([^>]*\\)delete>" . "\\1DEL"))
|
||||
do
|
||||
(let ((key ,key))
|
||||
(catch 'exit
|
||||
(dolist
|
||||
(rep
|
||||
'(nil
|
||||
("<\\([^>]*\\)tab>" . "\\1TAB")
|
||||
("<\\([^>]*\\)return>" . "\\1RET")
|
||||
("<\\([^>]*\\)escape>" . "\\1ESC")
|
||||
("<\\([^>]*\\)delete>" . "\\1DEL"))
|
||||
nil)
|
||||
(when rep
|
||||
(setq key (read-kbd-macro
|
||||
(let ((case-fold-search))
|
||||
|
@ -9276,7 +9278,8 @@ if `orgstruct-heading-prefix-regexp' is not empty."
|
|||
(car rep)
|
||||
(cdr rep)
|
||||
(key-description key))))))
|
||||
thereis (key-binding key))))
|
||||
(when (key-binding key)
|
||||
(throw 'exit (key-binding key))))))))
|
||||
(if (keymapp binding)
|
||||
(org-set-transient-map binding)
|
||||
(let ((func (or binding
|
||||
|
|
Loading…
Reference in a new issue