aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2004-04-04 20:18:44 +0000
committerStefan Monnier2004-04-04 20:18:44 +0000
commit8b44bc06654a63aa661c837c29b6ea261b35a156 (patch)
tree426f71fcc372814eb19838e96112dc35274a3087
parentc536bb39440c6e7e05fb40792f92997556f138c6 (diff)
downloademacs-8b44bc06654a63aa661c837c29b6ea261b35a156.tar.gz
emacs-8b44bc06654a63aa661c837c29b6ea261b35a156.zip
(fill-comment-paragraph): Obey indent-tabs-mode.
-rw-r--r--lisp/textmodes/fill.el10
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 2ac09f11256..aaa10fbce5f 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -811,9 +811,13 @@ can take care of filling. JUSTIFY is used as in `fill-paragraph'."
811 (save-excursion 811 (save-excursion
812 (goto-char comstart) 812 (goto-char comstart)
813 (if has-code-and-comment 813 (if has-code-and-comment
814 (concat (make-string (/ (current-column) tab-width) ?\t) 814 (concat
815 (make-string (% (current-column) tab-width) ?\ ) 815 (if (not indent-tabs-mode)
816 (buffer-substring (point) comin)) 816 (make-string (current-column) ?\ )
817 (concat
818 (make-string (/ (current-column) tab-width) ?\t)
819 (make-string (% (current-column) tab-width) ?\ )))
820 (buffer-substring (point) comin))
817 (buffer-substring (line-beginning-position) comin)))) 821 (buffer-substring (line-beginning-position) comin))))
818 beg end) 822 beg end)
819 (save-excursion 823 (save-excursion