+(defcustom save-place-limit nil
+ "Maximum number of entries to retain in the list; nil means no limit."
+ :type '(choice (integer :tag "Entries" :value 1)
+ (const :tag "No Limit" nil))
+ :group 'save-place)
+
+(defcustom save-place-forget-unreadable-files t
+ "Non-nil means forget place in unreadable files.
+
+The filenames in `save-place-alist' that do not match
+`save-place-skip-check-regexp' are filtered through
+`file-readable-p'. if nil, their alist entries are removed.
+
+You may do this anytime by calling the complementary function,
+`save-place-forget-unreadable-files'. When this option is turned on,
+this happens automatically before saving `save-place-alist' to
+`save-place-file'."
+ :type 'boolean :group 'save-place)
+
+(defcustom save-place-save-skipped t
+ "If non-nil, remember files matching `save-place-skip-check-regexp'.
+
+When filtering `save-place-alist' for unreadable files, some will not
+be checked, based on said regexp, and instead saved or forgotten based
+on this flag."
+ :type 'boolean :group 'save-place)
+
+(defcustom save-place-skip-check-regexp
+ ;; thanks to ange-ftp-name-format
+ "\\`/\\(?:cdrom\\|floppy\\|mnt\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)"
+ "Regexp whose file names shall not be checked for readability.
+
+When forgetting unreadable files, file names matching this regular
+expression shall not be checked for readability, but instead be
+subject to `save-place-save-skipped'.
+
+Files for which such a check may be inconvenient include those on
+removable and network volumes."
+ :type 'regexp :group 'save-place)