dired-aux fix for bug#8131.

* lisp/dired-aux.el (dired-update-file-line): Fix 2010-11-09 change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b577bacae64981be9f0d2519bb79adf009aeb592..5c44f82a2ff253cbdc996dac33105afbe58481f6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-28  Stephen Berman  <stephen.berman@gmx.net>
+
+       * dired-aux.el (dired-update-file-line):
+       Fix 2010-11-09 change.  (Bug#8131)
+
 2011-02-28  Eli Zaretskii  <eliz@gnu.org>
 
        * international/mule-cmds.el (set-default-coding-systems): Use the

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 986c9edfd2dba26d65398e00dc8a2b63776c6048..c533c81be0e424ff56f0a593a6a1a366e346eed8 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1025,9 +1025,9 @@ See Info node `(emacs)Subdir switches' for more details."
   ;; Keeps any marks that may be present in column one (doing this
   ;; here is faster than with dired-add-entry's optional arg).
   ;; Does not update other dired buffers.  Use dired-relist-entry for that.
-  (let ((char (following-char))
-       (opoint (line-beginning-position))
-       (buffer-read-only))
+  (let* ((opoint (line-beginning-position))
+        (char (char-after opoint))
+        (buffer-read-only))
     (delete-region opoint (progn (forward-line 1) (point)))
     (if file
        (progn