Mercurial > emacs

--- a/lisp/mh-e/ChangeLog	Fri Mar 31 17:37:49 2006 +0000
+++ b/lisp/mh-e/ChangeLog	Fri Mar 31 17:44:40 2006 +0000
@@ -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
--- a/lisp/mh-e/mh-e.el	Fri Mar 31 17:37:49 2006 +0000
+++ b/lisp/mh-e/mh-e.el	Fri Mar 31 17:44:40 2006 +0000
@@ -895,6 +895,19 @@

 ;; 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 @@
   `(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))))
-


 ;;; MH-E Customization