Show
Ignore:
Timestamp:
2006年09月30日 09時12分06秒 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp

    • Property svn:ignore changed from
      *.elc
      MANIFEST
      Makefile
      Makefile.unix
      makefile
      elc.tar.gz
      cus-load.el
      finder-inf.el
      subdirs.el
      loaddefs.el
       to
      *.elc
      MANIFEST
      Makefile
      Makefile.unix
      makefile
      elc.tar.gz
      cus-load.el
      finder-inf.el
      subdirs.el
      loaddefs.el
      pre-mh-loaddefs.el-CMD

  • trunk/lisp/emacs-lisp/cl-macs.el

    r4037 r4169  
    25792579    (cond ((eq test 'eq) (list 'memq a list)) 
    25802580          ((eq test 'equal) (list 'member a list)) 
    2581           ((or (null keys) (eq test 'eql)) 
    2582            (if (eq (cl-const-expr-p a) t) 
    2583                (list (if (floatp-safe (cl-const-expr-val a)) 'member 'memq) 
    2584                      a list) 
    2585              (if (eq (cl-const-expr-p list) t) 
    2586                  (let ((p (cl-const-expr-val list)) (mb nil) (mq nil)) 
    2587                    (if (not (cdr p)) 
    2588                        (and p (list 'eql a (list 'quote (car p)))) 
    2589                      (while p 
    2590                        (if (floatp-safe (car p)) (setq mb t) 
    2591                          (or (integerp (car p)) (symbolp (car p)) (setq mq t))) 
    2592                        (setq p (cdr p))) 
    2593                      (if (not mb) (list 'memq a list) 
    2594                        (if (not mq) (list 'member a list) form)))) 
    2595                form))) 
     2581          ((or (null keys) (eq test 'eql)) (list 'memql a list)) 
    25962582          (t form)))) 
    25972583