* lisp/faces.el (face-underline-p): Use face-attribute-specified-or.

lisp/ChangeLog

+2012-11-16  Glenn Morris  <rgm@gnu.org>
+
+	* faces.el (face-underline-p): Use face-attribute-specified-or.
+
 2012-11-15  Juanma Barranquero  <lekktu@gmail.com>
 
 	* emacs-lisp/cl-macs.el (cl-loop, cl-do, cl-do*): Doc fixes.

lisp/faces.el

@@ -497,7 +497,7 @@ with the `default' face (which is always completely specified)."
 If the optional argument FRAME is given, report on face FACE in that frame.
 If FRAME is t, report on the defaults for face FACE (for new frames).
 If FRAME is omitted or nil, use the selected frame."
- (not (memq (face-attribute face :underline frame) '(unspecified nil))))
+ (face-attribute-specified-or (face-attribute face :underline frame) nil))
 
 
 (defun face-inverse-video-p (face &optional frame)