From fbb6300b6d0058c464631da982af1a77ff798524 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Wed, 22 Aug 2012 08:59:38 +0200 Subject: [PATCH] In dired-mark-remembered don't clobber point (Bug#11795). * dired.el (dired-mark-remembered): Don't clobber point. (Bug#11795) --- lisp/ChangeLog | 5 +++++ lisp/dired.el | 20 ++++++++++---------- 2 files changed, 15 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 63a029be1f6..688b6a9e341 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-08-22 Martin Rudalics + + * dired.el (dired-mark-remembered): Don't clobber point. + (Bug#11795) + 2012-08-22 Glenn Morris * progmodes/bug-reference.el (bug-reference): New custom group. diff --git a/lisp/dired.el b/lisp/dired.el index 6684be3356c..6182e133726 100644 --- 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." -- 2.39.2