(mh-strip-package-version): Move before use to avoid compiler error.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 648767173929c1b675e522f5ea05fd856c2c8808..51fdf8cce3288aa20989874e60dd46d9929d86c3 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-31  Bill Wohler  <wohler@newt.com>
+
+       * mh-e.el (mh-strip-package-version): Move before use to avoid
+       compiler error. 
+
 2006-03-30  Bill Wohler  <wohler@newt.com>
 
        * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to

diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index ce2db4fb66e59bdb2bbd9b220b284ab3fe13e3b7..191cecb709aa8694cda6bf73fc74f3107ac149cc 100644 (file)
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -895,6 +895,19 @@ necessary and can actually cause problems."
 
 ;; Temporary function and data structure used customization.
 ;; These will be unbound after the options are defined.
+(defun mh-strip-package-version (args)
+  "Strip :package-version keyword and its value from ARGS.
+In Emacs versions that support the :package-version keyword,
+ARGS is returned unchanged."
+  (if (boundp 'customize-package-emacs-version-alist)
+      args
+    (let (seen)
+      (loop for keyword in args
+            if (cond ((eq keyword ':package-version) (setq seen t) nil)
+                     (seen (setq seen nil) nil)
+                     (t t))
+            collect keyword))))
+
 (defmacro mh-defgroup (symbol members doc &rest args)
   "Declare SYMBOL as a customization group containing MEMBERS.
 See documentation for `defgroup' for a description of the arguments
@@ -925,19 +938,6 @@ keyword, introduced in Emacs 22."
   `(defface ,face ,spec ,doc ,@(mh-strip-package-version args)))
 (put 'mh-defface 'lisp-indent-function 'defun)
 
-(defun mh-strip-package-version (args)
-  "Strip :package-version keyword and its value from ARGS.
-In Emacs versions that support the :package-version keyword,
-ARGS is returned unchanged."
-  (if (boundp 'customize-package-emacs-version-alist)
-      args
-    (let (seen)
-      (loop for keyword in args
-            if (cond ((eq keyword ':package-version) (setq seen t) nil)
-                     (seen (setq seen nil) nil)
-                     (t t))
-            collect keyword))))
-
 \f
 
 ;;; MH-E Customization