Mercurial > emacs
comparison lisp/wdired.el @ 72160:183934d15fbb
(wdired-change-to-wdired-mode, wdired-change-to-dired-mode):
Throw error if buffer is not in Dired and Wdired mode, respectively.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Fri, 28 Jul 2006 20:57:45 +0000 |
| parents | 45a2e01db282 |
| children | 1a43c99020cb |
comparison
equal
deleted
inserted
replaced
| 72159:97e2fe60196f | 72160:183934d15fbb |
|---|---|
| 236 typing \\[wdired-finish-edit] Emacs renames the files and directories | 236 typing \\[wdired-finish-edit] Emacs renames the files and directories |
| 237 in disk. | 237 in disk. |
| 238 | 238 |
| 239 See `wdired-mode'." | 239 See `wdired-mode'." |
| 240 (interactive) | 240 (interactive) |
| 241 (or (eq major-mode 'dired-mode) | |
| 242 (error "Not a Dired buffer")) | |
| 241 (set (make-local-variable 'wdired-old-content) | 243 (set (make-local-variable 'wdired-old-content) |
| 242 (buffer-substring (point-min) (point-max))) | 244 (buffer-substring (point-min) (point-max))) |
| 243 (set (make-local-variable 'wdired-old-point) (point)) | 245 (set (make-local-variable 'wdired-old-point) (point)) |
| 244 (set (make-local-variable 'query-replace-skip-read-only) t) | 246 (set (make-local-variable 'query-replace-skip-read-only) t) |
| 245 (use-local-map wdired-mode-map) | 247 (use-local-map wdired-mode-map) |
| 326 (concat (dired-current-directory) file))))))) | 328 (concat (dired-current-directory) file))))))) |
| 327 | 329 |
| 328 | 330 |
| 329 (defun wdired-change-to-dired-mode () | 331 (defun wdired-change-to-dired-mode () |
| 330 "Change the mode back to dired." | 332 "Change the mode back to dired." |
| 333 (or (eq major-mode 'wdired-mode) | |
| 334 (error "Not a Wdired buffer")) | |
| 331 (let ((inhibit-read-only t)) | 335 (let ((inhibit-read-only t)) |
| 332 (remove-text-properties (point-min) (point-max) | 336 (remove-text-properties (point-min) (point-max) |
| 333 '(read-only nil local-map nil))) | 337 '(read-only nil local-map nil))) |
| 334 (put-text-property 1 2 'front-sticky nil) | 338 (put-text-property 1 2 'front-sticky nil) |
| 335 (use-local-map dired-mode-map) | 339 (use-local-map dired-mode-map) |