From a145b41c6b74f8528d51aa923a9d752549cf5066 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 27 Oct 2005 01:36:31 +0000 Subject: [PATCH] * longlines.el (longlines-mode): Bind after-change-functions to nil during initial decoding and final encoding. --- lisp/ChangeLog | 5 +++++ lisp/longlines.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0df2b8dd7b2..376823dc7a8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/longlines.el b/lisp/longlines.el index 7f372725b0e..4ee85d646e5 100644 --- a/lisp/longlines.el +++ b/lisp/longlines.el @@ -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 @@ are indicated with a symbol." '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 @@ are indicated with a symbol." (if longlines-showing (longlines-unshow-hard-newlines)) (let ((buffer-undo-list t) + (after-change-functions nil) (inhibit-read-only t)) (save-restriction (widen) -- 2.39.5