cvs server: Diffing .
Index: ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 5.250
diff -c -r5.250 ChangeLog
*** ChangeLog	1999/12/04 16:04:14	5.250
--- ChangeLog	1999/12/04 17:06:43
***************
*** 1,3 ****
--- 1,8 ----
+ 1999-12-04  Michael Welsh Duggan  <md5i@cs.cmu.edu>
+ 
+ 	* gnus-start.el (gnus-site-init-file): Don't use cl macros in
+ 	  defcustom definitions.
+ 
  1999-12-04  Simon Josefsson  <jas@pdc.kth.se>
  
  	* mm-decode.el (mm-display-part): Let mm-display-external return
Index: gnus-start.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-start.el,v
retrieving revision 5.44
diff -c -r5.44 gnus-start.el
*** gnus-start.el	1999/12/04 08:15:21	5.44
--- gnus-start.el	1999/12/04 17:06:46
***************
*** 47,56 ****
    :type 'file)
  
  (defcustom gnus-site-init-file
!   (ignore-errors
!     (concat (file-name-directory
! 	     (directory-file-name installation-directory))
! 	    "site-lisp/gnus-init"))
    "*The site-wide Gnus Emacs-Lisp startup file name, or nil if none.
  If a file with the `.el' or `.elc' suffixes exists, it will be read instead."
    :group 'gnus-start
--- 47,57 ----
    :type 'file)
  
  (defcustom gnus-site-init-file
!   (condition-case nil
!       (concat (file-name-directory
! 	       (directory-file-name installation-directory))
! 	      "site-lisp/gnus-init")
!     (error nil))
    "*The site-wide Gnus Emacs-Lisp startup file name, or nil if none.
  If a file with the `.el' or `.elc' suffixes exists, it will be read instead."
    :group 'gnus-start