diff options
| author | Mark Oteiza | 2016-11-04 14:22:05 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2016-11-04 14:22:05 -0400 |
| commit | 29559361f56c9398dcb69db7396dcfc0887843a2 (patch) | |
| tree | 40dae77f5db5252ba22f4cdb74735b153da5924b | |
| parent | 2c6920a3650b07f597ceb22c883710f464a41d94 (diff) | |
| download | emacs-29559361f56c9398dcb69db7396dcfc0887843a2.tar.gz emacs-29559361f56c9398dcb69db7396dcfc0887843a2.zip | |
; Restore nixed comments
| -rw-r--r-- | lisp/auth-source.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 13836aab984..c59ebf4a93c 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el | |||
| @@ -812,7 +812,9 @@ Returns the deleted entries." | |||
| 812 | "Forget all cached auth-source data." | 812 | "Forget all cached auth-source data." |
| 813 | (interactive) | 813 | (interactive) |
| 814 | (cl-do-symbols (sym password-data) | 814 | (cl-do-symbols (sym password-data) |
| 815 | ;; when the symbol name starts with auth-source-magic | ||
| 815 | (when (string-match (concat "^" auth-source-magic) (symbol-name sym)) | 816 | (when (string-match (concat "^" auth-source-magic) (symbol-name sym)) |
| 817 | ;; remove that key | ||
| 816 | (password-cache-remove (symbol-name sym)))) | 818 | (password-cache-remove (symbol-name sym)))) |
| 817 | (setq auth-source-netrc-cache nil)) | 819 | (setq auth-source-netrc-cache nil)) |
| 818 | 820 | ||