[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/xscheme.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/xscheme.el |
Date: |
Fri, 05 May 2006 23:38:58 +0000 |
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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/xscheme.el,
Kim F. Storm <=