From: Glenn Morris <rgm@gnu.org>
Date: Wed, 12 Dec 2012 22:39:29 +0000 (-0500)
Subject: * lisp/button.el (button--area-button-p): Fix typo (defun is not defalias).
X-Git-Tag: emacs-24.3.90~173^2~7^2~615
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c74b1e4657559c6edece6b978189fa4e68774c2;p=emacs.git

* lisp/button.el (button--area-button-p): Fix typo (defun is not defalias).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index adf8d9f88f0..3d3892a12be 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-12-12  Glenn Morris  <rgm@gnu.org>
+
+	* button.el (button--area-button-p): Fix typo.
+
 2012-12-12  Sam Steingold  <sds@gnu.org>
 
 	* frame.el (frame-maximization-style): New user option.
diff --git a/lisp/button.el b/lisp/button.el
index f15f09f24db..f93d08f2e3d 100644
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -258,9 +258,10 @@ header-line) a string."
   "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.")