 ;;     `anything-c-source-icicle-region' (Icicle Regions)
 ;;  Kill ring:
 ;;     `anything-c-source-kill-ring' (Kill Ring)
+;;  Mark ring:
+;;     `anything-c-source-mark-ring'        (mark-ring)
+;;     `anything-c-source-global-mark-ring' (global-mark-ring)
 ;;  Register:
 ;;     `anything-c-source-register' (Registers)
 ;;  Headline Extraction:

;;    List all anything sources for test.
;;  `anything-select-source'
;;    Select source.
;;  `anything-yaoddmuse-cache-pages'
;;    Fetch the list of files on emacswiki and create cache file.
;;  `anything-yaoddmuse-emacswiki-edit-or-view'

RedOnWhite ==> Directory."
  (loop for i in files
     for pred = (bookmark-get-filename i)
     for bufp = (and (fboundp 'bookmark-get-buffer-name)
                     (bookmark-get-buffer-name i))
     for regp = (and (fboundp 'bookmark-get-end-position)
                     (bookmark-get-end-position i)
                     (/= (bookmark-get-position i)
                         (bookmark-get-end-position i)))
     for handlerp = (and (fboundp 'bookmark-get-handler)
                         (bookmark-get-handler i))
     ;; directories
     if (and pred 
             (file-directory-p pred))
     collect (propertize i 'face anything-c-bookmarks-face1 'help-echo pred)
     ;; regular files
     if (and pred 
             (not (file-directory-p pred))
             (file-exists-p pred)
             (not regp))
     collect (propertize i 'face anything-c-bookmarks-face2 'help-echo pred)
     ;; regular files with regions saved
     if (and pred 
             (not (file-directory-p pred))
             (file-exists-p pred)
             regp)
     collect (propertize i 'face '((:foreground "Indianred2")) 'help-echo pred)
     ;; gnus
     if (eq handlerp 'bookmark-jump-gnus)
     collect (propertize i 'face '((:foreground "magenta")) 'help-echo pred)
     ;; buffer non--filename
     if (and (fboundp 'bookmark-get-buffer-name)
             bufp
             (not (eq handlerp 'bookmark-jump-gnus))
             (not pred))
     collect (propertize i 'face '((:foreground "grey")))
     ;; w3m buffers
     if (and (fboundp 'bookmark-get-buffer-name)
             (string= bufp "*w3m*")
             (when pred
               (not (file-exists-p pred))))
     collect (propertize i 'face '((:foreground "yellow")) 'help-echo pred)
     ;; info buffers
     if (and (fboundp 'bookmark-get-buffer-name)
             (eq handlerp 'Info-bookmark-jump)
             (string= bufp "*info*"))
     collect (propertize i 'face '((:foreground "green")) 'help-echo pred)))
       

(defvar anything-c-source-bookmarks-local
