Merge branch 'master' of orgmode.org:org-mode

This commit is contained in:
Bastien Guerry 2014-01-10 21:01:44 +01:00
commit 8abdb06274
3 changed files with 25 additions and 38 deletions

View File

@ -371,11 +371,6 @@ Visibility cycling
* Initial visibility:: Setting the initial visibility state * Initial visibility:: Setting the initial visibility state
* Catching invisible edits:: Preventing mistakes when editing invisible parts * Catching invisible edits:: Preventing mistakes when editing invisible parts
Global and local cycling
* Initial visibility:: Setting the initial visibility state
* Catching invisible edits:: Preventing mistakes when editing invisible parts
Tables Tables
* Built-in table editor:: Simple tables * Built-in table editor:: Simple tables
@ -1315,11 +1310,6 @@ the previously used indirect buffer.
Copy the @i{visible} text in the region into the kill ring. Copy the @i{visible} text in the region into the kill ring.
@end table @end table
@menu
* Initial visibility:: Setting the initial visibility state
* Catching invisible edits:: Preventing mistakes when editing invisible parts
@end menu
@node Initial visibility @node Initial visibility
@subsection Initial visibility @subsection Initial visibility

View File

@ -7970,14 +7970,10 @@ The level is the number of stars at the beginning of the headline."
"Return the outline depth of the last headline before the current line. "Return the outline depth of the last headline before the current line.
Returns 0 for the first headline in the buffer, and nil if before the Returns 0 for the first headline in the buffer, and nil if before the
first headline." first headline."
(let ((current-level (org-current-level)) (and (org-current-level)
(prev-level (when (> (line-number-at-pos) 1) (or (and (/= (line-beginning-position) (point-min))
(save-excursion (save-excursion (beginning-of-line 0) (org-current-level)))
(beginning-of-line 0) 0)))
(org-current-level)))))
(cond ((null current-level) nil) ; Before first headline
((null prev-level) 0) ; At first headline
(prev-level))))
(defun org-reduced-level (l) (defun org-reduced-level (l)
"Compute the effective level of a heading. "Compute the effective level of a heading.

View File

@ -650,8 +650,8 @@ The function result will be used in the section format string."
(defcustom org-html-allow-name-attribute-in-anchors nil (defcustom org-html-allow-name-attribute-in-anchors nil
"When nil, do not set \"name\" attribute in anchors. "When nil, do not set \"name\" attribute in anchors.
By default, anchors are formatted with both \"id\" and \"name\" By default, when appropriate, anchors are formatted with \"id\"
attributes, when appropriate." but without \"name\" attribute."
:group 'org-export-html :group 'org-export-html
:version "24.4" :version "24.4"
:package-version '(Org . "8.0") :package-version '(Org . "8.0")
@ -988,25 +988,27 @@ org-info.js for your website."
(trans . "<input type='checkbox' />")))) (trans . "<input type='checkbox' />"))))
"Alist of checkbox types. "Alist of checkbox types.
The cdr of each entry is an alist list three checkbox types for The cdr of each entry is an alist list three checkbox types for
html export: \"on\", \"off\" and \"trans\". HTML export: `on', `off' and `trans'.
The choices are: The choices are:
- unicode characters (html entities) `unicode' Unicode characters (HTML entities)
- ascii characters `ascii' ASCII characters
- html checkboxes `html' HTML checkboxes
Note that only the ascii characters implement tri-state
checkboxes. The other two use the \"off\" checkbox for \"trans\".")
(defcustom org-html-checkbox-type "ascii" Note that only the ascii characters implement tri-state
"The type of checkboxes to use for html export. See checkboxes. The other two use the `off' checkbox for `trans'.")
`org-html-checkbox-types' for for the values used for each option."
(defcustom org-html-checkbox-type 'ascii
"The type of checkboxes to use for HTML export.
See `org-html-checkbox-types' for for the values used for each
option."
:group 'org-export-html :group 'org-export-html
:version "24.4" :version "24.4"
:package-version '(Org . "8.0") :package-version '(Org . "8.0")
:type '(choice :type '(choice
(const :tag "ASCII characters" "ascii") (const :tag "ASCII characters" ascii)
(const :tag "Unicode characters" "unicode") (const :tag "Unicode characters" unicode)
(const :tag "HTML checkboxes" "html"))) (const :tag "HTML checkboxes" html)))
(defcustom org-html-metadata-timestamp-format "%Y-%m-%d %a %H:%M" (defcustom org-html-metadata-timestamp-format "%Y-%m-%d %a %H:%M"
"Format used for timestamps in preamble, postamble and metadata. "Format used for timestamps in preamble, postamble and metadata.
@ -2451,12 +2453,11 @@ contextual information."
;;;; Item ;;;; Item
(defun org-html-checkbox (checkbox info) (defun org-html-checkbox (checkbox info)
"Format CHECKBOX into HTML. INFO is a plist holding contextual "Format CHECKBOX into HTML.
information. INFO is a plist holding contextual information. See
See `org-html-checkbox-type' for customization options." `org-html-checkbox-type' for customization options."
(cdr (assoc checkbox (cdr (assq checkbox
(cdr (assoc (intern org-html-checkbox-type) (cdr (assq org-html-checkbox-type org-html-checkbox-types)))))
org-html-checkbox-types)))))
(defun org-html-format-list-item (contents type checkbox info (defun org-html-format-list-item (contents type checkbox info
&optional term-counter-id &optional term-counter-id