39 |
|
|
40 |
;;; Code: |
;;; Code: |
41 |
|
|
|
(require 'easy-mmode) |
|
|
|
|
42 |
(defgroup longlines nil |
(defgroup longlines nil |
43 |
"Automatic wrapping of long lines when loading files." |
"Automatic wrapping of long lines when loading files." |
44 |
:group 'fill) |
:group 'fill) |
155 |
|
|
156 |
(defface longlines-visible-face |
(defface longlines-visible-face |
157 |
'((t (:background "red"))) |
'((t (:background "red"))) |
158 |
"Face used to make hard newlines visible in `longlines-mode'.") |
"Face used to make hard newlines visible in `longlines-mode'." |
159 |
|
:group 'longlines) |
160 |
|
|
161 |
(defun longlines-show-hard-newlines (&optional arg) |
(defun longlines-show-hard-newlines (&optional arg) |
162 |
"Make hard newlines visible by adding a face. |
"Make hard newlines visible by adding a face. |