[Emacs-diffs] /srv/bzr/emacs/trunk r109741: In dired-mark-remembered don't clobber point (Bug#11795).

[martin rudalics]

------------------------------------------------------------
revno: 109741
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Wed 2012-08-22 08:59:38 +0200
message:
  In dired-mark-remembered don't clobber point (Bug#11795).
  
  * dired.el (dired-mark-remembered): Don't clobber point.
  (Bug#11795)
modified:
  lisp/ChangeLog
  lisp/dired.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-22 06:47:00 +0000
+++ b/lisp/ChangeLog    2012-08-22 06:59:38 +0000
@@ -1,3 +1,8 @@
+2012-08-22  Martin Rudalics  <address@hidden>
+
+       * dired.el (dired-mark-remembered): Don't clobber point.
+       (Bug#11795)
+
 2012-08-22  Glenn Morris  <address@hidden>
 
        * progmodes/bug-reference.el (bug-reference): New custom group.

=== modified file 'lisp/dired.el'
--- a/lisp/dired.el     2012-08-15 16:29:11 +0000
+++ b/lisp/dired.el     2012-08-22 06:59:38 +0000
@@ -1331,16 +1331,16 @@
   "Mark all files remembered in ALIST.
 Each element of ALIST looks like (FILE . MARKERCHAR)."
   (let (elt fil chr)
-    (while alist
-      (setq elt (car alist)
-           alist (cdr alist)
-           fil (car elt)
-           chr (cdr elt))
-      (if (dired-goto-file fil)
-         (save-excursion
-           (beginning-of-line)
-           (delete-char 1)
-           (insert chr))))))
+    (save-excursion
+      (while alist
+       (setq elt (car alist)
+             alist (cdr alist)
+             fil (car elt)
+             chr (cdr elt))
+       (when (dired-goto-file fil)
+         (beginning-of-line)
+         (delete-char 1)
+         (insert chr))))))
 
 (defun dired-remember-hidden ()
   "Return a list of names of subdirs currently hidden."