tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Bugfix `org-without-partial-completion' (again).

Browse source 
Er... We need to call ,@body when partial-completion-mode is nil.
This commit is contained in:
Bastien Guerry 2011-07-02 12:15:20 +02:00
parent 65815f64a4
commit da086f9606
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org-macs.el
View file

@ -112,13 +112,14 @@ Also, do not record undo information."
(org-move-to-column _col))))
(defmacro org-without-partial-completion (&rest body)
`(when (and (boundp 'partial-completion-mode)
(fboundp 'partial-completion-mode))
`(if (and (boundp 'partial-completion-mode)
(fboundp 'partial-completion-mode))
(unwind-protect
(progn
(partial-completion-mode -1)
,@body)
(partial-completion-mode 1))))
(partial-completion-mode 1))
,@body))
(defmacro org-maybe-intangible (props)
"Add '(intangible t) to PROPS if Emacs version is earlier than Emacs 22.