+;; Image retrieval
+
+(defun elopher-get-image-node ()
+ (let ((content (elopher-node-content elopher-current-node))
+ (address (elopher-node-address elopher-current-node)))
+ (if content
+ (progn
+ (let ((inhibit-read-only t))
+ (insert-image content))
+ (elopher-restore-pos))
+ (elopher-get-selector address
+ (lambda (proc event)
+ (let ((image (create-image elopher-selector-string))
+ (inhibit-read-only t))
+ (insert-image image)
+ (elopher-restore-pos)
+ (elopher-set-node-content image)))
+ 'binary))))
+
+
+
+;;; Navigation procedures