Commit 4382021f authored by Miles Bader's avatar Miles Bader
Browse files

Merge from emacs--rel--22

Patches applied:

 * emacs--rel--22  (patch 70-73)

   - Update from CVS

2007-07-25  Glenn Morris  <>

   * Relicense all FSF files to GPLv3 or later.

2007-07-25  Stefan Monnier  <>

   * lisp/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  Stefan Monnier  <>

   * lisp/pcvs.el (cvs-temp-buffer): Disable undo in temp buffers.

parents 212b2681 ef2805c2
......@@ -19,7 +19,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
......@@ -392,7 +392,11 @@ 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.
(set (make-local-variable 'cvs-buffer) cvs-buf)
;;(cvs-minor-mode 1)
(let ((lbd list-buffers-directory))
......@@ -400,7 +404,8 @@ from the current buffer."
(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
(setq buffer-read-only t)
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