summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-02 00:32:35 +0100
committerBastien Guerry <bzg@altern.org>2013-01-02 00:32:35 +0100
commit6272ff2d18c6ce973159830c136b8f5f015c45c8 (patch)
tree11cc393f2d846d2ebdc1b6343dc2ac8add2fd6e4
parenta9ece57df80ecf3172a1145284b899dbce56bded (diff)
downloadorg-mode-6272ff2d18c6ce973159830c136b8f5f015c45c8.tar.gz
Fix number of arguments for org-export-as-org/docbook
* org-exp.el (org-export-as-org): Remove useless argument. * org-docbook.el (org-export-as-docbook-batch) (org-export-region-as-docbook, org-export-as-docbook-pdf): Fix the number of arguments. (org-export-as-docbook): Remove useless argument. Thanks to George McNinch for reporting this.
-rw-r--r--lisp/org-docbook.el17
-rw-r--r--lisp/org-exp.el3
2 files changed, 7 insertions, 13 deletions
diff --git a/lisp/org-docbook.el b/lisp/org-docbook.el
index 78d383f..1d75370 100644
--- a/lisp/org-docbook.el
+++ b/lisp/org-docbook.el
@@ -274,14 +274,14 @@ For example:
$ emacs --batch
--load=$HOME/lib/emacs/org.el
--visit=MyOrgFile.org --funcall org-export-as-docbook-batch"
- (org-export-as-docbook 'hidden))
+ (org-export-as-docbook))
;;;###autoload
(defun org-export-as-docbook-to-buffer ()
"Call `org-export-as-docbook' with output to a temporary buffer.
No file is created."
(interactive)
- (org-export-as-docbook nil nil "*Org DocBook Export*")
+ (org-export-as-docbook nil "*Org DocBook Export*")
(when org-export-show-temporary-export-buffer
(switch-to-buffer-other-window "*Org DocBook Export*")))
@@ -334,17 +334,14 @@ in a window. A non-interactive call will only return the buffer."
(goto-char end)
(set-mark (point)) ;; To activate the region
(goto-char beg)
- (setq rtn (org-export-as-docbook
- nil nil
- buffer body-only))
+ (setq rtn (org-export-as-docbook nil buffer body-only))
(if (fboundp 'deactivate-mark) (deactivate-mark))
(if (and (org-called-interactively-p 'any) (bufferp rtn))
(switch-to-buffer-other-window rtn)
rtn)))
;;;###autoload
-(defun org-export-as-docbook-pdf (&optional hidden ext-plist
- to-buffer body-only pub-dir)
+(defun org-export-as-docbook-pdf (&optional ext-plist to-buffer body-only pub-dir)
"Export as DocBook XML file, and generate PDF file."
(interactive "P")
(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."
(org-combine-plists (org-default-export-plist)
ext-plist
(org-infile-export-plist))))
- (docbook-buf (org-export-as-docbook hidden ext-plist
- to-buffer body-only pub-dir))
+ (docbook-buf (org-export-as-docbook ext-plist to-buffer body-only pub-dir))
(filename (buffer-file-name docbook-buf))
(base (file-name-sans-extension filename))
(fofile (concat base ".fo"))
@@ -398,8 +394,7 @@ in a window. A non-interactive call will only return the buffer."
(defvar org-heading-keyword-regexp-format) ; defined in org.el
;;;###autoload
-(defun org-export-as-docbook (&optional hidden ext-plist
- to-buffer body-only pub-dir)
+(defun org-export-as-docbook (&optional ext-plist to-buffer body-only pub-dir)
"Export the current buffer as a DocBook file.
If there is an active region, export only the region. When
HIDDEN is obsolete and does nothing. EXT-PLIST is a
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 51c34fd..82b9003 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -3051,8 +3051,7 @@ to the value of `temporary-file-directory'."
(delete-file tmp-file))))
;;;###autoload
-(defun org-export-as-org (arg &optional hidden ext-plist
- to-buffer body-only pub-dir)
+(defun org-export-as-org (arg &optional ext-plist to-buffer body-only pub-dir)
"Make a copy with not-exporting stuff removed.
The purpose of this function is to provide a way to export the source
Org file of a webpage in Org format, but with sensitive and/or irrelevant