diff options
| author | Miles Bader | 2000-11-22 11:34:05 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-11-22 11:34:05 +0000 |
| commit | d9fdcdb568ce7f44e75f513aad09de42e0338189 (patch) | |
| tree | dd4ea504cec65e4ef9f82a7a5822d1b794091f85 | |
| parent | e43cfb397b5d4da7bc58410a5a6d69642cc3cab5 (diff) | |
| download | emacs-d9fdcdb568ce7f44e75f513aad09de42e0338189.tar.gz emacs-d9fdcdb568ce7f44e75f513aad09de42e0338189.zip | |
(refill-adjust-ignorable-overlay, refill-fill-paragraph-at):
Remove debugging code.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/textmodes/refill.el | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 124647122c3..e07a418c0db 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2000-11-22 Miles Bader <miles@gnu.org> | 1 | 2000-11-22 Miles Bader <miles@gnu.org> |
| 2 | 2 | ||
| 3 | * textmodes/refill.el (refill-adjust-ignorable-overlay) | ||
| 4 | (refill-fill-paragraph-at): Remove debugging code. | ||
| 5 | |||
| 3 | * calendar/calendar.el (generate-calendar-window): When we don't | 6 | * calendar/calendar.el (generate-calendar-window): When we don't |
| 4 | call `fit-window-to-buffer', make sure the top line is fully visible. | 7 | call `fit-window-to-buffer', make sure the top line is fully visible. |
| 5 | 8 | ||
diff --git a/lisp/textmodes/refill.el b/lisp/textmodes/refill.el index 0e15d38ccea..43842744673 100644 --- a/lisp/textmodes/refill.el +++ b/lisp/textmodes/refill.el | |||
| @@ -64,7 +64,6 @@ This is used to optimize refilling.") | |||
| 64 | (defun refill-adjust-ignorable-overlay (overlay afterp beg end &optional len) | 64 | (defun refill-adjust-ignorable-overlay (overlay afterp beg end &optional len) |
| 65 | "Adjust OVERLAY to not include the about-to-be-modified region." | 65 | "Adjust OVERLAY to not include the about-to-be-modified region." |
| 66 | (when (not afterp) | 66 | (when (not afterp) |
| 67 | (message "adjust: %s-%s" beg end) | ||
| 68 | (save-excursion | 67 | (save-excursion |
| 69 | (goto-char beg) | 68 | (goto-char beg) |
| 70 | (forward-line -1) | 69 | (forward-line -1) |
| @@ -99,7 +98,6 @@ This is used to optimize refilling.") | |||
| 99 | fill-prefix)) | 98 | fill-prefix)) |
| 100 | ;; Turn off adaptive-fill-mode temporarily | 99 | ;; Turn off adaptive-fill-mode temporarily |
| 101 | (adaptive-fill-mode nil)) | 100 | (adaptive-fill-mode nil)) |
| 102 | (message "refill-at %s: %s-%s" pos oend end) | ||
| 103 | (save-restriction | 101 | (save-restriction |
| 104 | (if use-hard-newlines | 102 | (if use-hard-newlines |
| 105 | (fill-region oend end arg) | 103 | (fill-region oend end arg) |