132 |
(when (and longlines-show-hard-newlines |
(when (and longlines-show-hard-newlines |
133 |
(not longlines-showing)) |
(not longlines-showing)) |
134 |
(longlines-show-hard-newlines)) |
(longlines-show-hard-newlines)) |
|
(when longlines-auto-wrap |
|
|
(auto-fill-mode 0) |
|
|
(add-hook 'after-change-functions |
|
|
'longlines-after-change-function nil t) |
|
|
(add-hook 'post-command-hook |
|
|
'longlines-post-command-function nil t)) |
|
135 |
|
|
136 |
;; Hacks to make longlines play nice with various modes. |
;; Hacks to make longlines play nice with various modes. |
137 |
(cond ((eq major-mode 'mail-mode) |
(cond ((eq major-mode 'mail-mode) |
145 |
(list message-indent-citation-function))) |
(list message-indent-citation-function))) |
146 |
(add-to-list 'message-indent-citation-function |
(add-to-list 'message-indent-citation-function |
147 |
'longlines-decode-region t))) |
'longlines-decode-region t))) |
148 |
) |
|
149 |
|
(when longlines-auto-wrap |
150 |
|
(auto-fill-mode 0) |
151 |
|
(add-hook 'after-change-functions |
152 |
|
'longlines-after-change-function nil t) |
153 |
|
(add-hook 'post-command-hook |
154 |
|
'longlines-post-command-function nil t))) |
155 |
;; Turn off longlines mode |
;; Turn off longlines mode |
156 |
(setq buffer-file-format (delete 'longlines buffer-file-format)) |
(setq buffer-file-format (delete 'longlines buffer-file-format)) |
157 |
(if longlines-showing |
(if longlines-showing |