[nongnu] elpa/base32 9b6ac038a1 018/103: Eliminate reference to obsolete internal variable in an error path

[ELPA Syncer]

branch: elpa/base32
commit 9b6ac038a134c9ecd74306fc3db2caa4b745c6dc
Author: Vivek Das Mohapatra <vivek@collabora.co.uk>
Commit: Vivek Das Mohapatra <vivek@collabora.co.uk>

    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))