- (let ((annotation
- (make-annotation (make-glyph (car (aref button 1)))
- pos 'text buffer nil
- (make-glyph (cadr (aref button 1)))))
- (action (aref button 2)))
- (and action
- (progn
- (set-annotation-action annotation action)
- (set-annotation-data annotation (aref button 3))))))