(viper-set-hooks): Quote forms passed to `eval-after-load' to avoid

evaluating their result.

2 files changed, 44 insertions, 39 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3e7f75b5e6..6aba6ead9e0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-23  Romain Francoise  <romain@orebokech.com>
+
+        * emulation/viper.el (viper-set-hooks): Quote forms passed to
+        `eval-after-load' to avoid evaluating their result.
+
 2005-10-23  Michael Albinus  <michael.albinus@gmx.de>
 
         * files.el (directory-listing-before-filename-regexp): New
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index a361469382e..71b9347b8b0 100644
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -942,55 +942,55 @@ It also can't undo some Viper settings."
   ;; the advice.
   (eval-after-load
    "iso-acc"
-   (defadvice iso-accents-mode (around viper-iso-accents-advice activate)
-     "Set viper-automatic-iso-accents to iso-accents-mode."
-     (let ((arg (ad-get-arg 0)))
-       ad-do-it
-       (setq viper-automatic-iso-accents
-             (if (eq viper-current-state 'vi-state)
-                 (if arg
-                     ;; if iso-accents-mode was called with positive arg, turn
-                     ;; accents on
-                     (> (prefix-numeric-value arg) 0)
-                   ;; else: toggle viper-automatic-iso-accents
-                   (not viper-automatic-iso-accents))
-               ;; other states: accept what iso-accents-mode has done
-               iso-accents-mode))
-       ;; turn off ISO accents in vi-state
-       (if (eq viper-current-state 'vi-state)
-           (viper-set-iso-accents-mode nil))
-       (if (memq viper-current-state '(vi-state insert-state replace-state))
-           (message "Viper ISO accents mode: %s"
-                    (if viper-automatic-iso-accents "on" "off")))
-       )))
+   '(defadvice iso-accents-mode (around viper-iso-accents-advice activate)
+      "Set viper-automatic-iso-accents to iso-accents-mode."
+      (let ((arg (ad-get-arg 0)))
+        ad-do-it
+        (setq viper-automatic-iso-accents
+              (if (eq viper-current-state 'vi-state)
+                  (if arg
+                      ;; if iso-accents-mode was called with positive arg, turn
+                      ;; accents on
+                      (> (prefix-numeric-value arg) 0)
+                    ;; else: toggle viper-automatic-iso-accents
+                    (not viper-automatic-iso-accents))
+                ;; other states: accept what iso-accents-mode has done
+                iso-accents-mode))
+        ;; turn off ISO accents in vi-state
+        (if (eq viper-current-state 'vi-state)
+            (viper-set-iso-accents-mode nil))
+        (if (memq viper-current-state '(vi-state insert-state replace-state))
+            (message "Viper ISO accents mode: %s"
+                     (if viper-automatic-iso-accents "on" "off")))
+        )))
 
   ;; International input methods
   (if viper-emacs-p
       (eval-after-load "mule-cmds"
-        (progn
-          (defadvice inactivate-input-method (after viper-mule-advice activate)
-            "Set viper-special-input-method to disable intl. input methods."
-            (viper-inactivate-input-method-action))
-          (defadvice activate-input-method (after viper-mule-advice activate)
-            "Set viper-special-input-method to enable intl. input methods."
-            (viper-activate-input-method-action))
-          ))
+        '(progn
+           (defadvice inactivate-input-method (after viper-mule-advice activate)
+             "Set viper-special-input-method to disable intl. input methods."
+             (viper-inactivate-input-method-action))
+           (defadvice activate-input-method (after viper-mule-advice activate)
+             "Set viper-special-input-method to enable intl. input methods."
+             (viper-activate-input-method-action))
+           ))
     ;; XEmacs Although these hooks exist in Emacs, they don't seem to be always
     ;; called on input-method activation/deactivation, so we the above advise
     ;; functions instead.
     (eval-after-load "mule-cmds"
-      (progn
-        (add-hook 'input-method-activate-hook
-                  'viper-activate-input-method-action t)
-        (add-hook 'input-method-inactivate-hook
-                  'viper-inactivate-input-method-action t)))
+      '(progn
+         (add-hook 'input-method-activate-hook
+                   'viper-activate-input-method-action t)
+         (add-hook 'input-method-inactivate-hook
+                   'viper-inactivate-input-method-action t)))
     )
   (eval-after-load "mule-cmds"
-    (defadvice toggle-input-method (around viper-mule-advice activate)
-      "Adjust input-method toggling in vi-state."
-      (if (and viper-special-input-method (eq viper-current-state 'vi-state))
-          (viper-inactivate-input-method)
-        ad-do-it)))
+    '(defadvice toggle-input-method (around viper-mule-advice activate)
+       "Adjust input-method toggling in vi-state."
+       (if (and viper-special-input-method (eq viper-current-state 'vi-state))
+           (viper-inactivate-input-method)
+         ad-do-it)))
 
   ) ; viper-set-hooks