Ugly hack to wrap the `find-file-hook' things in `symbol-value' to avoid compilation...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4ea4814..019b9e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,9 @@
 
        * auth-source.el (with-auth-source-epa-overrides): Fix compilation
        error with `find-file-hooks' on Emacs 22.
+       (with-auth-source-epa-overrides): Ugly hack to Wrap the
+       `find-file-hook' things in `symbol-value' to avoid compilation warnings
+       on all architectures.
 
        * spam.el (spam-stat): Require in a normal fashion without binding
        `spam-stat-install-hooks' to avoid compilation warnings.

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 2e8a82a..146db11 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -981,7 +981,9 @@ Note that the MAX parameter is used so we can exit the parse early."
          (,(if (boundp 'find-file-hook) 'find-file-hook 'find-file-hooks)
           ',(remove
              'epa-file-find-file-hook
-             (if (boundp 'find-file-hook) find-file-hook find-file-hooks)))
+             (if (boundp 'find-file-hook)
+                (symbol-value 'find-file-hook)
+              (symbol-value 'find-file-hooks))))
          (auto-mode-alist
           ',(if (boundp 'epa-file-auto-mode-alist-entry)
                 (remove (symbol-value 'epa-file-auto-mode-alist-entry)