Mercurial > emacs
changeset 66453:ce840b1d13ad
* longlines.el (longlines-mode): Remove narrowing before
performing the initial decoding or final encoding.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 25 Oct 2005 23:24:47 +0000 |
| parents | 50f2dd53cf9a |
| children | 9082bf778ad8 |
| files | lisp/ChangeLog lisp/longlines.el |
| diffstat | 2 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Oct 25 21:28:54 2005 +0000 +++ b/lisp/ChangeLog Tue Oct 25 23:24:47 2005 +0000 @@ -1,3 +1,8 @@ +2005-10-25 Chong Yidong <cyd@stupidchicken.com> + + * longlines.el (longlines-mode): Remove narrowing before + performing the initial decoding or final encoding. + 2005-10-25 Romain Francoise <romain@orebokech.com> * emacs-lisp/find-func.el (find-library-name): Also strip
--- a/lisp/longlines.el Tue Oct 25 21:28:54 2005 +0000 +++ b/lisp/longlines.el Tue Oct 25 23:24:47 2005 +0000 @@ -123,7 +123,9 @@ ;; 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 - (longlines-decode-region (point-min) (point-max)) + (save-restriction + (widen) + (longlines-decode-region (point-min) (point-max))) (longlines-wrap-region (point-min) (point-max)) (set-buffer-modified-p mod)) (when (and longlines-show-hard-newlines @@ -141,7 +143,9 @@ (longlines-unshow-hard-newlines)) (let ((buffer-undo-list t) (inhibit-read-only t)) - (longlines-encode-region (point-min) (point-max))) + (save-restriction + (widen) + (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) (remove-hook 'after-change-functions 'longlines-after-change-function t)