In dired-mark-remembered don't clobber point (Bug#11795).

* dired.el (dired-mark-remembered): Don't clobber point.
(Bug#11795)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 63a029be1f6aca8f10c30f61efacb906c44bee7f..688b6a9e341c56a69352230f839ea3f0177639e8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-22  Martin Rudalics  <rudalics@gmx.at>
+
+       * dired.el (dired-mark-remembered): Don't clobber point.
+       (Bug#11795)
+
 2012-08-22  Glenn Morris  <rgm@gnu.org>
 
        * progmodes/bug-reference.el (bug-reference): New custom group.

diff --git a/lisp/dired.el b/lisp/dired.el
index 6684be3356ca78b55f8a9e7e555c19e475aea72c..6182e13372653fd2aa1372a8068a713420433d84 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1331,16 +1331,16 @@ DIRED-FILENAME WINDOW-POINT)."
   "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."