/[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.9 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.10 by cyd, Thu Sep 1 16:17:10 2005 UTC
# Line 116  are indicated with a symbol." Line 116  are indicated with a symbol."
116            (add-hook 'window-configuration-change-hook            (add-hook 'window-configuration-change-hook
117                      'longlines-window-change-function nil t))                      'longlines-window-change-function nil t))
118          (let ((buffer-undo-list t)          (let ((buffer-undo-list t)
119                  (inhibit-read-only t)
120                (mod (buffer-modified-p)))                (mod (buffer-modified-p)))
121            ;; Turning off undo is OK since (spaces + newlines) is            ;; Turning off undo is OK since (spaces + newlines) is
122            ;; conserved, except for a corner case in            ;; conserved, except for a corner case in
# Line 136  are indicated with a symbol." Line 137  are indicated with a symbol."
137      (setq buffer-file-format (delete 'longlines buffer-file-format))      (setq buffer-file-format (delete 'longlines buffer-file-format))
138      (if longlines-showing      (if longlines-showing
139          (longlines-unshow-hard-newlines))          (longlines-unshow-hard-newlines))
140      (let ((buffer-undo-list t))      (let ((buffer-undo-list t)
141              (inhibit-read-only t))
142        (longlines-encode-region (point-min) (point-max)))        (longlines-encode-region (point-min) (point-max)))
143      (remove-hook 'change-major-mode-hook 'longlines-mode-off t)      (remove-hook 'change-major-mode-hook 'longlines-mode-off t)
144      (remove-hook 'before-kill-functions 'longlines-encode-region t)      (remove-hook 'before-kill-functions 'longlines-encode-region t)
# Line 144  are indicated with a symbol." Line 146  are indicated with a symbol."
146      (remove-hook 'post-command-hook 'longlines-post-command-function t)      (remove-hook 'post-command-hook 'longlines-post-command-function t)
147      (remove-hook 'window-configuration-change-hook      (remove-hook 'window-configuration-change-hook
148                   'longlines-window-change-function t)                   'longlines-window-change-function t)
149      (kill-local-variable 'fill-column)))      (when longlines-wrap-follows-window-size
150          (kill-local-variable 'fill-column))
151        (kill-local-variable 'require-final-newline)
152        (kill-local-variable 'buffer-substring-filters)
153        (kill-local-variable 'use-hard-newlines)))
154    
155  (defun longlines-mode-off ()  (defun longlines-mode-off ()
156    "Turn off longlines mode.    "Turn off longlines mode.

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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