diff options
| -rw-r--r-- | kasi-totp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kasi-totp.el b/kasi-totp.el index b0f9a5f..f22c30c 100644 --- a/kasi-totp.el +++ b/kasi-totp.el | |||
| @@ -81,7 +81,7 @@ string." | |||
| 81 | 81 | ||
| 82 | This is not a 100% faithful implementation of RFC 4648. The | 82 | This is not a 100% faithful implementation of RFC 4648. The |
| 83 | concept of encoding partial quanta is not implemented fully." | 83 | concept of encoding partial quanta is not implemented fully." |
| 84 | (unless (mod (length string) 8) | 84 | (unless (zerop (mod (length string) 8)) |
| 85 | (error "Padding is incorrect")) | 85 | (error "Padding is incorrect")) |
| 86 | (setq string (upcase string)) | 86 | (setq string (upcase string)) |
| 87 | (let* ((trimmed-array (append (string-trim-right string "=+") nil)) | 87 | (let* ((trimmed-array (append (string-trim-right string "=+") nil)) |