Make modifier `ctrl' an alias of `control'.

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index c15e0d7e1e57a929beb781e55dd8a4d952ad3858..e83734bfe33c7a6047e8597998ee4c2f5a478859 100644 (file)
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1085,6 +1085,9 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp")
 (put 'return 'ascii-character ?\C-m)
 (put 'escape 'ascii-character ?\e)
 
+;; Modifier name `ctrl' is an alias of `control'.
+(put 'ctrl 'modifier-value (get 'control 'modifier-value))
+
 \f
 ;;;; Script codes and coding systems
 (defconst mac-script-code-coding-systems