[patch] Very minor issue with CUA mode

[Daniel Brockman]

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 <address@hidden>