mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

* longlines.el (longlines-mode): Remove narrowing before

Browse source 
performing the initial decoding or final encoding.
This commit is contained in:
Chong Yidong 2005-10-25 23:24:47 +00:00
parent de66e883e0
commit e7b382ed4b
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

8
lisp/longlines.el
View file

@ -123,7 +123,9 @@ are indicated with a symbol."
;; 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 @@ are indicated with a symbol."
(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)