mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2012-12-12 17:39:29 -05:00
parent 202c16d5f5
commit 4c74b1e465
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

5
lisp/button.el
View File

@ -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.")