diff options
| author | Juri Linkov | 2018-01-28 23:48:11 +0200 |
|---|---|---|
| committer | Juri Linkov | 2018-01-28 23:48:11 +0200 |
| commit | 2a9e5517d71d890a45f7fedb53102c4a039db787 (patch) | |
| tree | 67a1286bd3cdcb5ac44b6ef8d5a0a325d2371087 | |
| parent | 3c46315d21c090797920628a886234c5d8dc8215 (diff) | |
| download | emacs-2a9e5517d71d890a45f7fedb53102c4a039db787.tar.gz emacs-2a9e5517d71d890a45f7fedb53102c4a039db787.zip | |
* lisp/simple.el (upcase-dwim, downcase-dwim): Add region-noncontiguous-p
to the calls of region functions to support rectangular regions.
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
| 8963 | to upcase ARG words." | 8963 | to upcase ARG words." |
| 8964 | (interactive "*p") | 8964 | (interactive "*p") |
| 8965 | (if (use-region-p) | 8965 | (if (use-region-p) |
| 8966 | (upcase-region (region-beginning) (region-end)) | 8966 | (upcase-region (region-beginning) (region-end) (region-noncontiguous-p)) |
| 8967 | (upcase-word arg))) | 8967 | (upcase-word arg))) |
| 8968 | 8968 | ||
| 8969 | (defun downcase-dwim (arg) | 8969 | (defun downcase-dwim (arg) |
| @@ -8973,7 +8973,7 @@ Otherwise, it calls `downcase-word', with prefix argument passed to it | |||
| 8973 | to downcase ARG words." | 8973 | to downcase ARG words." |
| 8974 | (interactive "*p") | 8974 | (interactive "*p") |
| 8975 | (if (use-region-p) | 8975 | (if (use-region-p) |
| 8976 | (downcase-region (region-beginning) (region-end)) | 8976 | (downcase-region (region-beginning) (region-end) (region-noncontiguous-p)) |
| 8977 | (downcase-word arg))) | 8977 | (downcase-word arg))) |
| 8978 | 8978 | ||
| 8979 | (defun capitalize-dwim (arg) | 8979 | (defun capitalize-dwim (arg) |