Re: FW: default buffer-enable-undo

[Richard Stallman]

With this patch, do you get good results?

*** mule.el     08 Jul 2006 16:59:45 -0400      1.244
--- mule.el     24 Sep 2006 20:28:24 -0400      
***************
*** 1864,1870 ****
              (let ((pos-marker (copy-marker (+ (point) inserted)))
                    ;; Prevent locking.
                    (buffer-file-name nil))
!               (set-buffer-multibyte nil)
                (setq inserted (- pos-marker (point)))))
          (set-buffer-modified-p modified-p))))
    inserted)
--- 1864,1876 ----
              (let ((pos-marker (copy-marker (+ (point) inserted)))
                    ;; Prevent locking.
                    (buffer-file-name nil))
!               (if visit
!                   ;; If we're doing this for find-file,
!                   ;; don't record undo info; this counts as
!                   ;; part of producing the buffer's initial contents.
!                   (let ((buffer-undo-list t))
!                     (set-buffer-multibyte nil))
!                 (set-buffer-multibyte nil))
                (setq inserted (- pos-marker (point)))))
          (set-buffer-modified-p modified-p))))
    inserted)