;;; button.el --- clickable buttons
;;
-;; Copyright (C) 2001-2012 Free Software Foundation, Inc.
+;; Copyright (C) 2001-2014 Free Software Foundation, Inc.
;;
;; Author: Miles Bader <miles@gnu.org>
;; Keywords: extensions
"Return t if BUTTON has button-type TYPE, or one of TYPE's subtypes."
(button-type-subtype-p (button-get button 'type) type))
-(defun button--area-button-p (b) (stringp (car-safe b))
+(defun button--area-button-p (b)
"Return non-nil if BUTTON is an area button.
-Such area buttons are used for buttons in the mode-line and header-line.")
+Such area buttons are used for buttons in the mode-line and header-line."
+ (stringp (car-safe b)))
(defalias 'button--area-button-string #'car
"Return area button BUTTON's button-string.")