(md5 (current-buffer)))))
(when (not (file-writable-p location))
(if (y-or-n-p (format "Sorry, %s is read-only, can I use %s? "
(md5 (current-buffer)))))
(when (not (file-writable-p location))
(if (y-or-n-p (format "Sorry, %s is read-only, can I use %s? "