(esc-map): Make M-g a prefix. Bind M-g g and M-g M-g to goto-line.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 81425eba2d5ffa77c4a512ebafb176d69b651cf6..25ad6729de82ba5780866833317807d9ebc4c9cd 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -705,7 +705,9 @@ language you are using."
 (define-key ctl-x-map "\C-n" 'set-goal-column)
 (define-key global-map "\C-a" 'move-beginning-of-line)
 (define-key global-map "\C-e" 'move-end-of-line)
-(define-key esc-map "g" 'goto-line)
+(define-key esc-map "g" (make-sparse-keymap))
+(define-key esc-map "g\M-g" 'goto-line)
+(define-key esc-map "gg" 'goto-line)
 
 ;;(defun function-key-error ()
 ;;  (interactive)