/[emacs]/emacs/lisp/emacs-lisp/disass.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/disass.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18.18.2 by miles, Sun Aug 25 21:42:44 2002 UTC revision 1.18.18.3 by miles, Fri Apr 4 06:20:16 2003 UTC
# Line 91  redefine OBJECT if it is a symbol." Line 91  redefine OBJECT if it is a symbol."
91        (setq lexical-binding t)        (setq lexical-binding t)
92        (setq obj (cddr obj)))        (setq obj (cddr obj)))
93      (if (and (listp obj) (eq (car obj) 'byte-code))      (if (and (listp obj) (eq (car obj) 'byte-code))
94          (setq obj (list 'lambda nil obj)))                (setq obj (list 'lambda nil obj)))
95      (if (and (listp obj) (not (eq (car obj) 'lambda)))      (if (and (listp obj) (not (eq (car obj) 'lambda)))
96          (error "not a function"))          (error "not a function"))
97      (if (consp obj)      (if (consp obj)

Legend:
Removed from v.1.18.18.2  
changed lines
  Added in v.1.18.18.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26