Mercurial > emacs
comparison lisp/longlines.el @ 62801:cbda14f6fb9b
Don't require easy-mmode.
(longlines-visible-face): Specify customization group.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Fri, 27 May 2005 11:36:51 +0000 |
| parents | 78b96a3ee117 |
| children | f855a20b356c |
comparison
equal
deleted
inserted
replaced
| 62800:47eb71e6fd77 | 62801:cbda14f6fb9b |
|---|---|
| 36 ;; automatically as editing takes place. | 36 ;; automatically as editing takes place. |
| 37 | 37 |
| 38 ;; Special thanks to Rod Smith for many useful bug reports. | 38 ;; Special thanks to Rod Smith for many useful bug reports. |
| 39 | 39 |
| 40 ;;; Code: | 40 ;;; Code: |
| 41 | |
| 42 (require 'easy-mmode) | |
| 43 | 41 |
| 44 (defgroup longlines nil | 42 (defgroup longlines nil |
| 45 "Automatic wrapping of long lines when loading files." | 43 "Automatic wrapping of long lines when loading files." |
| 46 :group 'fill) | 44 :group 'fill) |
| 47 | 45 |
| 155 | 153 |
| 156 ;; Showing the effect of hard newlines in the buffer | 154 ;; Showing the effect of hard newlines in the buffer |
| 157 | 155 |
| 158 (defface longlines-visible-face | 156 (defface longlines-visible-face |
| 159 '((t (:background "red"))) | 157 '((t (:background "red"))) |
| 160 "Face used to make hard newlines visible in `longlines-mode'.") | 158 "Face used to make hard newlines visible in `longlines-mode'." |
| 159 :group 'longlines) | |
| 161 | 160 |
| 162 (defun longlines-show-hard-newlines (&optional arg) | 161 (defun longlines-show-hard-newlines (&optional arg) |
| 163 "Make hard newlines visible by adding a face. | 162 "Make hard newlines visible by adding a face. |
| 164 With optional argument ARG, make the hard newlines invisible again." | 163 With optional argument ARG, make the hard newlines invisible again." |
| 165 (interactive "P") | 164 (interactive "P") |