[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv26944

Modified Files:
	slime.el 
Log Message:
(slime-mode-map, slime-repl-mode-map, slime-repl-read-mode-map):
Remove the bind for C-c C-g.  C-c C-b is now the default interrupt
key.

(slime-list-repl-short-cuts): Don't trash the shortcut-table: copy it
before sorting.  (Thanks to Mark Simpson.)

Date: Tue Aug  3 23:21:31 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.385 slime/slime.el:1.386
--- slime/slime.el:1.385	Sun Aug  1 22:26:57 2004
+++ slime/slime.el	Tue Aug  3 23:21:31 2004
@@ -551,8 +551,6 @@
     (":"    slime-interactive-eval :prefixed t :sldb t)
     ("\C-e" slime-interactive-eval :prefixed t :sldb t :inferior t)
     ("\C-z" slime-switch-to-output-buffer :prefixed t :sldb t)
-    ("\C-g" slime-interrupt :prefixed t :inferior t :sldb t)
-    ;; NB: XEmacs dosn't like \C-g.  Use \C-b as "break" key.
     ("\C-b" slime-interrupt :prefixed t :inferior t :sldb t)
     ("\M-g" slime-quit :prefixed t :inferior t :sldb t)
     ;; Documentation
@@ -2709,7 +2707,7 @@
   ("\M-r" 'slime-repl-previous-matching-input)
   ("\M-s" 'slime-repl-next-matching-input)
   ("\C-c\C-c" 'slime-interrupt)
-  ("\C-c\C-g" 'slime-interrupt)
+  ("\C-c\C-b" 'slime-interrupt)
   ("\C-c:"    'slime-interactive-eval)
   ("\C-c\C-e" 'slime-interactive-eval)
   ;("\t"   'slime-complete-symbol)
@@ -2736,8 +2734,7 @@
   "[read]"
   '(("\C-m" . slime-repl-return)
     ("\C-c\C-b" . slime-repl-read-break)
-    ("\C-c\C-c" . slime-repl-read-break)
-    ("\C-c\C-g" . slime-repl-read-break)))
+    ("\C-c\C-c" . slime-repl-read-break)))
 
 (make-variable-buffer-local
  (defvar slime-read-string-threads nil))
@@ -2832,7 +2829,7 @@
 (defun slime-list-repl-short-cuts ()
   (interactive)
   (slime-with-output-to-temp-buffer ("*slime-repl-help*") nil
-    (let ((table (sort* slime-repl-shortcut-table #'string<
+    (let ((table (sort* (copy-list slime-repl-shortcut-table) #'string<
                         :key (lambda (x) 
                                (car (slime-repl-shortcut.names x))))))
       (dolist (shortcut table)
@@ -2844,7 +2841,7 @@
             (while (cdr names)
               (insert (pop names) ", "))
             (insert (car names) ")"))
-        (insert "\n     " (slime-repl-shortcut.one-liner shortcut) 
+        (insert "\n     " (slime-repl-shortcut.one-liner shortcut)
                 "\n"))))))
   
 (defslime-repl-shortcut slime-repl-shortcut-help ("help" "?")