[Emacs-commit] emacs/lisp/mh-e mh-e.el ChangeLog

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/03/31 17:44:40

Modified files:
        lisp/mh-e      : mh-e.el ChangeLog 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-e.el.diff?tr1=1.85&tr2=1.86&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.194&tr2=1.195&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.194 emacs/lisp/mh-e/ChangeLog:1.195
--- emacs/lisp/mh-e/ChangeLog:1.194     Thu Mar 30 23:39:32 2006
+++ emacs/lisp/mh-e/ChangeLog   Fri Mar 31 17:44:40 2006
@@ -1,3 +1,8 @@
+2006-03-31  Bill Wohler  <address@hidden>
+
+       * mh-e.el (mh-strip-package-version): Move before use to avoid
+       compiler error. 
+
 2006-03-30  Bill Wohler  <address@hidden>
 
        * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to
Index: emacs/lisp/mh-e/mh-e.el
diff -u emacs/lisp/mh-e/mh-e.el:1.85 emacs/lisp/mh-e/mh-e.el:1.86
--- emacs/lisp/mh-e/mh-e.el:1.85        Thu Mar 30 23:39:32 2006
+++ emacs/lisp/mh-e/mh-e.el     Fri Mar 31 17:44:40 2006
@@ -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