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

[Miles Bader]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.308 emacs/lisp/subr.el:1.309
*** emacs/lisp/subr.el:1.308    Fri Jun 14 01:48:51 2002
--- emacs/lisp/subr.el  Fri Jun 14 02:15:00 2002
***************
*** 89,96 ****
  LISTNAME must be a symbol whose value is a list.
  If the value is nil, `pop' returns nil but does not actually
  change the list."
!   (list 'prog1 (list 'car listname)
!       (list 'setq listname (list 'cdr listname))))
  
  (defmacro when (cond &rest body)
    "If COND yields non-nil, do BODY, else return nil."
--- 89,97 ----
  LISTNAME must be a symbol whose value is a list.
  If the value is nil, `pop' returns nil but does not actually
  change the list."
!   (list 'car
!       (list 'prog1 listname
!             (list 'setq listname (list 'cdr listname)))))
  
  (defmacro when (cond &rest body)
    "If COND yields non-nil, do BODY, else return nil."