diff options
| author | Stefan Monnier | 2004-04-04 20:18:44 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-04-04 20:18:44 +0000 |
| commit | 8b44bc06654a63aa661c837c29b6ea261b35a156 (patch) | |
| tree | 426f71fcc372814eb19838e96112dc35274a3087 | |
| parent | c536bb39440c6e7e05fb40792f92997556f138c6 (diff) | |
| download | emacs-8b44bc06654a63aa661c837c29b6ea261b35a156.tar.gz emacs-8b44bc06654a63aa661c837c29b6ea261b35a156.zip | |
(fill-comment-paragraph): Obey indent-tabs-mode.
| -rw-r--r-- | lisp/textmodes/fill.el | 10 |
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 |