;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\315%\210\306\321\310\311\322DD\323\314\315%\210\306\324\310\311\325DD\326\314\327%\207" [custom-declare-group longlines nil "Automatic wrapping of long lines when loading files." :group fill custom-declare-variable longlines-auto-wrap funcall function #[0 "\300\207" [t] 1 #1=""] "Non-nil means long lines are automatically wrapped after each command.\nOtherwise, you can perform filling using `fill-paragraph' or\n`auto-fill-mode'.  In any case, the soft newlines will be removed\nwhen the file is saved to disk." :type boolean longlines-wrap-follows-window-size #[0 "\300\207" [nil] 1 #1#] "Non-nil means wrapping and filling happen at the edge of the window.\nOtherwise, `fill-column' is used, regardless of the window size.  This\ndoes not work well when the buffer is displayed in multiple windows\nwith differing widths.\n\nIf the value is an integer, that specifies the distance from the\nright edge of the window at which wrapping occurs.  For any other\nnon-nil value, wrapping occurs 2 characters from the right edge." longlines-show-hard-newlines #[0 "\300\207" [nil] 1 #1#] "Non-nil means each hard newline is marked on the screen.\n(The variable `longlines-show-effect' controls what they look like.)\nYou can also enable the display temporarily, using the command\n`longlines-show-hard-newlines'." longlines-show-effect #[0 "\300\301\302\303#\207" [propertize "¶\n" face escape-glyph] 4 #1#] "A string to display when showing hard newlines.\nThis is used when `longlines-show-hard-newlines' is on." string] 6)
(defvar longlines-wrap-beg nil)
(defvar longlines-wrap-end nil)
(defvar longlines-wrap-point nil)
(defvar longlines-showing nil)
(defvar longlines-decoded nil)
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [make-variable-buffer-local longlines-wrap-beg longlines-wrap-end longlines-wrap-point longlines-showing longlines-decoded] 2)
#@97 Non-nil if Longlines mode is enabled.
Use the command `longlines-mode' to change this variable.
(defvar longlines-mode nil (#$ . 2086))
(make-variable-buffer-local 'longlines-mode)
#@1075 Toggle Long Lines mode in this buffer.

This is a minor mode.  If called interactively, toggle the `Longlines
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `longlines-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

When Long Lines mode is enabled, long lines are wrapped if they
extend beyond `fill-column'.  The soft newlines used for line
wrapping will not show up when the text is yanked or saved to
disk.

If the variable `longlines-auto-wrap' is non-nil, lines are
automatically wrapped whenever the buffer is changed.  You can
always call `fill-paragraph' to fill individual paragraphs.

If the variable `longlines-show-hard-newlines' is non-nil, hard
newlines are indicated with a symbol.

(fn &optional ARG)
(defalias 'longlines-mode #[256 "\306 
\307=\203
?\202
\247\203
\310W\203\311\202\312\313\301!\2031\314\300	\"\2031\300	B\203;
\315\310\316\"\210\317\302!\210\311\320\321\322\"\210\323\324\325\311\312$\210\323\326\327\311\312$\210\317\330!\210\317\331!\210\317\303!\210\332\317\304!\210\333\317\305!\210\334\320\330\335\"\210@\203\244@\250\203\221@\336Y\203\221@\337 W\203\221@\202\222\340\317\341!\210\337 
Z!\210\323\342\343\311\312$\210\312\211\211\344 \311\211AB
CDE\214~\210F\204\306\345 \210\312F\346ed\"\210)\347
!\210-\266(\203\340G\204\340\350 \210H\351\267\202!
\323\352\345\311\312$\210+\204\372\323\353\354\311\312$\210\323\353\355\311\312$\210\202!
\323\356\345\311\312$\210\317\357!\210/<\204
/C/\323\357\355\312\211$\210\323\360\361\311\312$\210\323\362\363\311\312$\210\203\252
\364\336!\210\202\252
\365\322\"G\203J
\366 \210\312\211\211\311\211ABDCEF\203j
\214~\210\367ed\"\210\311F)-\370\324\325\312#\210\370\360\361\312#\210\370\362\363\312#\210\370\326\327\312#\210\370\342\343\312#\210@\203\222
\371\341!\210\371\303!\210\371\304!\210\371\305!\210\371\302!\210\371\330!\210\371\315!\210\372\373\203\264
\374\202\265
\375\"\210\376\377!\203\341
\306 \203\311
\211\306 \232\203\341
\201I\201J\203\331
\201K\202\334
\201L\201M#\210\210\201N \210\207" [longlines-mode local-minor-modes require-final-newline isearch-search-fun-function replace-search-function replace-re-search-function current-message toggle 1 nil t boundp delq use-hard-newlines never make-local-variable add-to-list buffer-file-format longlines add-hook change-major-mode-hook longlines-mode-off before-revert-hook longlines-before-revert-hook buffer-substring-filters longlines-auto-wrap longlines-search-function longlines-search-forward longlines-re-search-forward longlines-encode-string 0 window-width 2 fill-column window-configuration-change-hook longlines-window-change-function buffer-modified-p longlines-decode-buffer longlines-wrap-region set-buffer-modified-p longlines-show-hard-newlines #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (mail-mode 231 message-mode 260)) mail-setup-hook mail-citation-hook mail-indent-citation longlines-decode-region message-setup-hook message-indent-citation-function after-change-functions longlines-after-change-function post-command-hook longlines-post-command-function auto-fill-mode delete longlines-unshow-hard-newlines longlines-encode-region remove-hook kill-local-variable run-hooks longlines-mode-hook longlines-mode-on-hook longlines-mode-off-hook called-interactively-p any longlines-wrap-follows-window-size buffer-file-truename buffer-file-name inhibit-modification-hooks inhibit-read-only buffer-undo-list longlines-decoded longlines-showing major-mode message "Longlines mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 9 (#$ . 2275) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar longlines-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [longlines-mode-map longlines-mode-hook variable-documentation put "Hook run after entering or leaving `longlines-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode longlines-mode " ll" boundp] 6)
#@117 Turn off longlines mode.
This function exists to be called by `change-major-mode-hook' when the
major mode changes.
(defalias 'longlines-mode-off #[0 "\300\301!\207" [longlines-mode 0] 2 (#$ . 6877)])
#@134 Make hard newlines visible by adding a face.
With optional argument ARG, make the hard newlines invisible again.

(fn &optional ARG)
(defalias 'longlines-show-hard-newlines #[256 "\211\203\301 \207\302\303ed\"\207" [longlines-showing longlines-unshow-hard-newlines t longlines-show-region] 4 (#$ . 7085) "P"])
#@63 Make hard newlines between BEG and END visible.

(fn BEG END)
(defalias 'longlines-show-region #[514 "

^]\306\307\310$\311 \312\211\312\310\211
\2032\313\211T\314\315
!$\210\306T\307\310$\262\202\316
!-\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks buffer-file-name buffer-file-truename longlines-show-effect text-property-not-all hard nil buffer-modified-p t put-text-property display copy-sequence restore-buffer-modified-p] 13 (#$ . 7404)])
#@37 Make hard newlines invisible again.
(defalias 'longlines-unshow-hard-newlines #[0 "\306\307ed\310\306$\311 \312\211\211\306\211
\203+\313\211T\314#\210\307Td\310\306$\262\202\315
!-\207" [longlines-showing buffer-file-truename buffer-file-name inhibit-modification-hooks inhibit-read-only buffer-undo-list nil text-property-not-all hard buffer-modified-p t remove-text-properties (display nil) restore-buffer-modified-p] 7 (#$ . 7893) nil])
#@164 Wrap each successive line, starting with the line before BEG.
Stop when we reach lines after END that don't need wrapping, or the
end of the buffer.

(fn BEG END)
(defalias 'longlines-wrap-region #[514 "\301 `b\210\302y\210\303 \203\nm\204`Y\203\n\303 \203\nb\210\304
!\207" [longlines-wrap-point buffer-modified-p -1 longlines-wrap-line set-buffer-modified-p] 5 (#$ . 8353)])
#@203 If the current line needs to be wrapped, wrap it and return nil.
If wrapping is performed, point remains on the line.  If the line does
not need to be wrapped, move point to the next line and return t.
(defalias 'longlines-wrap-line #[0 "\301 \203\302\303!\210\304u\210\305\304!\210\306u\210\307\207\310 \203H\307\210n\306u\210\204(l\2038\305\304!\210`V\203FS\202F\302\311!\210\304u\210\305\304!\210\306u\210\307\207\306y\210\312\207" [longlines-wrap-point longlines-set-breakpoint insert-before-markers-and-inherit 10 -1 delete-char 1 nil longlines-merge-lines-p 32 t] 2 (#$ . 8746)])
#@140 Place point where we should break the current line, and return t.
If the line should not be broken, return nil; point remains on the
line.
(defalias 'longlines-set-breakpoint #[0 "\301!\210\302\303\304 \305#\205iV\205\306 \206\301!\210\307 \207" [fill-column move-to-column re-search-forward "[^ ]" line-end-position 1 longlines-find-break-backward longlines-find-break-forward] 4 (#$ . 9350)])
#@108 Move point backward to the first available breakpoint and return t.
If no breakpoint is found, return nil.
(defalias 'longlines-find-break-backward #[0 "\301\302\303 \304#\205+\212\302\303 x\210n)?\205+\304u\210\203*\305\300!\203*\302\303 x\210\306 \207\307\207" [fill-nobreak-predicate search-backward " " line-beginning-position 1 run-hook-with-args-until-success longlines-find-break-backward t] 4 (#$ . 9761)])
#@108 Move point forward to the first available breakpoint and return t.
If no break point is found, return nil.
(defalias 'longlines-find-break-forward #[0 "\301\302\303 \304#\205!\302\303 w\210l?\205!\203 \305\300!\203 \306 \207\307\207" [fill-nobreak-predicate search-forward " " line-end-position 1 run-hook-with-args-until-success longlines-find-break-forward t] 4 (#$ . 10188)])
#@133 Return t if part of the next line can fit onto the current line.
Otherwise, return nil.  Text cannot be moved across hard newlines.
(defalias 'longlines-merge-lines-p #[0 "\212\301\210m?\2055\302`\303\"?\2055iZ\304y\210\301f\305=\203\"\306\2023\307\310\311 \304#\203/i\2021iT
X\262
)\207" [fill-column nil get-text-property hard 1 32 t search-forward " " line-end-position] 5 (#$ . 10579)])
#@136 Turn all newlines between BEG and END into hard newlines.
If BEG and END are nil, the point and mark are used.

(fn &optional BEG END)
(defalias 'longlines-decode-region #[512 "
\204`\262\211\204\300\301!\262
\212

]^b\210\302\303\301#\205+\304\305\224\305\225\"\210\202\262
)\207" [mark t search-forward "\n" set-hard-newline-properties 0] 7 (#$ . 10985)])
#@53 Turn all newlines in the buffer into hard newlines.
(defalias 'longlines-decode-buffer #[0 "\300ed\"\207" [longlines-decode-region] 3 (#$ . 11360)])
#@225 Replace each soft newline between BEG and END with exactly one space.
Hard newlines are left intact.  The optional argument BUFFER exists for
compatibility with `format-alist', and is ignored.

(fn BEG END &optional BUFFER)
(defalias 'longlines-encode-region #[770 "\212]\300 ^b\210\301\302\303#\2034\304\224\305
\306\"\2040\211Tb\210\307\310!\210\211
T|\210\311
\211T\312#\210\210\202\313
!\210\266\202)\207" [buffer-modified-p search-forward "\n" t 0 get-text-property hard insert-and-inherit " " remove-text-properties (hard nil) set-buffer-modified-p] 10 (#$ . 11516)])
#@113 Return a copy of STRING with each soft newline replaced by a space.
Hard newlines are left intact.

(fn STRING)
(defalias 'longlines-encode-string #[257 "\300
!\301\302\"\211\203#\303
\304#\204

\305I\210\301\302T#\262
\202
\207" [copy-sequence string-search "\n" get-text-property hard 32] 7 (#$ . 12107)])
#@200 Toggle automatic line wrapping.
With optional argument ARG, turn on line wrapping if and only if
ARG is positive.
If automatic line wrapping is turned on, wrap the entire buffer.

(fn &optional ARG)
(defalias 'longlines-auto-wrap #[256 "\211\203\f\301
!\302V\202?\262
\211\203\303\304ed\"\210\305\306!\207\307\305\310!\207" [longlines-auto-wrap prefix-numeric-value 0 t longlines-wrap-region message "Auto wrap enabled." nil "Auto wrap disabled."] 4 (#$ . 12431) "P"])
#@162 Update `longlines-wrap-beg' and `longlines-wrap-end'.
This is called by `after-change-functions' to keep track of the region
that has changed.

(fn BEG END LEN)
(defalias 'longlines-after-change-function #[771 "\205\"	?\205\"\n\203\n^\202\203]\202 
\211\207" [longlines-auto-wrap undo-in-progress longlines-wrap-beg longlines-wrap-end] 5 (#$ . 12915)])
#@127 Perform line wrapping on the parts of the buffer that have changed.
This is called by `post-command-hook' after each command.
(defalias 'longlines-post-command-function #[0 "\205:	\205:\n\305=\204\n\306=\203\307`\310\311!\"\210\203$\312	\f\"\210\n\313=\2045\n\314=\2045\315	\f\"\210\316\211\211\207" [longlines-auto-wrap longlines-wrap-beg this-command longlines-showing longlines-wrap-end yank yank-pop longlines-decode-region mark t longlines-show-region fill-paragraph fill-region longlines-wrap-region nil] 5 (#$ . 13292)])
#@107 Re-wrap the buffer if the window width has changed.
This is called by `window-configuration-change-hook'.
(defalias 'longlines-window-change-function #[0 "\250\203\302Y\203\303 W\203\202\304	\303 ZU?\205*\303 
Z\305ed\"\207" [longlines-wrap-follows-window-size fill-column 0 window-width 2 longlines-wrap-region] 4 (#$ . 13840)])
(defalias 'longlines-search-function #[0 "\204	\203\303 \207\n\203\304\207\305\207" [isearch-regexp-function isearch-regexp isearch-forward isearch-search-fun-default longlines-search-forward longlines-search-backward] 1])
#@45 

(fn STRING &optional BOUND NOERROR COUNT)
(defalias 'longlines-search-forward #[1025 "\301\302\303!$)\207" [search-spaces-regexp " *[ \n]" re-search-forward regexp-quote] 9 (#$ . 14421)])
#@45 

(fn STRING &optional BOUND NOERROR COUNT)
(defalias 'longlines-search-backward #[1025 "\301\302\303!$)\207" [search-spaces-regexp " *[ \n]" re-search-backward regexp-quote] 9 (#$ . 14622)])
#@45 

(fn STRING &optional BOUND NOERROR COUNT)
(defalias 'longlines-re-search-forward #[1025 "\301\302$)\207" [search-spaces-regexp " *[ \n]" re-search-forward] 9 (#$ . 14825)])
(defalias 'longlines-before-revert-hook #[0 "\300\301\302\303\304$\210\305\306!\207" [add-hook after-revert-hook longlines-after-revert-hook nil t longlines-mode 0] 5])
(defalias 'longlines-after-revert-hook #[0 "\300\301\302\303#\210\304\305!\207" [remove-hook after-revert-hook longlines-after-revert-hook t longlines-mode 1] 4])
(byte-code "\300\301\302\303\304\211\305\306\304\257\"\207" [add-to-list format-alist longlines "Automatically wrap long lines." nil longlines-encode-region t] 9)
#@31 Unload the longlines library.
(defalias 'longlines-unload-function #[0 "r\300 \211\203\211@\211q\210\301 \210
A\266\202\202\210)\302\207" [buffer-list longlines-mode-off nil] 3 (#$ . 15507)])
(provide 'longlines)