|
|
|
|
@ -523,19 +523,6 @@ recover it by stripping off \"-map\" from KEYMAP name." |
|
|
|
|
|
|
|
|
|
;; *** Calculate outline-regexp and outline-level |
|
|
|
|
|
|
|
|
|
;; ;; dealing with special case of oldschool headers in elisp (;;;+) |
|
|
|
|
;; (defun outshine-orgmode-header-style-in-elisp-p (&optional buffer) |
|
|
|
|
;; "Return nil, if there is no match for a Org-mode style header. |
|
|
|
|
;; Searches in BUFFER if given, otherwise in current buffer." |
|
|
|
|
;; (let ((buf (or buffer (current-buffer)))) |
|
|
|
|
;; (with-current-buffer buf |
|
|
|
|
;; (save-excursion |
|
|
|
|
;; (goto-char (point-min)) |
|
|
|
|
;; (re-search-forward |
|
|
|
|
;; "^;; [*]+ " |
|
|
|
|
;; nil 'NOERROR))))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; dealing with special case of oldschool headers in elisp (;;;+) |
|
|
|
|
(defun outshine-outshine-header-style-in-elisp-p (&optional buffer) |
|
|
|
|
"Return nil, if there is no match for a outshine-style header. |
|
|
|
|
|