wdired patch

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

Re: wdired patch

[Thien-Thi Nguyen]

"Bill Atkins" <atkinw@rpi.edu> writes:

> +  (or (eq major-mode 'dired-mode)
> +      (error "Not a Dired buffer"))
> +  (or (eq major-mode 'wdired-mode)
> +      (error "Not a Wdired buffer"))

thanks, installed.

thi