Fix typos

This commit is contained in:
Carsten Dominik 2009-11-12 17:50:31 +01:00
parent 037101c3cd
commit afc23be5c0
5 changed files with 8 additions and 8 deletions

View File

@ -127,7 +127,7 @@ in a window. A non-interactive call will only return the buffer."
(setq buffer "*Org ASCII Export*"))
(let ((transient-mark-mode t) (zmacs-regions t)
ext-plist rtn)
(setq ext-plist (plist-put ext-plist :ignore-subree-p t))
(setq ext-plist (plist-put ext-plist :ignore-subtree-p t))
(goto-char end)
(set-mark (point)) ;; to activate the region
(goto-char beg)
@ -164,7 +164,7 @@ publishing directory."
(rbeg (and region-p (region-beginning)))
(rend (and region-p (region-end)))
(subtree-p
(if (plist-get opt-plist :ignore-subree-p)
(if (plist-get opt-plist :ignore-subtree-p)
nil
(when region-p
(save-excursion

View File

@ -410,7 +410,7 @@ publishing directory."
(rbeg (and region-p (region-beginning)))
(rend (and region-p (region-end)))
(subtree-p
(if (plist-get opt-plist :ignore-subree-p)
(if (plist-get opt-plist :ignore-subtree-p)
nil
(when region-p
(save-excursion

View File

@ -164,7 +164,7 @@ NOT READY YET."
(rbeg (and region-p (region-beginning)))
(rend (and region-p (region-end)))
(subtree-p
(if (plist-get opt-plist :ignore-subree-p)
(if (plist-get opt-plist :ignore-subtree-p)
nil
(when region-p
(save-excursion

View File

@ -507,7 +507,7 @@ in a window. A non-interactive call will only return the buffer."
(setq buffer "*Org HTML Export*"))
(let ((transient-mark-mode t) (zmacs-regions t)
ext-plist rtn)
(setq ext-plist (plist-put ext-plist :ignore-subree-p t))
(setq ext-plist (plist-put ext-plist :ignore-subtree-p t))
(goto-char end)
(set-mark (point)) ;; to activate the region
(goto-char beg)
@ -575,7 +575,7 @@ PUB-DIR is set, use this as the publishing directory."
(rbeg (and region-p (region-beginning)))
(rend (and region-p (region-end)))
(subtree-p
(if (plist-get opt-plist :ignore-subree-p)
(if (plist-get opt-plist :ignore-subtree-p)
nil
(when region-p
(save-excursion

View File

@ -490,7 +490,7 @@ in a window. A non-interactive call will only return the buffer."
(setq buffer "*Org LaTeX Export*"))
(let ((transient-mark-mode t) (zmacs-regions t)
ext-plist rtn)
(setq ext-plist (plist-put ext-plist :ignore-subree-p t))
(setq ext-plist (plist-put ext-plist :ignore-subtree-p t))
(goto-char end)
(set-mark (point)) ;; to activate the region
(goto-char beg)
@ -544,7 +544,7 @@ when PUB-DIR is set, use this as the publishing directory."
(rbeg (and region-p (region-beginning)))
(rend (and region-p (region-end)))
(subtree-p
(if (plist-get opt-plist :ignore-subree-p)
(if (plist-get opt-plist :ignore-subtree-p)
nil
(when region-p
(save-excursion