(top-level): Quote second arg to

`eval-after-load'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79b93ec904e03b676738a671c3082897c07e9033..aa138bc6e681d65ed579b8d49ea19297fa2177ef 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-02  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@gmx.net>
+
+       * emulation/crisp.el (top-level): Quote second arg to
+       `eval-after-load'.
+
 2003-04-02  Miles Bader  <miles@gnu.org>
 
        * scroll-bar.el (scroll-bar-mode): Correctly specify `nil' choice.

diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 055c8e58de0a27a1c9fe5c0c61e1ecdc9882e18f..0f19d9e4cc4286cb01a904429a73d00fe29de61f 100644 (file)
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -387,9 +387,9 @@ With ARG, turn CRiSP mode on if ARG is positive, off otherwise."
 
 ;; Interaction with other packages.
 (eval-after-load 'cua
-  (progn
-    (add-to-list 'cua--standard-movement-commands 'crisp-home)
-    (add-to-list 'cua--standard-movement-commands 'crisp-end)))
+  '(progn
+     (add-to-list 'cua--standard-movement-commands 'crisp-home)
+     (add-to-list 'cua--standard-movement-commands 'crisp-end)))
 
 (run-hooks 'crisp-load-hook)
 (provide 'crisp)