* lisp/eshell/esh-io.el (eshell-get-target): Better detection of read-only file ...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2450f22ea645e5848dda97a12ad2b578c8220d9..2b196d22c72f8d80cade3efb13ec6ea06f4b0094 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-30  Leo  <sdl.web@gmail.com>
+
+       * eshell/esh-io.el (eshell-get-target): Better detection of
+       read-only file (Bug#6762).
+
 2010-07-30  Juanma Barranquero  <lekktu@gmail.com>
 
        * align.el (align-default-spacing): Doc fix.

diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el
index 1bcfe2b46e79277716cba02404feffdcdbeeb3ae..3aa785c7c1ba5da681c5e20f720392e239dc9b16 100644 (file)
--- a/lisp/eshell/esh-io.el
+++ b/lisp/eshell/esh-io.el
@@ -343,8 +343,9 @@ it defaults to `insert'."
        (let* ((exists (get-file-buffer target))
               (buf (find-file-noselect target t)))
          (with-current-buffer buf
-           (if buffer-read-only
+           (if buffer-file-read-only
                (error "Cannot write to read-only file `%s'" target))
+           (setq buffer-read-only nil)
            (set (make-local-variable 'eshell-output-file-buffer)
                 (if (eq exists buf) 0 t))
            (cond ((eq mode 'overwrite)