"Default face used for buttons."
:group 'basic-faces)
-;;;###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.")
-;;;###autoload
(defvar button-buffer-map
(let ((map (make-sparse-keymap)))
(define-key map [?\t] 'forward-button)
(or (get type 'button-category-symbol)
(error "Unknown button type `%s'" type)))
-;;;###autoload
(defun define-button-type (name &rest properties)
"Define a `button type' called NAME (a symbol).
The remaining arguments form a sequence of PROPERTY VALUE pairs,
\f
;; Creating overlay buttons
-;;;###autoload
(defun make-button (beg end &rest properties)
"Make a button from BEG to END in the current buffer.
The remaining arguments form a sequence of PROPERTY VALUE pairs,
;; OVERLAY is the button, so return it
overlay))
-;;;###autoload
(defun insert-button (label &rest properties)
"Insert a button with the label LABEL.
The remaining arguments form a sequence of PROPERTY VALUE pairs,
\f
;; Creating text-property buttons
-;;;###autoload
(defun make-text-button (beg end &rest properties)
"Make a button from BEG to END in the current buffer.
The remaining arguments form a sequence of PROPERTY VALUE pairs,
;; Return something that can be used to get at the button.
beg)
-;;;###autoload
(defun insert-text-button (label &rest properties)
"Insert a button with the label LABEL.
The remaining arguments form a sequence of PROPERTY VALUE pairs,