[Emacs-diffs] Changes to emacs/lisp/longlines.el

[Chong Yidong]

Index: emacs/lisp/longlines.el
diff -c emacs/lisp/longlines.el:1.9 emacs/lisp/longlines.el:1.10
*** emacs/lisp/longlines.el:1.9 Sat Aug  6 22:13:43 2005
--- emacs/lisp/longlines.el     Thu Sep  1 16:17:10 2005
***************
*** 116,121 ****
--- 116,122 ----
            (add-hook 'window-configuration-change-hook
                      'longlines-window-change-function nil t))
          (let ((buffer-undo-list t)
+               (inhibit-read-only t)
                (mod (buffer-modified-p)))
            ;; Turning off undo is OK since (spaces + newlines) is
            ;; conserved, except for a corner case in
***************
*** 136,142 ****
      (setq buffer-file-format (delete 'longlines buffer-file-format))
      (if longlines-showing
          (longlines-unshow-hard-newlines))
!     (let ((buffer-undo-list t))
        (longlines-encode-region (point-min) (point-max)))
      (remove-hook 'change-major-mode-hook 'longlines-mode-off t)
      (remove-hook 'before-kill-functions 'longlines-encode-region t)
--- 137,144 ----
      (setq buffer-file-format (delete 'longlines buffer-file-format))
      (if longlines-showing
          (longlines-unshow-hard-newlines))
!     (let ((buffer-undo-list t)
!           (inhibit-read-only t))
        (longlines-encode-region (point-min) (point-max)))
      (remove-hook 'change-major-mode-hook 'longlines-mode-off t)
      (remove-hook 'before-kill-functions 'longlines-encode-region t)
***************
*** 144,150 ****
      (remove-hook 'post-command-hook 'longlines-post-command-function t)
      (remove-hook 'window-configuration-change-hook
                   'longlines-window-change-function t)
!     (kill-local-variable 'fill-column)))
  
  (defun longlines-mode-off ()
    "Turn off longlines mode.
--- 146,156 ----
      (remove-hook 'post-command-hook 'longlines-post-command-function t)
      (remove-hook 'window-configuration-change-hook
                   'longlines-window-change-function t)
!     (when longlines-wrap-follows-window-size
!       (kill-local-variable 'fill-column))
!     (kill-local-variable 'require-final-newline)
!     (kill-local-variable 'buffer-substring-filters)
!     (kill-local-variable 'use-hard-newlines)))
  
  (defun longlines-mode-off ()
    "Turn off longlines mode.