tm 4.8.4.

[elisp/tm.git] / tl-str.el

diff --git a/tl-str.el b/tl-str.el
index 5dce601..55ed49c 100644 (file)
--- a/tl-str.el
+++ b/tl-str.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tl-str.el,v 1.3 1994/08/31 06:54:15 morioka Exp $
+;;; $Id: tl-str.el,v 1.4 1994/09/01 06:02:25 morioka Exp morioka $
 ;;;
 
 (provide 'tl-str)
@@ -16,7 +16,7 @@
       (narrow-to-region beg end)
       (goto-char (point-min))
       (let* ((fill-prefix
-             (and (re-search-forward "^[^ \t>]*[>|]+[ \t]*" nil t)
+             (and (re-search-forward "^[^ \t>]*[>|]+[ \t#]*" nil t)
                   (buffer-substring (match-beginning 0)
                                     (match-end 0)
                                     )))