Cleanup namespace of dos-w32.el.

[bpt/emacs.git] / lisp / simple.el

diff --git a/lisp/simple.el b/lisp/simple.el
index 4910802..ca2088e 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3676,7 +3676,7 @@ some text between BEG and END, but we're copying the region.
 This command's old key binding has been given to `kill-ring-save'."
   (interactive "r\np")
   (let ((str (if region
-                 (funcall region-extract-function)
+                 (funcall region-extract-function nil)
                (filter-buffer-substring beg end))))
   (if (eq last-command 'kill-region)
         (kill-append str (< end beg))