Ignore header line at fill-paragraph (#162)

* Ignore header line at fill-paragraph * Add test of #159 about fill-paragraph with header
defunkt · Aug 29, 2016 · c063c1f · c063c1f
1 parent 62d5b27
commit c063c1f
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/markdown-mode.el b/markdown-mode.el
@@ -6745,6 +6745,7 @@ or \\[markdown-toggle-inline-images]."
                 ; options really only handle paragraph-starting prefixes,
                 ; not paragraph-ending suffixes:
                 ".*  $" ; line ending in two spaces
+                "^#+"
                 "[ \t]*\\[\\^\\S-*\\]:[ \t]*$") ; just the start of a footnote def
               "\\|"))
   (set (make-local-variable 'adaptive-fill-first-line-regexp)

diff --git a/tests/markdown-test.el b/tests/markdown-test.el
@@ -3595,6 +3595,16 @@ Detail: https://github.com/jrblevin/markdown-mode/issues/79"
       (back-to-indentation)
       (should-not (looking-at-p "\\*foo")))))
 
+(ert-deftest test-markdown-filling/ignore-header ()
+  "# Test fill-paragraph for containing header line paragraph.
+https://github.com/jrblevin/markdown-mode/issues/159"
+  (markdown-test-string "# this is header line
+this is not header line
+"
+    (let ((fill-column 10))
+      (fill-paragraph)
+      (should (string= (buffer-substring (point) (line-end-position)) "# this is header line")))))
+
 ;;; Export tests:
 
 (ert-deftest test-markdown-hook/xhtml-standalone ()