 Blue ==> regular file with maybe a region saved.
 RedOnWhite ==> Directory."
   (loop for i in bookmarks
-     for pred = (bookmark-get-filename i)
-     for bufp = (and (fboundp 'bookmarkp-get-buffer-name)
-                     (bookmarkp-get-buffer-name i))
-     for regp = (and (fboundp 'bookmarkp-get-end-position)
-                     (bookmarkp-get-end-position i)
-                     (/= (bookmark-get-position i)
-                         (bookmarkp-get-end-position i)))
-     for handlerp = (and (fboundp 'bookmark-get-handler)
-                         (bookmark-get-handler i))
+     for pred      = (bookmark-get-filename i)
+     for bufp      = (and (fboundp 'bookmarkp-get-buffer-name)
+                          (bookmarkp-get-buffer-name i))
+     for regp      = (and (fboundp 'bookmarkp-get-end-position)
+                          (bookmarkp-get-end-position i)
+                          (/= (bookmark-get-position i)
+                              (bookmarkp-get-end-position i)))
+     for handlerp  = (and (fboundp 'bookmark-get-handler)
+                          (bookmark-get-handler i))
+     for isannotation  = (bookmark-get-annotation i)       
+     if (and isannotation (not (string-equal isannotation "")))
+     do (setq i (concat "*" i))
      ;; info buffers
      if (and (fboundp 'bookmarkp-get-buffer-name)
              (eq handlerp 'Info-bookmark-jump)

  (defun anything-c-bookmark-ssh-files-setup-alist ()
    "Specialized filter function for bookmark+ ssh files."
    (loop
       with l = (anything-c-bookmark+-filter-setup-alist 'bookmarkp-remote-alist-only)
       for i in l
       for isfile = (bookmark-get-filename i)
       for istramp = (and isfile (boundp 'tramp-file-name-regexp)

     ;; buffer non--filename
     if (and (fboundp 'bookmarkp-get-buffer-name)
             bufp
             (not (bookmark-get-handler i))
             (if pred (not (file-exists-p pred)) (not pred)))
     collect (propertize i 'face '((:foreground "grey")))))
       

