Commit 2a88ee23 authored by Bastien Guerry's avatar Bastien Guerry
Browse files

Merge Org 7.8.11 -- important bug fixes.

parent 2f9b9adb
......@@ -4,8 +4,8 @@
@setfilename ../../info/org
@settitle The Org Manual
@set VERSION 7.8.10
@set DATE May 2012
@set VERSION 7.8.11
@set DATE mai 2012
@c Use proper quote and backtick for code sections in PDF output
@c Cf. Texinfo manual 14.2
File suppressed by a .gitattributes entry or the file's encoding is unsupported.
% Reference Card for Org Mode
\def\versionyear{2012} % latest update
\def\year{2012} % latest copyright year
2012-05-25 Jambunathan K <>
* org-odt.el (org-odt-init-outfile)
(org-odt-write-manifest-file): Disable
2012-05-25 Bastien Guerry <>
* org.el (org-scan-tags): Fix bug when building the scanner
2012-05-25 Eric Schulte <>
* ob.el (org-babel-capitalize-examplize-region-markers): Controls
the capitalization of begin and end example blocks.
(org-babel-examplize-region): Optionally capitalize example block
2012-05-25 Eric Schulte <>
* ob-plantuml.el (org-babel-execute:plantuml): Adding a :java
header argument to plantuml.
2012-05-25 Eric Schulte <>
* org-exp-blocks.el (org-export-blocks-preprocess): Even when the
body of a block is not indented the boundary markers should be
indented to their original positions so things like list
indentation still work.
2012-05-16 Eric Schulte <>
* ob.el (org-babel-parse-src-block-match): Save match data during
......@@ -55,9 +55,10 @@ This function is called by `org-babel-execute-src-block'."
(error "plantuml requires a \":file\" header argument")))
(cmdline (cdr (assoc :cmdline params)))
(in-file (org-babel-temp-file "plantuml-"))
(java (or (cdr (assoc :java params)) ""))
(cmd (if (not org-plantuml-jar-path)
(error "`org-plantuml-jar-path' is not set")
(concat "java -jar "
(concat "java " java " -jar "
(expand-file-name org-plantuml-jar-path))
(if (string= (file-name-extension out-file) "svg")
......@@ -1958,11 +1958,16 @@ file's directory then expand relative links."
(stringp (car result)) (stringp (cadr result)))
(format "[[file:%s][%s]]" (car result) (cadr result))))))
(defvar org-babel-capitalize-examplize-region-markers nil
"Make true to capitalize begin/end example markers inserted by code blocks.")
(defun org-babel-examplize-region (beg end &optional results-switches)
"Comment out region using the inline '==' or ': ' org example quote."
(interactive "*r")
(flet ((chars-between (b e)
(not (string-match "^[\\s]*$" (buffer-substring b e)))))
(not (string-match "^[\\s]*$" (buffer-substring b e))))
(maybe-cap (str) (if org-babel-capitalize-examplize-region-markers
(upcase str) str)))
(if (or (chars-between (save-excursion (goto-char beg) (point-at-bol)) beg)
(chars-between end (save-excursion (goto-char end) (point-at-eol))))
......@@ -1979,10 +1984,12 @@ file's directory then expand relative links."
(goto-char beg)
(insert (if results-switches
(format "#+begin_example%s\n" results-switches)
(format "%s%s\n"
(maybe-cap "#+begin_example")
(maybe-cap "#+begin_example\n")))
(if (markerp end) (goto-char end) (forward-char (- end beg)))
(insert "#+end_example\n"))))))))
(insert (maybe-cap "#+end_example\n")))))))))
(defun org-babel-update-block-body (new-body)
"Update the body of the current code block to NEW-BODY."
......@@ -211,7 +211,13 @@ which defaults to the value of `org-export-blocks-witheld'."
(when replacement
(delete-region match-start match-end)
(goto-char match-start) (insert replacement)
(unless preserve-indent
(if preserve-indent
;; indent only the code block markers
(indent-line-to indentation) ; indent end_block
(goto-char match-start)
(indent-line-to indentation)) ; indent begin_block
;; indent everything
(indent-code-rigidly match-start (point) indentation)))))
;; cleanup markers
(set-marker match-start nil)
......@@ -1111,9 +1111,6 @@ version."
(unless body-only
(org-lparse-end 'DOCUMENT-CONTENT))
(unless (plist-get opt-plist :buffer-will-be-killed)
(set-auto-mode t))
(org-lparse-end 'EXPORT)
;; kill collection buffer
......@@ -2211,7 +2211,9 @@ captions on export.")
(content-file (expand-file-name "content.xml" outdir)))
;; init conten.xml
(with-current-buffer (find-file-noselect content-file t))
(let ((nxml-auto-insert-xml-declaration-flag nil))
(find-file-noselect content-file t)))
;; reset variables
(setq org-odt-manifest-file-entries nil
......@@ -2320,7 +2322,8 @@ visually."
(make-directory "META-INF")
(let ((manifest-file (expand-file-name "META-INF/manifest.xml")))
(find-file-noselect manifest-file t)
(let ((nxml-auto-insert-xml-declaration-flag nil))
(find-file-noselect manifest-file t))
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<manifest:manifest xmlns:manifest=\"urn:oasis:names:tc:opendocument:xmlns:manifest:1.0\" manifest:version=\"1.2\">\n")
......@@ -6,7 +6,7 @@
;; Maintainer: Bastien Guerry <bzg at gnu dot org>
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage:
;; Version: 7.8.10
;; Version: 7.8.11
;; This file is part of GNU Emacs.
......@@ -206,7 +206,7 @@ identifier."
;;; Version
(defconst org-version "7.8.10"
(defconst org-version "7.8.11"
"The version number of the file org.el.")
......@@ -12828,10 +12828,7 @@ headlines matching this string."
" *\\(\\<\\("
(mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
(if todo-only
"\\>\\)\\)[ \t]+\\(.*?\\)\\(:[[:alnum:]_@#%:]+:\\)?[ \t]*$"
"\\>\\)\\)? *\\([^ ].*?\\)\\(:[[:alnum:]_@#%:]+:\\)?[ \t]*$"))))
(org-re "\\)\\>\\)? *\\(.*?\\)\\(:[[:alnum:]_@#%:]+:\\)?[ \t]*$")))
(props (list 'face 'default
'done-face 'org-agenda-done
'undone-face 'default
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment