[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111207: * lisp/button.el (button--ar
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111207: * lisp/button.el (button--area-button-p): Fix typo (defun is not defalias). |
Date: |
Wed, 12 Dec 2012 17:39:29 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111207
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2012-12-12 17:39:29 -0500
message:
* lisp/button.el (button--area-button-p): Fix typo (defun is not defalias).
modified:
lisp/ChangeLog
lisp/button.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-12-12 14:43:45 +0000
+++ b/lisp/ChangeLog 2012-12-12 22:39:29 +0000
@@ -1,3 +1,7 @@
+2012-12-12 Glenn Morris <address@hidden>
+
+ * button.el (button--area-button-p): Fix typo.
+
2012-12-12 Sam Steingold <address@hidden>
* frame.el (frame-maximization-style): New user option.
=== modified file 'lisp/button.el'
--- a/lisp/button.el 2012-12-11 18:49:25 +0000
+++ b/lisp/button.el 2012-12-12 22:39:29 +0000
@@ -258,9 +258,10 @@
"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.")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111207: * lisp/button.el (button--area-button-p): Fix typo (defun is not defalias).,
Glenn Morris <=