[Emacs-diffs] master 2a9e551: * lisp/simple.el (upcase-dwim, downcase-dwim): Add region-noncontiguous-p

[Juri Linkov]

branch: master
commit 2a9e5517d71d890a45f7fedb53102c4a039db787
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * lisp/simple.el (upcase-dwim, downcase-dwim): Add region-noncontiguous-p
    
    to the calls of region functions to support rectangular regions.
---
 lisp/simple.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 44f738f..5a3a6e1 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)