[elpa] externals/smalltalk-mode a1e76a8 27/34: new smalltalk-mode navigational shortcuts

[Stefan Monnier]

branch: externals/smalltalk-mode
commit a1e76a89850ad30f66cca3b227a2edbaf541d6fc
Author: Paolo Bonzini <address@hidden>
Commit: Paolo Bonzini <address@hidden>

    new smalltalk-mode navigational shortcuts
---
 smalltalk-mode.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/smalltalk-mode.el b/smalltalk-mode.el
index c09b6de..14c7497 100644
--- a/smalltalk-mode.el
+++ b/smalltalk-mode.el
@@ -119,6 +119,13 @@
 (defvar smalltalk-mode-map
   (let ((keymap (make-sparse-keymap)))
     (define-key keymap "\n"       'smalltalk-newline-and-indent)
+    (define-key keymap "\C-c\C-a"   'smalltalk-begin-of-defun)
+    (define-key keymap "\C-c\C-e"   'smalltalk-end-of-defun)
+    (define-key keymap "\C-c\C-f"   'smalltalk-forward-sexp)
+    (define-key keymap "\C-c\C-b"   'smalltalk-backward-sexp)
+    (define-key keymap "\C-c\C-p"   'smalltalk-goto-previous-keyword)
+    (define-key keymap "\C-c\C-n"   'smalltalk-goto-next-keyword)
+    ;; the following three are deprecated
     (define-key keymap "\C-\M-a"   'smalltalk-begin-of-defun)
     (define-key keymap "\C-\M-f"   'smalltalk-forward-sexp)
     (define-key keymap "\C-\M-b"   'smalltalk-backward-sexp)