* lisp/simple.el (upcase-dwim, downcase-dwim): Add region-noncontiguous-p

to the calls of region functions to support rectangular regions.

diff --git a/lisp/simple.el b/lisp/simple.el
index 44f738f07e69196cfff270fd0c38ddb3ed11bbaf..5a3a6e1f24e9e819dd7d94aefc36c0259aa0544f 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -8963,7 +8963,7 @@ Otherwise, it calls `upcase-word', with prefix argument passed to it
 to upcase ARG words."
   (interactive "*p")
   (if (use-region-p)
-      (upcase-region (region-beginning) (region-end))
+      (upcase-region (region-beginning) (region-end) (region-noncontiguous-p))
     (upcase-word arg)))
 
 (defun downcase-dwim (arg)
@@ -8973,7 +8973,7 @@ Otherwise, it calls `downcase-word', with prefix argument passed to it
 to downcase ARG words."
   (interactive "*p")
   (if (use-region-p)
-      (downcase-region (region-beginning) (region-end))
+      (downcase-region (region-beginning) (region-end) (region-noncontiguous-p))
     (downcase-word arg)))
 
 (defun capitalize-dwim (arg)