Re: [nongnu] elpa/base32 66741b0aeb 1/5: base32-decode: Handle payloads shorter than allowed padding lengths

[Stefan Monnier]

>            ((eq 0 input-shortfall) ;; already padded
>             (setq output-shorten
> -                 (cond ((equal (substring input -6) "======") -4)
> -                       ((equal (substring input -4)   "====") -3)
> -                       ((equal (substring input -3)    "===") -2)
> -                       ((equal (substring input -1)      "=") -1)
> +                 (cond ((equal (ignore-errors (substring input -6)) 
> "======") -4)
> +                       ((equal (ignore-errors (substring input -4))   
> "====") -3)
> +                       ((equal (ignore-errors (substring input -3))    
> "===") -2)
> +                       ((equal (ignore-errors (substring input -1))      
> "=") -1)
>                         (t 0))))
>            (t (error "Invalid base32 payload length: %d" input-byte-count)))

You might want to use `string-suffix-p`. 🙂


        Stefan