wdired patch

[Bill Atkins]

Index: lisp/wdired.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/wdired.el,v
retrieving revision 1.19
diff -u -r1.19 wdired.el
--- lisp/wdired.el      4 Mar 2006 21:40:17 -0000       1.19
+++ lisp/wdired.el      28 Jul 2006 11:49:56 -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)))

--
Bill Atkins