Commit 45ce222e authored by Glenn Morris's avatar Glenn Morris
Browse files

* lisp/emacs-lisp/eieio.el (eieio-eval-default-p): Move before use.

parent f146f2e4
2013-05-30 Glenn Morris <rgm@gnu.org>
 
* 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.
 
......
......@@ -851,6 +851,10 @@ See `defclass' for more information."
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 @@ Fills in OBJ's SLOT with its default value."
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment