[ELPA-diffs] /srv/bzr/emacs/elpa r317: * packages/sml-mode/sml-mode.el (sml-mode-map): Add back C-c C-s binding.

[Stefan Monnier]

------------------------------------------------------------
revno: 317
committer: Stefan Monnier <address@hidden>
branch nick: elpa
timestamp: Tue 2012-12-04 12:41:08 -0500
message:
  * packages/sml-mode/sml-mode.el (sml-mode-map): Add back C-c C-s binding.
  (sml-prog-proc-switch-to): Add missing interactive spec.
modified:
  packages/sml-mode/sml-mode.el

=== modified file 'packages/sml-mode/sml-mode.el'
--- a/packages/sml-mode/sml-mode.el     2012-10-31 16:54:09 +0000
+++ b/packages/sml-mode/sml-mode.el     2012-12-04 17:41:08 +0000
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1989,1999,2000,2004,2007,2010-2012  Free Software Foundation, 
Inc.
 
 ;; Maintainer: (Stefan Monnier) <address@hidden>
-;; Version: 6.1
+;; Version: 6.2
 ;; Keywords: SML
 ;; Author:     Lars Bo Nielsen
 ;;             Olin Shivers
@@ -164,6 +164,8 @@
     (define-key map "\M-|" 'sml-electric-pipe)
     (define-key map "\M-\ " 'sml-electric-space)
     (define-key map [backtab] 'sml-back-to-outer-indent)
+    ;; The standard binding is C-c C-z, but we add this one for compatibility.
+    (define-key map "\C-c\C-s" 'sml-prog-proc-switch-to)
     map)
   "The keymap used in `sml-mode'.")
 
@@ -755,6 +757,7 @@
 
 (defun sml-prog-proc-switch-to ()
   "Switch to the buffer running the read-eval-print process."
+  (interactive)
   (pop-to-buffer (sml-prog-proc-buffer)))
 
 (defun sml-prog-proc-send-string (proc str)