diff options
| author | Karoly Lorentey <[email protected]> | 2006-10-14 16:56:21 +0000 |
|---|---|---|
| committer | Karoly Lorentey <[email protected]> | 2006-10-14 16:56:21 +0000 |
| commit | 3f87f67ee215ffeecbd2f53bd7f342cdf03f47df (patch) | |
| tree | 16f2af9111af08a94d608d96a957f5c3ec5effcc /lisp/wdired.el | |
| parent | 350e4fb815d7413ef6d339dd664014706f742927 (diff) | |
| parent | 7a210b69c7f92650c524766d1b9d3f3eefdd67c7 (diff) | |
Merged from [email protected]
Patches applied:
* [email protected]/emacs--devo--0--patch-371
Update from CVS
* [email protected]/emacs--devo--0--patch-372
Update from CVS
* [email protected]/emacs--devo--0--patch-373
Update from CVS
* [email protected]/emacs--devo--0--patch-374
Update from CVS
* [email protected]/emacs--devo--0--patch-375
Merge from gnus--rel--5.10
* [email protected]/emacs--devo--0--patch-376
Update from CVS
* [email protected]/emacs--devo--0--patch-377
Update from CVS
* [email protected]/emacs--devo--0--patch-378
Update from CVS
* [email protected]/emacs--devo--0--patch-379
Merge from erc--emacs--21
* [email protected]/emacs--devo--0--patch-380
Update from CVS
* [email protected]/emacs--devo--0--patch-381
Update from CVS
* [email protected]/emacs--devo--0--patch-382
Update from CVS
* [email protected]/emacs--devo--0--patch-383
Update from CVS
* [email protected]/emacs--devo--0--patch-384
Update from CVS
* [email protected]/emacs--devo--0--patch-385
Update from CVS
* [email protected]/emacs--devo--0--patch-386
Update from erc--emacs--22
* [email protected]/emacs--devo--0--patch-387
Fix ERC bug introduced in last patch
* [email protected]/emacs--devo--0--patch-388
Update from erc--emacs--22
* [email protected]/emacs--devo--0--patch-389
Update from CVS
* [email protected]/emacs--devo--0--patch-390
Update from CVS
* [email protected]/emacs--devo--0--patch-391
Update from CVS
* [email protected]/emacs--devo--0--patch-392
Update from CVS
* [email protected]/emacs--devo--0--patch-393
Update from CVS
* [email protected]/emacs--devo--0--patch-394
Update from CVS
* [email protected]/emacs--devo--0--patch-395
Update from CVS
* [email protected]/emacs--devo--0--patch-396
Update from CVS
* [email protected]/emacs--devo--0--patch-397
Update from CVS
* [email protected]/emacs--devo--0--patch-398
Merge from gnus--rel--5.10
* [email protected]/emacs--devo--0--patch-399
Update from CVS
* [email protected]/emacs--devo--0--patch-400
Update from CVS
* [email protected]/emacs--devo--0--patch-401
Update from CVS
* [email protected]/emacs--devo--0--patch-402
Update from CVS
* [email protected]/emacs--devo--0--patch-403
Rcirc update from Ryan Yeske
* [email protected]/emacs--devo--0--patch-404
Update from CVS
* [email protected]/emacs--devo--0--patch-405
Update from CVS
* [email protected]/emacs--devo--0--patch-406
Update from CVS
* [email protected]/emacs--devo--0--patch-407
Update from CVS
* [email protected]/emacs--devo--0--patch-408
Update from CVS
* [email protected]/emacs--devo--0--patch-409
Update from CVS
* [email protected]/emacs--devo--0--patch-410
Merge from gnus--rel--5.10
* [email protected]/emacs--devo--0--patch-411
Miscellaneous tq-related fixes.
* [email protected]/emacs--devo--0--patch-412
Update from CVS
* [email protected]/gnus--rel--5.10--patch-121
Update from CVS
* [email protected]/gnus--rel--5.10--patch-122
Update from CVS
* [email protected]/gnus--rel--5.10--patch-123
Update from CVS
* [email protected]/gnus--rel--5.10--patch-124
Update from CVS
* [email protected]/gnus--rel--5.10--patch-125
Update from CVS
* [email protected]/gnus--rel--5.10--patch-126
Merge from emacs--devo--0
* [email protected]/gnus--rel--5.10--patch-127
Update from CVS
git-archimport-id: [email protected]/emacs--multi-tty--0--patch-581
Diffstat (limited to 'lisp/wdired.el')
| -rw-r--r-- | lisp/wdired.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/wdired.el b/lisp/wdired.el index 1363181524..bc70e0ddcf 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -238,6 +238,8 @@ in disk. 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 @@ non-nil means return old filename." (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))) |