From: Kim F. Storm <storm@cua.dk>
Date: Fri, 14 Jul 2006 22:14:17 +0000 (+0000)
Subject: (cua-help-for-rectangle): Add `alt' modifier.
X-Git-Tag: emacs-pretest-22.0.90~1436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a452073597f33ca182b4f5cbf65f7f7887a15afb;p=emacs.git

(cua-help-for-rectangle): Add `alt' modifier.
---

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 43a66fd0e3e..7db3cca8fae 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -1361,6 +1361,7 @@ With prefix arg, indent to that column."
   (interactive)
   (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-")
 		 ((eq cua--rectangle-modifier-key 'super) " s-")
+		 ((eq cua--rectangle-modifier-key 'alt) " A-")
 		 (t " M-"))))
     (message
      (concat (if help "C-?:help" "")