diff options
Diffstat (limited to 'lisp/button.el')
| -rw-r--r-- | lisp/button.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/button.el b/lisp/button.el index c6389c7c3c9..df954871985 100644 --- a/lisp/button.el +++ b/lisp/button.el @@ -64,7 +64,9 @@ ;;;###autoload (defvar button-map (let ((map (make-sparse-keymap))) - (define-key map "\r" 'push-button) + ;; The following definition needs to avoid using escape sequences that + ;; might get converted to ^M when building loaddefs.el + (define-key map [(control ?m)] 'push-button) (define-key map [mouse-2] 'push-button) map) "Keymap used by buttons.") @@ -116,7 +118,7 @@ Buttons inherit them by setting their `category' property to that symbol." ;;;###autoload (defun define-button-type (name &rest properties) - "Define a `button type' called NAME. + "Define a `button type' called NAME (a symbol). The remaining arguments form a sequence of PROPERTY VALUE pairs, specifying properties to use as defaults for buttons with this type \(a button's type may be set by giving it a `type' property when @@ -470,5 +472,5 @@ Returns the button found." (provide 'button) -;;; arch-tag: 5f2c7627-413b-4097-b282-630f89d9c5e9 +;; arch-tag: 5f2c7627-413b-4097-b282-630f89d9c5e9 ;;; button.el ends here |