# HG changeset patch # User Chong Yidong # Date 1130376991 0 # Node ID 9a896c723ab2be7196184d5dbe6c5071eaf6a624 # Parent 7e8b1219a7db7e659e395f606378b11929c382c5 * longlines.el (longlines-mode): Bind after-change-functions to nil during initial decoding and final encoding. diff -r 7e8b1219a7db -r 9a896c723ab2 lisp/ChangeLog --- a/lisp/ChangeLog Thu Oct 27 00:45:44 2005 +0000 +++ b/lisp/ChangeLog Thu Oct 27 01:36:31 2005 +0000 @@ -1,3 +1,8 @@ +2005-10-26 Chong Yidong + + * longlines.el (longlines-mode): Bind after-change-functions to + nil during initial decoding and final encoding. + 2005-10-26 Dan Nicolaescu * term.el (term-emulate-terminal, term-handle-colors-array) diff -r 7e8b1219a7db -r 9a896c723ab2 lisp/longlines.el --- a/lisp/longlines.el Thu Oct 27 00:45:44 2005 +0000 +++ b/lisp/longlines.el Thu Oct 27 01:36:31 2005 +0000 @@ -6,7 +6,7 @@ ;; Alex Schroeder ;; Chong Yidong ;; Maintainer: Chong Yidong -;; Keywords: convenience +;; Keywords: convenience, wp ;; This file is part of GNU Emacs. @@ -119,6 +119,7 @@ 'longlines-window-change-function nil t)) (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 @@ -142,6 +143,7 @@ (if longlines-showing (longlines-unshow-hard-newlines)) (let ((buffer-undo-list t) + (after-change-functions nil) (inhibit-read-only t)) (save-restriction (widen)