/[emacs]/emacs/lisp/longlines.el
ViewVC logotype

Diff of /emacs/lisp/longlines.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by cyd, Fri Nov 18 19:40:35 2005 UTC revision 1.16 by cyd, Fri Nov 18 19:42:08 2005 UTC
# Line 132  are indicated with a symbol." Line 132  are indicated with a symbol."
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)
# Line 151  are indicated with a symbol." Line 145  are indicated with a symbol."
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

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26