[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#16815: 24.3.50; Provide completion for `describe-font' (enhancement

From: Drew Adams
Subject: bug#16815: 24.3.50; Provide completion for `describe-font' (enhancement request)
Date: Fri, 29 Apr 2016 11:39:59 -0700 (PDT)

> Hm...  would that be completion over this?
> (fontset-list)
> =>
> ("-DAMA-Ubuntu Mono-normal-normal-normal-*-24-*-*-*-m-0-fontset-startup"
> "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard" "-*-*-*-*-*-*-
> *-*-*-*-*-*-fontset-default")

No.  That is a list of fontsets, not fonts.

The completion candidates should be the installed fonts.

This is what I use, FWIW:

(let ((fonts        (make-hash-table :test #'equal))
      (fontset-lst  (fontset-list)))
  (setq fontset-lst  (delete "-*-*-*-*-*-*-*-*-*-*-*-*-fontset-default"
  (dolist (ft  (append fontset-lst (x-list-fonts "*"))  fonts)
    (puthash ft t fonts)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]