[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el

[Pavel Janík]

Index: emacs/lisp/emacs-lisp/cl-macs.el
diff -c emacs/lisp/emacs-lisp/cl-macs.el:1.33 
emacs/lisp/emacs-lisp/cl-macs.el:1.34
*** emacs/lisp/emacs-lisp/cl-macs.el:1.33       Fri Nov 30 04:20:17 2001
--- emacs/lisp/emacs-lisp/cl-macs.el    Thu Dec 20 13:51:32 2001
***************
*** 2376,2382 ****
          v)
        (if (eq x (car v)) (cdr v) '(t)))))
  
! ;;; Count number of times X refers to Y.  Return NIL for 0 times.
  (defun cl-expr-contains (x y)
    (cond ((equal y x) 1)
        ((and (consp x) (not (memq (car-safe x) '(quote function function*))))
--- 2376,2382 ----
          v)
        (if (eq x (car v)) (cdr v) '(t)))))
  
! ;;; Count number of times X refers to Y.  Return nil for 0 times.
  (defun cl-expr-contains (x y)
    (cond ((equal y x) 1)
        ((and (consp x) (not (memq (car-safe x) '(quote function function*))))