# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 807232434 0
# Node ID a7253dcf5f9d75aadf64512c303fe2630bae33d5
# Parent  2e79a07a9c27098c3c3f2913091243971b7d1915
(dired-insert-set-properties): Catch errors.

(dired-do-flagged-delete): New arg nomessage.

diff -r 2e79a07a9c27 -r a7253dcf5f9d lisp/dired.el
--- a/lisp/dired.el	Mon Jul 31 20:19:25 1995 +0000
+++ b/lisp/dired.el	Mon Jul 31 23:13:54 1995 +0000
@@ -577,12 +577,14 @@
   (save-excursion
     (goto-char beg)
     (while (< (point) end)
-      (if (dired-move-to-filename)
-	  (put-text-property (point)
-			     (save-excursion
-			       (dired-move-to-end-of-filename)
-			       (point))
-			     'mouse-face 'highlight))
+      (condition-case nil
+	  (if (dired-move-to-filename)
+	      (put-text-property (point)
+				 (save-excursion
+				   (dired-move-to-end-of-filename)
+				   (point))
+				 'mouse-face 'highlight))
+	(error nil))
       (forward-line 1))))
 
 (defun dired-insert-headerline (dir);; also used by dired-insert-subdir
@@ -1588,8 +1590,10 @@
 
 ;; Deleting files
 
-(defun dired-do-flagged-delete ()
-  "In dired, delete the files flagged for deletion."
+(defun dired-do-flagged-delete (&optional nomessage)
+  "In dired, delete the files flagged for deletion.
+If NOMESSAGE is non-nil, we don't display any message
+if there are no flagged files."
   (interactive)
   (let* ((dired-marker-char dired-del-marker)
 	 (regexp (dired-marker-regexp))
@@ -1601,7 +1605,8 @@
 	 (dired-map-over-marks (cons (dired-get-filename) (point))
 			       nil)
 	 nil)
-      (message "(No deletions requested)"))))
+      (or nomessage
+	  (message "(No deletions requested)")))))
 
 (defun dired-do-delete (&optional arg)
   "Delete all marked (or next ARG) files."