diff options
| author | Kim F. Storm | 2006-07-14 22:14:17 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-07-14 22:14:17 +0000 |
| commit | a452073597f33ca182b4f5cbf65f7f7887a15afb (patch) | |
| tree | 5b78243f51639bd99bfba59479f10327128f5e15 | |
| parent | ae6ffe9997fbfb58fed05eedadafd60370301db2 (diff) | |
| download | emacs-a452073597f33ca182b4f5cbf65f7f7887a15afb.tar.gz emacs-a452073597f33ca182b4f5cbf65f7f7887a15afb.zip | |
(cua-help-for-rectangle): Add `alt' modifier.
| -rw-r--r-- | lisp/emulation/cua-rect.el | 1 |
1 files changed, 1 insertions, 0 deletions
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." | |||
| 1361 | (interactive) | 1361 | (interactive) |
| 1362 | (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-") | 1362 | (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-") |
| 1363 | ((eq cua--rectangle-modifier-key 'super) " s-") | 1363 | ((eq cua--rectangle-modifier-key 'super) " s-") |
| 1364 | ((eq cua--rectangle-modifier-key 'alt) " A-") | ||
| 1364 | (t " M-")))) | 1365 | (t " M-")))) |
| 1365 | (message | 1366 | (message |
| 1366 | (concat (if help "C-?:help" "") | 1367 | (concat (if help "C-?:help" "") |