("Emacs C source"
       (predicate file-in-directory-p default-directory
		  find-function-C-source-directory))
      ("Emacs source"
       (predicate file-in-directory-p default-directory lisp-directory))
      ("Remote files"
       (predicate if buffer-file-name (file-remote-p buffer-file-name)))
      ("Files" (visiting-file)) ("Info" (mode . Info-mode))
      ("Dired" (mode . dired-mode)) ("Shell" (mode . shell-mode))
      ("Custom" (mode . Custom-mode)) ("Processes" (process))
      ("ERC" (mode . erc-mode))