|
|
|---|
"The encryption password. This variable is buffer-local.") | "The encryption password. This variable is buffer-local.") |
| |
(make-variable-buffer-local 'jka-compr-ccrypt-buffer-password) | (make-variable-buffer-local 'jka-compr-ccrypt-buffer-password) |
|
(put 'jka-compr-ccrypt-buffer-password 'permanent-local t) |
| |
(defun jka-compr-ccrypt-read-passwd (&optional confirm default) | (defun jka-compr-ccrypt-read-passwd (&optional confirm default) |
(read-passwd (format "Password for %s: " (buffer-name)) confirm default)) | (read-passwd (format "Password for %s: " (buffer-name)) confirm default)) |
