# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1154120265 0
# Node ID 183934d15fbb8c92e6123d003a1f9ad12818db05
# Parent  97e2fe60196f366e4fca016b497a816de993b325
(wdired-change-to-wdired-mode, wdired-change-to-dired-mode):
Throw error if buffer is not in Dired and Wdired mode, respectively.

diff -r 97e2fe60196f -r 183934d15fbb lisp/wdired.el
--- a/lisp/wdired.el	Fri Jul 28 18:08:11 2006 +0000
+++ b/lisp/wdired.el	Fri Jul 28 20:57:45 2006 +0000
@@ -238,6 +238,8 @@
 
 See `wdired-mode'."
   (interactive)
+  (or (eq major-mode 'dired-mode)
+      (error "Not a Dired buffer"))
   (set (make-local-variable 'wdired-old-content)
        (buffer-substring (point-min) (point-max)))
   (set (make-local-variable 'wdired-old-point) (point))
@@ -328,6 +330,8 @@
 
 (defun wdired-change-to-dired-mode ()
   "Change the mode back to dired."
+  (or (eq major-mode 'wdired-mode)
+      (error "Not a Wdired buffer"))
   (let ((inhibit-read-only t))
     (remove-text-properties (point-min) (point-max)
 			    '(read-only nil local-map nil)))