From: Juri Linkov <juri@linkov.net>
Date: Sun, 28 Jan 2018 21:48:11 +0000 (+0200)
Subject: * lisp/simple.el (upcase-dwim, downcase-dwim): Add region-noncontiguous-p
X-Git-Tag: emacs-27.0.90~5784
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a9e5517d71d890a45f7fedb53102c4a039db787;p=emacs.git

* 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 44f738f07e6..5a3a6e1f24e 100644
--- 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)