- (let ((password (symbol-value (intern-soft key password-data))))
- (when password
- (if (fboundp 'clear-string)
- (clear-string password)
- (fillarray password ?_))
- (unintern key password-data))))
+ (let ((sym (intern-soft key password-data)))
+ (when sym
+ (let ((password (symbol-value sym)))
+ (when (stringp password)
+ (if (fboundp 'clear-string)
+ (clear-string password)
+ (fillarray password ?_)))
+ (unintern key password-data)))))