- (button-category-symbol (car (cdr type-entry))))))
- ;; Now add all the text properties at once
- (add-text-properties beg end
- ;; Each button should have a non-eq `button'
- ;; property so that next-single-property-change can
- ;; detect boundaries reliably.
- (cons 'button (cons (list t) properties)))
- ;; Return something that can be used to get at the button.
- beg)
-
-;;;###autoload
+ (button-category-symbol (car (cdr type-entry)))))
+ ;; Now add all the text properties at once
+ (add-text-properties beg end
+ ;; Each button should have a non-eq `button'
+ ;; property so that next-single-property-change can
+ ;; detect boundaries reliably.
+ (cons 'button (cons (list t) properties))
+ object)
+ ;; Return something that can be used to get at the button.
+ beg))
+