[Emacs-diffs] /srv/bzr/emacs/trunk r103447: dired-aux fix for bug#8131.

[Glenn Morris]

------------------------------------------------------------
revno: 103447
author: Stephen Berman <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2011-02-27 17:31:20 -0800
message:
  dired-aux fix for bug#8131.
  
  * lisp/dired-aux.el (dired-update-file-line): Fix 2010-11-09 change.
modified:
  lisp/ChangeLog
  lisp/dired-aux.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-28 01:10:58 +0000
+++ b/lisp/ChangeLog    2011-02-28 01:31:20 +0000
@@ -1,3 +1,8 @@
+2011-02-28  Stephen Berman  <address@hidden>
+
+       * dired-aux.el (dired-update-file-line):
+       Fix 2010-11-09 change.  (Bug#8131)
+
 2011-02-28  Eli Zaretskii  <address@hidden>
 
        * international/mule-cmds.el (set-default-coding-systems): Use the

=== modified file 'lisp/dired-aux.el'
--- a/lisp/dired-aux.el 2011-02-19 19:20:38 +0000
+++ b/lisp/dired-aux.el 2011-02-28 01:31:20 +0000
@@ -1025,9 +1025,9 @@
   ;; 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