102 |
(if (<= (point) (overlay-start overlay)) |
(if (<= (point) (overlay-start overlay)) |
103 |
;; Just get OVERLAY out of the way |
;; Just get OVERLAY out of the way |
104 |
(move-overlay overlay 1 1) |
(move-overlay overlay 1 1) |
105 |
;; Make overlay contain only the region |
;; Make overlay contain only the region |
106 |
(move-overlay overlay (overlay-start overlay) (point)))))) |
(move-overlay overlay (overlay-start overlay) (point)))))) |
107 |
|
|
108 |
(defun refill-fill-paragraph-at (pos &optional arg) |
(defun refill-fill-paragraph-at (pos &optional arg) |