diff options
| author | Chong Yidong | 2005-11-18 19:42:08 +0000 |
|---|---|---|
| committer | Chong Yidong | 2005-11-18 19:42:08 +0000 |
| commit | 426f85733656758ca7d3aa7a95af74501cbc489f (patch) | |
| tree | db6f6b59e4ff9704a26b66ebf808324283bc5fa3 | |
| parent | 0f157ad54951893cb525dd3753ff7b6c3a72e74a (diff) | |
| download | emacs-426f85733656758ca7d3aa7a95af74501cbc489f.tar.gz emacs-426f85733656758ca7d3aa7a95af74501cbc489f.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/longlines.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/longlines.el b/lisp/longlines.el index ec912c5c880..b168db3b6dd 100644 --- a/lisp/longlines.el +++ b/lisp/longlines.el | |||
| @@ -132,12 +132,6 @@ are indicated with a symbol." | |||
| 132 | (when (and longlines-show-hard-newlines | 132 | (when (and longlines-show-hard-newlines |
| 133 | (not longlines-showing)) | 133 | (not longlines-showing)) |
| 134 | (longlines-show-hard-newlines)) | 134 | (longlines-show-hard-newlines)) |
| 135 | (when longlines-auto-wrap | ||
| 136 | (auto-fill-mode 0) | ||
| 137 | (add-hook 'after-change-functions | ||
| 138 | 'longlines-after-change-function nil t) | ||
| 139 | (add-hook 'post-command-hook | ||
| 140 | 'longlines-post-command-function nil t)) | ||
| 141 | 135 | ||
| 142 | ;; Hacks to make longlines play nice with various modes. | 136 | ;; Hacks to make longlines play nice with various modes. |
| 143 | (cond ((eq major-mode 'mail-mode) | 137 | (cond ((eq major-mode 'mail-mode) |
| @@ -151,7 +145,13 @@ are indicated with a symbol." | |||
| 151 | (list message-indent-citation-function))) | 145 | (list message-indent-citation-function))) |
| 152 | (add-to-list 'message-indent-citation-function | 146 | (add-to-list 'message-indent-citation-function |
| 153 | 'longlines-decode-region t))) | 147 | 'longlines-decode-region t))) |
| 154 | ) | 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 | 155 | ;; Turn off longlines mode |
| 156 | (setq buffer-file-format (delete 'longlines buffer-file-format)) | 156 | (setq buffer-file-format (delete 'longlines buffer-file-format)) |
| 157 | (if longlines-showing | 157 | (if longlines-showing |