|
Lines 302-307
Link Here
|
| 302 |
"The encryption password. This variable is buffer-local.") |
302 |
"The encryption password. This variable is buffer-local.") |
| 303 |
|
303 |
|
| 304 |
(make-variable-buffer-local 'jka-compr-ccrypt-buffer-password) |
304 |
(make-variable-buffer-local 'jka-compr-ccrypt-buffer-password) |
|
|
305 |
(put 'jka-compr-ccrypt-buffer-password 'permanent-local t) |
| 305 |
|
306 |
|
| 306 |
(defun jka-compr-ccrypt-read-passwd (&optional confirm default) |
307 |
(defun jka-compr-ccrypt-read-passwd (&optional confirm default) |
| 307 |
(read-passwd (format "Password for %s: " (buffer-name)) confirm default)) |
308 |
(read-passwd (format "Password for %s: " (buffer-name)) confirm default)) |
