- ((or ?g ?p ?I) (elopher-insert-margin "im")
- (insert-text-button display-string
- 'face elopher-image-face
- 'elopher-node (elopher-make-node elopher-current-node
- address
- #'elopher-get-image-node)
- 'action #'elopher-click-link
- 'follow-link t
- 'help-echo help-string))
+ ((or ?g ?p ?I) (elopher-insert-margin "im") ; Image
+ (insert-text-button display-string
+ 'face elopher-image-face
+ 'elopher-node (elopher-make-node elopher-current-node
+ address
+ #'elopher-get-image-node)
+ 'action #'elopher-click-link
+ 'follow-link t
+ 'help-echo help-string))
+ ((or ?4 ?9) (elopher-insert-margin "B") ; Binary
+ (insert-text-button display-string
+ 'face elopher-binary-face
+ 'elopher-node (elopher-make-node elopher-current-node
+ address
+ #'elopher-get-node-download)
+ 'action #'elopher-click-link
+ 'follow-link t
+ 'help-echo help-string))