calculation of outline-level adapted to special case of oldschool elips

headings (;;;+).
13 years ago · 93f4ccbba1
parent ca329278dc
commit 93f4ccbba1
1 changed files with 13 additions and 5 deletions
--- a/outshine.el
+++ b/outshine.el
@ -506,11 +506,19 @@ Based on `comment-start' and `comment-add'."
      (and
       (looking-at (outshine-calc-outline-regexp))
       (let ((m-strg (match-string-no-properties 0)))
-         (setq m-strg
-               (split-string
-                m-strg
-                (format "%s" outshine-normalized-comment-start)
-                'OMIT-NULLS))
+         (if outshine-enforce-no-comment-padding-p
+             ;; deal with oldschool elisp headings (;;;+)
+             (setq m-strg
+                   (split-string
+                    (substring m-strg 2)
+                    nil
+                    'OMIT-NULLS))
+           ;; orgmode style elisp heading (;; *+)
+           (setq m-strg
+                 (split-string
+                  m-strg
+                  (format "%s" outshine-normalized-comment-start))
+                 'OMIT-NULLS))
         (length
          (mapconcat
           (lambda (str)