mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(dired-insert-set-properties): Catch errors.

Browse Source 
(dired-do-flagged-delete): New arg nomessage.
This commit is contained in:
Richard M. Stallman 1995-07-31 23:13:54 +00:00
parent cbf08f77bc
commit 7da0e9b4eb
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/dired.el
View File

@ -577,12 +577,14 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
(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 @@ Optional argument means return a file name relative to `default-directory'."
;; 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 @@ Optional argument means return a file name relative to `default-directory'."
(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."