emacs/lisp/longlines.el

54 (defcustom longlines-wrap-follows-window-size nil
55   "Non-nil means wrapping and filling happen at the edge of the window.
56 Otherwise, `fill-column' is used, regardless of the window size.  This
57 does not work well when the buffer is displayed in multiple windows
83 (make-variable-buffer-local 'longlines-wrap-beg)
84 (make-variable-buffer-local 'longlines-wrap-end)
85 (make-variable-buffer-local 'longlines-wrap-point)
86 (make-variable-buffer-local 'longlines-showing)
98 wrapped whenever the buffer is changed.  You can always call
108         (set (make-local-variable 'require-final-newline) nil)
109         (add-to-list 'buffer-file-format 'longlines)
112         (make-local-variable 'buffer-substring-filters)
113 	(set (make-local-variable 'isearch-search-fun-function)
115         (add-to-list 'buffer-substring-filters 'longlines-encode-string)
116         (when longlines-wrap-follows-window-size
117           (set (make-local-variable 'fill-column)
118                (- (window-width) window-min-width))
119           (add-hook 'window-configuration-change-hook
120                     'longlines-window-change-function nil t))
121         (let ((buffer-undo-list t)
124               (mod (buffer-modified-p)))
130 	    (longlines-decode-buffer)
132           (set-buffer-modified-p mod))
139 	       (add-hook 'mail-setup-hook 'longlines-decode-buffer nil t)
144 	       (add-hook 'message-setup-hook 'longlines-decode-buffer nil t)
159     (setq buffer-file-format (delete 'longlines buffer-file-format))
162     (let ((buffer-undo-list t)
172     (remove-hook 'window-configuration-change-hook
173                  'longlines-window-change-function t)
174     (when longlines-wrap-follows-window-size
178     (kill-local-variable 'buffer-substring-filters)
187 ;; Showing the effect of hard newlines in the buffer
193   (let ((buffer-undo-list t)
194         (mod (buffer-modified-p)))
199     (set-buffer-modified-p mod)))
226 end of the buffer."
242   (if (longlines-set-breakpoint)
251      ;; successive soft newlines in the buffer.  In this case, we
269 (defun longlines-set-breakpoint ()
333 	(set-hard-newline-properties
336 (defun longlines-decode-buffer ()
337   "Turn all newlines in the buffer into hard newlines."
340 (defun longlines-encode-region (beg end &optional buffer)
346 	  (mod (buffer-modified-p)))
351       (set-buffer-modified-p mod)
368   "Turn on automatic line wrapping, and wrap the entire buffer.
381     (let ((mod (buffer-modified-p)))
383       (set-buffer-modified-p mod))
397   "Perform line wrapping on the parts of the buffer that have changed.
411 (defun longlines-window-change-function ()
412   "Re-wrap the buffer if the window width has changed.
413 This is called by `window-configuration-change-hook'."
414   (when (/= fill-column (- (window-width) window-min-width))
415     (setq fill-column (- (window-width) window-min-width))
416     (let ((mod (buffer-modified-p)))
418       (set-buffer-modified-p mod))))