diff options
| author | Joakim Verona | 2012-12-12 23:46:55 +0100 |
|---|---|---|
| committer | Joakim Verona | 2012-12-12 23:46:55 +0100 |
| commit | 3c91d70dbf62e178ef0362f00768b20fd0aac8b2 (patch) | |
| tree | a15c8f78ea2fa0fe17e27a38f7578dc93a0f5ca2 /lisp/button.el | |
| parent | 6c0558a3784650ffad28125802f49a846da9beb4 (diff) | |
| parent | 4c74b1e4657559c6edece6b978189fa4e68774c2 (diff) | |
| download | emacs-3c91d70dbf62e178ef0362f00768b20fd0aac8b2.tar.gz emacs-3c91d70dbf62e178ef0362f00768b20fd0aac8b2.zip | |
auto upstream
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." | |||
| 258 | "Return t if BUTTON has button-type TYPE, or one of TYPE's subtypes." | 258 | "Return t if BUTTON has button-type TYPE, or one of TYPE's subtypes." |
| 259 | (button-type-subtype-p (button-get button 'type) type)) | 259 | (button-type-subtype-p (button-get button 'type) type)) |
| 260 | 260 | ||
| 261 | (defun button--area-button-p (b) (stringp (car-safe b)) | 261 | (defun button--area-button-p (b) |
| 262 | "Return non-nil if BUTTON is an area button. | 262 | "Return non-nil if BUTTON is an area button. |
| 263 | Such area buttons are used for buttons in the mode-line and header-line.") | 263 | Such area buttons are used for buttons in the mode-line and header-line." |
| 264 | (stringp (car-safe b))) | ||
| 264 | 265 | ||
| 265 | (defalias 'button--area-button-string #'car | 266 | (defalias 'button--area-button-string #'car |
| 266 | "Return area button BUTTON's button-string.") | 267 | "Return area button BUTTON's button-string.") |