branch: elpa/base32
commit 9b6ac038a134c9ecd74306fc3db2caa4b745c6dc
Author: Vivek Das Mohapatra <[email protected]>
Commit: Vivek Das Mohapatra <[email protected]>
Eliminate reference to obsolete internal variable in an error path
---
totp-interop.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/totp-interop.el b/totp-interop.el
index 03b5bcaa44..08ea4d4810 100644
--- a/totp-interop.el
+++ b/totp-interop.el
@@ -145,7 +145,7 @@ for use in the return value of `totp-unwrap-otp-blob`"
res))
(defun totp-pb-decode-migration-data (buf &optional pos)
- (let (offset pb-item pb-value pb-field what next result item i)
+ (let (offset pb-item pb-value what next result item i)
(setq offset (or pos 0)
i 0
what :tag)
@@ -154,7 +154,7 @@ for use in the return value of `totp-unwrap-otp-blob`"
((eq what :tag) (totp-pb-read-tag buf offset))
((eq what :len) (totp-pb-read-len buf offset))
((eq what :varint) (totp-pb-read-varint buf offset))
- (t (error "Unhandled type: %S" pb-field)))
+ (t (error "Unhandled type: %S" what)))
pb-value (car pb-item)
offset (+ (cdr pb-item) offset)
next (if (eq what :tag) (cdr pb-value) :tag))
