Hi all,
Ikumi Keita <ik...@ikumi.que.jp> writes:
> branch: main
> commit 510d82b3b356dbbd007fd085662afea99e947fb7
> Author: Paul Nelson <ultr...@gmail.com>
> Commit: Ikumi Keita <ik...@ikumi.que.jp>
Thanks for providing and installing this. I have a minor comment:
> + ;; Fold quotes if TeX-fold-quotes-on-insert is t
> + (when (and (boundp 'TeX-fold-mode)
> + (boundp 'TeX-fold-quotes-on-insert)
> + (fboundp 'TeX-fold-quotes)
> + TeX-fold-mode
> + TeX-fold-quotes-on-insert
Wouldn't `bound-and-true-p' be easier here, i.e.:
(when (and (bound-and-true-p TeX-fold-mode)
(bound-and-true-p TeX-fold-quotes-on-insert)
(fboundp 'TeX-fold-quotes))
> + (not (eq (char-before) ?\"))) ; Don't fold single quotes
> + (save-excursion
> + (let* ((end (point))
> + (start (- end
> + (length
> + (if (string= (buffer-substring-no-properties
> + (max (point-min)
> + (- end (length open-quote)))
> + end)
> + open-quote)
> + open-quote
> + close-quote)))))
> + (when start
> + (TeX-fold-quotes start end))))))))
> +
Best, Arash
