Przeglądaj źródła

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

Bastien Guerry 12 lat temu
rodzic
commit
8abdb06274
3 zmienionych plików z 24 dodań i 37 usunięć
  1. 0 10
      doc/org.texi
  2. 4 8
      lisp/org.el
  3. 20 19
      lisp/ox-html.el

+ 0 - 10
doc/org.texi

@@ -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
 
 

+ 4 - 8
lisp/org.el

@@ -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))
-	(prev-level (when (> (line-number-at-pos) 1)
-		      (save-excursion
-			(beginning-of-line 0)
-			(org-current-level)))))
-    (cond ((null current-level) nil) ; Before first headline
-	  ((null prev-level) 0)      ; At first headline
-	  (prev-level))))
+  (and (org-current-level)
+       (or (and (/= (line-beginning-position) (point-min))
+		(save-excursion (beginning-of-line 0) (org-current-level)))
+	   0)))
 
 
 (defun org-reduced-level (l)
 (defun org-reduced-level (l)
   "Compute the effective level of a heading.
   "Compute the effective level of a heading.

+ 20 - 19
lisp/ox-html.el

@@ -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\"
-attributes, when appropriate."
+By default, when appropriate, anchors are formatted with \"id\"
+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)
-  - ascii characters
-  - html checkboxes
+  `unicode' Unicode characters (HTML entities)
+  `ascii'   ASCII characters
+  `html'    HTML checkboxes
+
 Note that only the ascii characters implement tri-state
 Note that only the ascii characters implement tri-state
-checkboxes. The other two use the \"off\" checkbox for \"trans\".")
+checkboxes. The other two use the `off' checkbox for `trans'.")
 
 
-(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."
+(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 "Unicode characters" "unicode")
-	  (const :tag "HTML checkboxes" "html")))
+	  (const :tag "ASCII characters" ascii)
+	  (const :tag "Unicode characters" unicode)
+	  (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
-information.
-See `org-html-checkbox-type' for customization options."
-  (cdr (assoc checkbox
-	      (cdr (assoc (intern org-html-checkbox-type)
-			  org-html-checkbox-types)))))
+  "Format CHECKBOX into HTML.
+INFO is a plist holding contextual information.  See
+`org-html-checkbox-type' for customization options."
+  (cdr (assq checkbox
+	     (cdr (assq org-html-checkbox-type 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