Mercurial > emacs
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") |