- "---- Bookmark list ----\n\n"
- "Use 'u' to return to the previous page.\n\n")
- (dolist (bookmark (elpher-load-bookmarks))
- (let ((type (elpher-bookmark-type bookmark))
- (display-string (elpher-bookmark-display-string bookmark))
- (address (elpher-bookmark-address bookmark)))
- (elpher-insert-index-record-helper type display-string
- (elpher-address-selector address)
- (elpher-address-host address)
- (elpher-address-port address))))
+ "Use 'u' to return to the previous page.\n\n"
+ "---- Bookmark list ----\n\n")
+ (let ((bookmarks (elpher-load-bookmarks)))
+ (if bookmarks
+ (dolist (bookmark (elpher-load-bookmarks))
+ (let ((type (elpher-bookmark-type bookmark))
+ (display-string (elpher-bookmark-display-string bookmark))
+ (address (elpher-bookmark-address bookmark)))
+ (elpher-insert-index-record-helper type display-string
+ (elpher-address-selector address)
+ (elpher-address-host address)
+ (elpher-address-port address))))
+ (insert "No bookmarks found.\n")))
+ (insert "\n-----------------------")