[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
wdired patch
From: |
Bill Atkins |
Subject: |
wdired patch |
Date: |
Fri, 28 Jul 2006 07:50:37 -0400 |
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
- wdired patch,
Bill Atkins <=