Changeset 4161 for trunk/lisp/pgg.el

Timestamp:

09/09/06 16:30:10 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/pgg.el (modified) (2 diffs)

trunk/lisp/pgg.el

@@ -149 +149 @@
-                           key notruncate))))
-
+(if (fboundp 'clear-string)
+    (defalias 'pgg-clear-string 'clear-string)
+  (defun pgg-clear-string (string)
+    (fillarray string ?_)))
+
-(defun pgg-remove-passphrase-from-cache (key &optional notruncate)
-  "Omit passphrase associated with KEY in time-limited passphrase cache.
@@ -167 +172 @@
-         (old-timer (symbol-value interned-timer-key)))
-    (when passphrase
-fillarray passphrase ?_
+pgg-clear-string passphrase
-      (unintern key pgg-passphrase-cache))
-    (when old-timer