[patch] Very minor issue with CUA mode

[Daniel Brockman <daniel@brockman.se>]

Download cua.el from cua.dk and put it in ~/cua.el.
Then do emacs -q RET M-x load-file RET ~/cua.el RET.  BANG.

*** cua-base.el	18 Apr 2005 21:50:07 +0200	1.46
--- cua-base.el	30 Apr 2005 00:43:44 +0200	
***************
*** 1397,1406 ****
  ;;;###autoload  '(error (concat "\n\n"
  ;;;###autoload  "CUA-mode is now part of the standard GNU Emacs distribution,\n"
  ;;;###autoload  "so you may now enable and customize CUA via the Options menu.\n\n"
! ;;;###autoload  "Your " (file-name-nondirectory user-init-file) " loads an older version of CUA-mode which does\n"
  ;;;###autoload  "not work correctly with this version of GNU Emacs.\n"
  ;;;###autoload  "To correct this, remove the loading and customization of the\n"
! ;;;###autoload  "old version from the " user-init-file " file.\n\n")))
  
  (provide 'cua)
  
--- 1397,1408 ----
  ;;;###autoload  '(error (concat "\n\n"
  ;;;###autoload  "CUA-mode is now part of the standard GNU Emacs distribution,\n"
  ;;;###autoload  "so you may now enable and customize CUA via the Options menu.\n\n"
! ;;;###autoload  (if user-init-file (concat
! ;;;###autoload  "Your " (file-name-nondirectory user-init-file)
! ;;;###autoload  " loads an older version of CUA-mode which does\n"
  ;;;###autoload  "not work correctly with this version of GNU Emacs.\n"
  ;;;###autoload  "To correct this, remove the loading and customization of the\n"
! ;;;###autoload  "old version from the " user-init-file " file.\n\n")))))
  
  (provide 'cua)
  

Ideally, the error shouldn't even mention the init file unless it
actually knows that the library was loaded from there.  I don't know,
is there something like `loading-init-file-p'?

I should say that I didn't test the above patch, and to be honest, I
couldn't figure out how to do it!  It seems that the autoload code is
somehow cached so that changing it in the Lisp file doesn't work.

-- 
Daniel Brockman <daniel@brockman.se>