[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el |
Date: |
Thu, 20 Dec 2001 13:51:32 -0500 |
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*))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el,
Pavel Janík <=