*** longlines.el.~1.41.~	Fri Nov 30 10:00:46 2007
--- longlines.el	Tue Jan 15 18:29:16 2008
***************
*** 136,142 ****
          (let ((buffer-undo-list t)
                (inhibit-read-only t)
  	      (after-change-functions nil)
!               (mod (buffer-modified-p)))
            ;; Turning off undo is OK since (spaces + newlines) is
            ;; conserved, except for a corner case in
            ;; longlines-wrap-lines that we'll never encounter from here
--- 136,143 ----
          (let ((buffer-undo-list t)
                (inhibit-read-only t)
  	      (after-change-functions nil)
!               (mod (buffer-modified-p))
! 	      buffer-file-name buffer-file-truename)
            ;; Turning off undo is OK since (spaces + newlines) is
            ;; conserved, except for a corner case in
            ;; longlines-wrap-lines that we'll never encounter from here
***************
*** 176,182 ****
          (longlines-unshow-hard-newlines))
      (let ((buffer-undo-list t)
  	  (after-change-functions nil)
!           (inhibit-read-only t))
        (if longlines-decoded
  	  (save-restriction
  	    (widen)
--- 177,184 ----
          (longlines-unshow-hard-newlines))
      (let ((buffer-undo-list t)
  	  (after-change-functions nil)
!           (inhibit-read-only t)
! 	  buffer-file-name buffer-file-truename)
        (if longlines-decoded
  	  (save-restriction
  	    (widen)
***************
*** 220,226 ****
  	 (mod (buffer-modified-p))
  	 (buffer-undo-list t)
  	 (inhibit-read-only t)
! 	 (inhibit-modification-hooks t))
      (while pos
        (put-text-property pos (1+ pos) 'display
  			 (copy-sequence longlines-show-effect))
--- 222,229 ----
  	 (mod (buffer-modified-p))
  	 (buffer-undo-list t)
  	 (inhibit-read-only t)
! 	 (inhibit-modification-hooks t)
! 	 buffer-file-name buffer-file-truename)
      (while pos
        (put-text-property pos (1+ pos) 'display
  			 (copy-sequence longlines-show-effect))
***************
*** 235,241 ****
  	(mod (buffer-modified-p))
  	(buffer-undo-list t)
  	(inhibit-read-only t)
! 	(inhibit-modification-hooks t))
      (while pos
        (remove-text-properties pos (1+ pos) '(display))
        (setq pos (text-property-not-all (1+ pos) (point-max) 'hard nil)))
--- 238,245 ----
  	(mod (buffer-modified-p))
  	(buffer-undo-list t)
  	(inhibit-read-only t)
! 	(inhibit-modification-hooks t)
! 	buffer-file-name buffer-file-truename)
      (while pos
        (remove-text-properties pos (1+ pos) '(display))
        (setq pos (text-property-not-all (1+ pos) (point-max) 'hard nil)))