Show
Ignore:
Timestamp:
2006年05月13日 11時31分18秒 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/progmodes/xscheme.el

    r4037 r4079  
    581581 
    582582(defun xscheme-insert-expression (string) 
    583   (setq xscheme-expressions-ring (cons string xscheme-expressions-ring)) 
    584   (if (> (length xscheme-expressions-ring) xscheme-expressions-ring-max) 
    585       (setcdr (nthcdr (1- xscheme-expressions-ring-max) 
    586                       xscheme-expressions-ring) 
    587               nil)) 
    588   (setq xscheme-expressions-ring-yank-pointer xscheme-expressions-ring)) 
     583  (setq xscheme-expressions-ring-yank-pointer 
     584        (add-to-history 'xscheme-expressions-ring string 
     585                        xscheme-expressions-ring-max))) 
    589586 
    590587(defun xscheme-rotate-yank-pointer (arg)