bug#18120: cua-rect.el issue on help

[Pierre-Yves <py@luyten.fr>]

[-- Attachment #1: Type: text/plain, Size: 601 bytes --]

cua-rectangle feature does offer to type ? for help. It will display several available key sequence. Since modifier is not known, a function computes the string from the prefix variable.
It is basically a switch, which works for ‘hyper or ‘super or ‘alt or ‘meta , but it does not work for ‘control.

This is feasible to use ‘control as the modifier. 
   (setq cua--rectangle-modifier-key ‘control)


This one liner patch fixes the help in such case.
The cua-rect-help.patch is the result of `diff -c` command.
The 0001- prefixed patch is git, but I believe this is not the proper format.


[-- Attachment #2: cua-rect-help.patch --]
[-- Type: application/octet-stream, Size: 505 bytes --]

*** lisp/emulation/cua-rect.el.orig	2014-07-27 23:45:04.000000000 +0200
--- lisp/emulation/cua-rect.el	2014-07-27 23:44:56.000000000 +0200
***************
*** 1346,1351 ****
--- 1346,1352 ----
    (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-")
  		 ((eq cua--rectangle-modifier-key 'super) " s-")
  		 ((eq cua--rectangle-modifier-key 'alt) " A-")
+                  ((eq cua--rectangle-modifier-key 'control) " C-")
  		 (t " M-"))))
      (message
       (concat (if help "C-?:help" "")

[-- Attachment #3: 0001-cua-rect-help-check-for-control-value.patch --]
[-- Type: application/octet-stream, Size: 864 bytes --]

From e005034f22b87c5479e36649da416f7d74af1a72 Mon Sep 17 00:00:00 2001
From: Pierre-Yves Luyten <py@luyten.fr>
Date: Sun, 27 Jul 2014 20:04:50 +0200
Subject: [PATCH] cua-rect help : check for 'control value

---
 lisp/emulation/cua-rect.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index d516bd4..2f9215b 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -1346,6 +1346,7 @@ With prefix arg, indent to that column."
   (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-")
 		 ((eq cua--rectangle-modifier-key 'super) " s-")
 		 ((eq cua--rectangle-modifier-key 'alt) " A-")
+                 ((eq cua--rectangle-modifier-key 'control) " C-")
 		 (t " M-"))))
     (message
      (concat (if help "C-?:help" "")
-- 
1.8.5.2 (Apple Git-48)