[Emacs-diffs] /srv/bzr/emacs/trunk r112777: * lisp/emacs-lisp/eieio.el (eieio-eval-default-p): Move before use.

[Glenn Morris]

------------------------------------------------------------
revno: 112777
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-05-29 20:19:37 -0700
message:
  * lisp/emacs-lisp/eieio.el (eieio-eval-default-p): Move before use.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/eieio.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-30 03:18:06 +0000
+++ b/lisp/ChangeLog    2013-05-30 03:19:37 +0000
@@ -1,5 +1,7 @@
 2013-05-30  Glenn Morris  <address@hidden>
 
+       * emacs-lisp/eieio.el (eieio-eval-default-p): Move before use.
+
        * minibuffer.el (read-file-name-completion-ignore-case):
        Move before completion--in-region, for eager macro expansion.
 

=== modified file 'lisp/emacs-lisp/eieio.el'
--- a/lisp/emacs-lisp/eieio.el  2013-02-19 02:57:04 +0000
+++ b/lisp/emacs-lisp/eieio.el  2013-05-30 03:19:37 +0000
@@ -851,6 +851,10 @@
     cname
     ))
 
+(defsubst eieio-eval-default-p (val)
+  "Whether the default value VAL should be evaluated for use."
+  (and (consp val) (symbolp (car val)) (fboundp (car val))))
+
 (defun eieio-perform-slot-validation-for-default (slot spec value skipnil)
   "For SLOT, signal if SPEC does not match VALUE.
 If SKIPNIL is non-nil, then if VALUE is nil return t instead."
@@ -1554,10 +1558,6 @@
         (eieio-default-eval-maybe val))
        obj cl 'oref-default))))
 
-(defsubst eieio-eval-default-p (val)
-  "Whether the default value VAL should be evaluated for use."
-  (and (consp val) (symbolp (car val)) (fboundp (car val))))
-
 (defun eieio-default-eval-maybe (val)
   "Check VAL, and return what `oref-default' would provide."
   (cond