[Emacs-diffs] Changes to emacs/lisp/progmodes/xscheme.el

[Kim F. Storm]

Index: emacs/lisp/progmodes/xscheme.el
diff -u emacs/lisp/progmodes/xscheme.el:1.9 emacs/lisp/progmodes/xscheme.el:1.10
--- emacs/lisp/progmodes/xscheme.el:1.9 Fri Feb 10 09:00:30 2006
+++ emacs/lisp/progmodes/xscheme.el     Fri May  5 23:38:58 2006
@@ -580,12 +580,9 @@
 ;;;; Scheme expressions ring
 
 (defun xscheme-insert-expression (string)
-  (setq xscheme-expressions-ring (cons string xscheme-expressions-ring))
-  (if (> (length xscheme-expressions-ring) xscheme-expressions-ring-max)
-      (setcdr (nthcdr (1- xscheme-expressions-ring-max)
-                     xscheme-expressions-ring)
-             nil))
-  (setq xscheme-expressions-ring-yank-pointer xscheme-expressions-ring))
+  (setq xscheme-expressions-ring-yank-pointer
+       (add-to-history 'xscheme-expressions-ring string
+                       xscheme-expressions-ring-max)))
 
 (defun xscheme-rotate-yank-pointer (arg)
   "Rotate the yanking point in the kill ring."