comparison lisp/dired.el @ 55970:58340ec919e5

(dired-undo): Call `dired-build-subdir-alist'. Limit scope of `buffer-read-only' binding.
author Luc Teirlinck <teirllm@auburn.edu>
date Mon, 07 Jun 2004 18:25:46 +0000
parents 0edea1c45ca9
children d5ff6c629c22
comparison
equal deleted inserted replaced
55969:bbba5d83d7d3 55970:58340ec919e5
1446 "d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp")) 1446 "d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp"))
1447 1447
1448 (defun dired-undo () 1448 (defun dired-undo ()
1449 "Undo in a dired buffer. 1449 "Undo in a dired buffer.
1450 This doesn't recover lost files, it just undoes changes in the buffer itself. 1450 This doesn't recover lost files, it just undoes changes in the buffer itself.
1451 You can use it to recover marks, killed lines or subdirs. 1451 You can use it to recover marks, killed lines or subdirs."
1452 In the latter case, you have to do \\[dired-build-subdir-alist] to
1453 parse the buffer again."
1454 (interactive) 1452 (interactive)
1455 (let (buffer-read-only) 1453 (let (buffer-read-only)
1456 (undo) 1454 (undo))
1457 (message "Change in Dired buffer undone. 1455 (dired-build-subdir-alist)
1458 Actual changes in files cannot be undone by Emacs."))) 1456 (message "Change in Dired buffer undone.
1457 Actual changes in files cannot be undone by Emacs."))
1459 1458
1460 (defun dired-next-line (arg) 1459 (defun dired-next-line (arg)
1461 "Move down lines then position at filename. 1460 "Move down lines then position at filename.
1462 Optional prefix ARG says how many lines to move; default is one line." 1461 Optional prefix ARG says how many lines to move; default is one line."
1463 (interactive "p") 1462 (interactive "p")