diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-12-12 17:39:29 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-12-12 17:39:29 -0500 |
| commit | 4c74b1e4657559c6edece6b978189fa4e68774c2 (patch) | |
| tree | e96ec6b4a92224835c8b8c6a6c826eb554b04d0a /lisp/button.el | |
| parent | 202c16d5f5f7d64026f4d0a7e4bb106ea7dbfff1 (diff) | |
| download | emacs-4c74b1e4657559c6edece6b978189fa4e68774c2.tar.gz | |
* lisp/button.el (button--area-button-p): Fix typo (defun is not defalias).
Diffstat (limited to 'lisp/button.el')
| -rw-r--r-- | lisp/button.el | 5 |
1 files changed, 3 insertions, 2 deletions
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.") |