diff options
| author | Joakim Verona | 2013-01-10 00:04:21 +0100 |
|---|---|---|
| committer | Joakim Verona | 2013-01-10 00:04:21 +0100 |
| commit | 09708f70bd02e7a2edec79e1bcfd04fb9b7f48d3 (patch) | |
| tree | 9376433d772aa4a302b231af1c601bcb4440c9f1 /lisp/org/org-docbook.el | |
| parent | 0f9ee7aa0e6b57e28b31699a912356c24b959b01 (diff) | |
| parent | 51fb5578777d1041feaab31651b65e09e1731d33 (diff) | |
| download | emacs-09708f70bd02e7a2edec79e1bcfd04fb9b7f48d3.tar.gz emacs-09708f70bd02e7a2edec79e1bcfd04fb9b7f48d3.zip | |
auto upstream
Diffstat (limited to 'lisp/org/org-docbook.el')
| -rw-r--r-- | lisp/org/org-docbook.el | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/lisp/org/org-docbook.el b/lisp/org/org-docbook.el index ba03e3160b1..5253d9100a5 100644 --- a/lisp/org/org-docbook.el +++ b/lisp/org/org-docbook.el | |||
| @@ -274,14 +274,14 @@ For example: | |||
| 274 | $ emacs --batch | 274 | $ emacs --batch |
| 275 | --load=$HOME/lib/emacs/org.el | 275 | --load=$HOME/lib/emacs/org.el |
| 276 | --visit=MyOrgFile.org --funcall org-export-as-docbook-batch" | 276 | --visit=MyOrgFile.org --funcall org-export-as-docbook-batch" |
| 277 | (org-export-as-docbook 'hidden)) | 277 | (org-export-as-docbook)) |
| 278 | 278 | ||
| 279 | ;;;###autoload | 279 | ;;;###autoload |
| 280 | (defun org-export-as-docbook-to-buffer () | 280 | (defun org-export-as-docbook-to-buffer () |
| 281 | "Call `org-export-as-docbook' with output to a temporary buffer. | 281 | "Call `org-export-as-docbook' with output to a temporary buffer. |
| 282 | No file is created." | 282 | No file is created." |
| 283 | (interactive) | 283 | (interactive) |
| 284 | (org-export-as-docbook nil nil "*Org DocBook Export*") | 284 | (org-export-as-docbook nil "*Org DocBook Export*") |
| 285 | (when org-export-show-temporary-export-buffer | 285 | (when org-export-show-temporary-export-buffer |
| 286 | (switch-to-buffer-other-window "*Org DocBook Export*"))) | 286 | (switch-to-buffer-other-window "*Org DocBook Export*"))) |
| 287 | 287 | ||
| @@ -334,17 +334,14 @@ in a window. A non-interactive call will only return the buffer." | |||
| 334 | (goto-char end) | 334 | (goto-char end) |
| 335 | (set-mark (point)) ;; To activate the region | 335 | (set-mark (point)) ;; To activate the region |
| 336 | (goto-char beg) | 336 | (goto-char beg) |
| 337 | (setq rtn (org-export-as-docbook | 337 | (setq rtn (org-export-as-docbook nil buffer body-only)) |
| 338 | nil nil | ||
| 339 | buffer body-only)) | ||
| 340 | (if (fboundp 'deactivate-mark) (deactivate-mark)) | 338 | (if (fboundp 'deactivate-mark) (deactivate-mark)) |
| 341 | (if (and (org-called-interactively-p 'any) (bufferp rtn)) | 339 | (if (and (org-called-interactively-p 'any) (bufferp rtn)) |
| 342 | (switch-to-buffer-other-window rtn) | 340 | (switch-to-buffer-other-window rtn) |
| 343 | rtn))) | 341 | rtn))) |
| 344 | 342 | ||
| 345 | ;;;###autoload | 343 | ;;;###autoload |
| 346 | (defun org-export-as-docbook-pdf (&optional hidden ext-plist | 344 | (defun org-export-as-docbook-pdf (&optional ext-plist to-buffer body-only pub-dir) |
| 347 | to-buffer body-only pub-dir) | ||
| 348 | "Export as DocBook XML file, and generate PDF file." | 345 | "Export as DocBook XML file, and generate PDF file." |
| 349 | (interactive "P") | 346 | (interactive "P") |
| 350 | (if (or (not org-export-docbook-xslt-proc-command) | 347 | (if (or (not org-export-docbook-xslt-proc-command) |
| @@ -360,8 +357,7 @@ in a window. A non-interactive call will only return the buffer." | |||
| 360 | (org-combine-plists (org-default-export-plist) | 357 | (org-combine-plists (org-default-export-plist) |
| 361 | ext-plist | 358 | ext-plist |
| 362 | (org-infile-export-plist)))) | 359 | (org-infile-export-plist)))) |
| 363 | (docbook-buf (org-export-as-docbook hidden ext-plist | 360 | (docbook-buf (org-export-as-docbook ext-plist to-buffer body-only pub-dir)) |
| 364 | to-buffer body-only pub-dir)) | ||
| 365 | (filename (buffer-file-name docbook-buf)) | 361 | (filename (buffer-file-name docbook-buf)) |
| 366 | (base (file-name-sans-extension filename)) | 362 | (base (file-name-sans-extension filename)) |
| 367 | (fofile (concat base ".fo")) | 363 | (fofile (concat base ".fo")) |
| @@ -398,8 +394,7 @@ in a window. A non-interactive call will only return the buffer." | |||
| 398 | (defvar org-heading-keyword-regexp-format) ; defined in org.el | 394 | (defvar org-heading-keyword-regexp-format) ; defined in org.el |
| 399 | 395 | ||
| 400 | ;;;###autoload | 396 | ;;;###autoload |
| 401 | (defun org-export-as-docbook (&optional hidden ext-plist | 397 | (defun org-export-as-docbook (&optional ext-plist to-buffer body-only pub-dir) |
| 402 | to-buffer body-only pub-dir) | ||
| 403 | "Export the current buffer as a DocBook file. | 398 | "Export the current buffer as a DocBook file. |
| 404 | If there is an active region, export only the region. When | 399 | If there is an active region, export only the region. When |
| 405 | HIDDEN is obsolete and does nothing. EXT-PLIST is a | 400 | HIDDEN is obsolete and does nothing. EXT-PLIST is a |