From a452073597f33ca182b4f5cbf65f7f7887a15afb Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 14 Jul 2006 22:14:17 +0000 Subject: [PATCH] (cua-help-for-rectangle): Add `alt' modifier. --- 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 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" "") -- 2.39.2