aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiles Bader2000-11-22 11:34:05 +0000
committerMiles Bader2000-11-22 11:34:05 +0000
commitd9fdcdb568ce7f44e75f513aad09de42e0338189 (patch)
treedd4ea504cec65e4ef9f82a7a5822d1b794091f85
parente43cfb397b5d4da7bc58410a5a6d69642cc3cab5 (diff)
downloademacs-d9fdcdb568ce7f44e75f513aad09de42e0338189.tar.gz
emacs-d9fdcdb568ce7f44e75f513aad09de42e0338189.zip
(refill-adjust-ignorable-overlay, refill-fill-paragraph-at):
Remove debugging code.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/textmodes/refill.el2
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 @@
12000-11-22 Miles Bader <miles@gnu.org> 12000-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)