procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cvs-temp-buffer): Undo last ill-conceived change.

Browse source 
Replace it with another one which disables undo before calling
erase-buffer and then turns it back on if needed.
This commit is contained in:
Stefan Monnier 2007-07-25 04:50:33 +00:00
parent b4aa60262c
commit 405b871790
2 changed files with 18 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2007-07-25 Stefan Monnier <monnier@iro.umontreal.ca>
* pcvs.el (cvs-temp-buffer): Undo last ill-conceived change.
Replace it with another one which disables undo before calling
erase-buffer and then turns it back on if needed.
2007-07-24 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-print.el: Problem with foreground and background color when
@ -12,14 +18,13 @@
2007-07-24 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-revision-completion-table): Temporarily comment
out.
* vc-hg.el (vc-hg-revision-completion-table): Temporarily comment out.
2007-07-24 Alan Mackenzie <acm@muc.de>
* emacs-lisp/bytecomp.el (byte-compile-from-buffer): initialise
byte-compile-unresolved-functions before rather than after a
compilation.
* emacs-lisp/bytecomp.el (byte-compile-from-buffer):
Initialise byte-compile-unresolved-functions before rather than
after a compilation.
(byte-compile-unresolved-functions): Amplify doc string.
2007-07-24 Glenn Morris <rgm@gnu.org>

13
lisp/pcvs.el
View file

@ -392,17 +392,20 @@ from the current buffer."
(with-current-buffer buf
(setq buffer-read-only nil)
(setq default-directory dir)
(unless nosetup (erase-buffer))
(unless nosetup
;; Disable undo before calling erase-buffer since it may generate
;; a very large and unwanted undo record.
(buffer-disable-undo)
(erase-buffer))
(set (make-local-variable 'cvs-buffer) cvs-buf)
;;(cvs-minor-mode 1)
(let ((lbd list-buffers-directory))
(if (fboundp mode) (funcall mode)
(fundamental-mode)
(buffer-disable-undo))
(if (fboundp mode) (funcall mode) (fundamental-mode))
(when lbd (set (make-local-variable 'list-buffers-directory) lbd)))
(cvs-minor-mode 1)
;;(set (make-local-variable 'cvs-buffer) cvs-buf)
(unless normal
(if normal
(buffer-enable-undo)
(setq buffer-read-only t)
(buffer-disable-undo))
buf)))