Commit 405b8717 authored by Stefan Monnier's avatar Stefan Monnier

(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.
parent b4aa6026
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> 2007-07-24 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-print.el: Problem with foreground and background color when * ps-print.el: Problem with foreground and background color when
...@@ -12,14 +18,13 @@ ...@@ -12,14 +18,13 @@
2007-07-24 Dan Nicolaescu <dann@ics.uci.edu> 2007-07-24 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-revision-completion-table): Temporarily comment * vc-hg.el (vc-hg-revision-completion-table): Temporarily comment out.
out.
2007-07-24 Alan Mackenzie <acm@muc.de> 2007-07-24 Alan Mackenzie <acm@muc.de>
* emacs-lisp/bytecomp.el (byte-compile-from-buffer): initialise * emacs-lisp/bytecomp.el (byte-compile-from-buffer):
byte-compile-unresolved-functions before rather than after a Initialise byte-compile-unresolved-functions before rather than
compilation. after a compilation.
(byte-compile-unresolved-functions): Amplify doc string. (byte-compile-unresolved-functions): Amplify doc string.
2007-07-24 Glenn Morris <rgm@gnu.org> 2007-07-24 Glenn Morris <rgm@gnu.org>
...@@ -392,17 +392,20 @@ from the current buffer." ...@@ -392,17 +392,20 @@ from the current buffer."
(with-current-buffer buf (with-current-buffer buf
(setq buffer-read-only nil) (setq buffer-read-only nil)
(setq default-directory dir) (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) (set (make-local-variable 'cvs-buffer) cvs-buf)
;;(cvs-minor-mode 1) ;;(cvs-minor-mode 1)
(let ((lbd list-buffers-directory)) (let ((lbd list-buffers-directory))
(if (fboundp mode) (funcall mode) (if (fboundp mode) (funcall mode) (fundamental-mode))
(fundamental-mode)
(buffer-disable-undo))
(when lbd (set (make-local-variable 'list-buffers-directory) lbd))) (when lbd (set (make-local-variable 'list-buffers-directory) lbd)))
(cvs-minor-mode 1) (cvs-minor-mode 1)
;;(set (make-local-variable 'cvs-buffer) cvs-buf) ;;(set (make-local-variable 'cvs-buffer) cvs-buf)
(unless normal (if normal
(buffer-enable-undo)
(setq buffer-read-only t) (setq buffer-read-only t)
(buffer-disable-undo)) (buffer-disable-undo))
buf))) buf)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment