mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

Merge branch 'master' of orgmode.org:org-mode

Browse Source
This commit is contained in:
Bastien Guerry 2013-02-26 18:21:40 +01:00
commit 3ee229dcd1
1 changed files with 35 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
lisp/org.el
View File

@ -8766,36 +8766,41 @@ should be checked in for a command to execute outside of tables."
(setq nname (format "%s-%d" name (setq i (1+ i)))))
(setq name (intern nname)))
(eval
`(defun ,name (arg)
,(concat "In Structure, run `" (symbol-name fun) "'.\n"
"Outside of structure, run the binding of `"
(key-description key) "'.")
(interactive "p")
(unless
(let* ((org-heading-regexp
(concat "^"
orgstruct-heading-prefix-regexp
"\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ ]*$"))
(org-outline-regexp
(concat orgstruct-heading-prefix-regexp "\\*+ "))
(org-outline-regexp-bol
(concat "^" org-outline-regexp))
(outline-regexp org-outline-regexp)
(outline-heading-end-regexp "\n")
(outline-level 'outline-level)
(outline-heading-alist))
(when (org-context-p 'headline 'item
,(when (memq fun '(org-insert-heading))
'(when orgstruct-is-++
'item-body)))
(org-run-like-in-org-mode ',fun)
t))
(let* ((orgstruct-mode)
(binding (key-binding ,key)))
(if (keymapp binding)
(set-temporary-overlay-map binding)
(call-interactively
(or binding 'orgstruct-error)))))))
(let ((bindings '((org-heading-regexp
(concat "^"
orgstruct-heading-prefix-regexp
"\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ ]*$"))
(org-outline-regexp
(concat orgstruct-heading-prefix-regexp "\\*+ "))
(org-outline-regexp-bol
(concat "^" org-outline-regexp))
(outline-regexp org-outline-regexp)
(outline-heading-end-regexp "\n")
(outline-level 'outline-level)
(outline-heading-alist))))
`(defun ,name (arg)
,(concat "In Structure, run `" (symbol-name fun) "'.\n"
"Outside of structure, run the binding of `"
(key-description key) "'.")
(interactive "p")
(unless
(let* ,bindings
(when (org-context-p 'headline 'item
,(when (memq fun '(org-insert-heading))
'(when orgstruct-is-++
'item-body)))
(org-run-like-in-org-mode
(lambda ()
(interactive)
(let* ,bindings
(call-interactively ',fun))))
t))
(let* ((orgstruct-mode)
(binding (key-binding ,key)))
(if (keymapp binding)
(set-temporary-overlay-map binding)
(call-interactively
(or binding 'orgstruct-error))))))))
name))
(defun org-contextualize-keys (alist contexts)