branch: externals/valign commit be82f6048118cbc81e6e029be1965f933612d871 Author: Yuan Fu <caso...@gmail.com> Commit: Yuan Fu <caso...@gmail.com>
Fix #25 * valign.el (valign--char-after-as-string): Replace 'if-let' with 'let'. --- valign.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/valign.el b/valign.el index d8b72a7..873067a 100644 --- a/valign.el +++ b/valign.el @@ -394,10 +394,10 @@ Return t if the dimension is correct, nil if not." (defsubst valign--char-after-as-string (&optional pos) "Return (char-after POS) as a string." ;; (char-to-string (char-after)) doesn’t work because - ;; ‘char-to-string’ doesn’t accept nil.b - (if-let ((ch (char-after pos))) - (char-to-string ch) - nil)) + ;; ‘char-to-string’ doesn’t accept nil. ‘if-let’ has some problems + ;; so I replaced it with ‘let’ and ‘if’ (See Bug #25 on GitHub). + (let ((ch (char-after pos))) + (if ch (char-to-string ch)))) (defun valign--separator-line-p (&optional charset) "Return t if this line is a separator line.