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

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

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

revision 1.39 by uid65566, Fri Jan 16 18:20:00 2004 UTC revision 1.40 by rms, Sat Oct 16 15:21:10 2004 UTC
# Line 108  printer proceeds to the next function on Line 108  printer proceeds to the next function on
108  This variable is not used at present, but it is defined in hopes that  This variable is not used at present, but it is defined in hopes that
109  a future Emacs interpreter will be able to use it.")  a future Emacs interpreter will be able to use it.")
110    
111  (defvar cl-unload-hook '(cl-cannot-unload)  (add-hook 'cl-unload-hook 'cl-cannot-unload)
   "Prevent unloading the feature `cl', since it does not work.")  
112  (defun cl-cannot-unload ()  (defun cl-cannot-unload ()
113    (error "Cannot unload the feature `cl'"))    (error "Cannot unload the feature `cl'"))
114    

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

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