Re: Making `x-underline-at-descent-line' a face attribute

[Po Lu]

Eli Zaretskii <eliz@gnu.org> writes:

> Can you post some tests to run and see if it works OK?

Here you go:

  ;; Underline should appear at 3 pixels above the descent line.
  (set-face-attribute 'default nil :underline '(:position 3))

  ;; Underline should appear at the descent line.
  (set-face-attribute 'default nil :underline '(:position 0))

  ;; Underline should appear at the descent line.
  (set-face-attribute 'default nil :underline '(:position t))

  ;; Underline should appear at the default location determined by
  ;; x-use-underline-position-properties.
  (set-face-attribute 'default nil :underline '(:position nil))

Thanks.