Re: doc-view cache file permissions

[Glenn Morris]

Stefan Monnier wrote:

> +    ;; Try and make sure doc-view-cache-directory exists and is safe.
> +    (condition-case nil
> +        (make-directory doc-view-cache-directory)
> +      (file-already-exists
> +       (cond
> +        ((file-symlink-p doc-view-cache-directory)
> +         (error "Danger: doc-view-cache-directory points to a symbolic 
> link"))
> +        ((not (file-directory-p doc-view-cache-directory))
> +         (error "doc-view-cache-directory is not a directory"))
> +        ((not (file-writable-p doc-view-cache-directory))
> +         (error "Cannot write to doc-view-cache-directory"))
> +        ((not (= (user-uid) (nth 2 (file-attributes 
> doc-view-cache-directory))))
> +         (error "Danger: doc-view-cache-directory does not belong to us")))))

Is that worthy of being the basis of a more generally available
`make-secure-directory' function?