From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Peter Dyballa Newsgroups: gmane.emacs.help Subject: Re: Need Help on Whitespace-mode in Emacs 24.1.1 Date: Sun, 26 Aug 2012 17:57:03 +0200 Message-ID: <44668232-D1E0-4CBC-BDCA-C401D4263B25@Web.DE> References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 (Apple Message framework v1084) Content-Type: text/plain; charset=windows-1252 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1345996643 22949 80.91.229.3 (26 Aug 2012 15:57:23 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 26 Aug 2012 15:57:23 +0000 (UTC) Cc: help-gnu-emacs@gnu.org, 'Fan' To: Drew Adams Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sun Aug 26 17:57:23 2012 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1T5fDH-0006Ww-9l for geh-help-gnu-emacs@m.gmane.org; Sun, 26 Aug 2012 17:57:23 +0200 Original-Received: from localhost ([::1]:50854 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T5fDF-0007rJ-BQ for geh-help-gnu-emacs@m.gmane.org; Sun, 26 Aug 2012 11:57:21 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:58100) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T5fD6-0007qs-Gb for help-gnu-emacs@gnu.org; Sun, 26 Aug 2012 11:57:16 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1T5fD1-0003LA-E8 for help-gnu-emacs@gnu.org; Sun, 26 Aug 2012 11:57:12 -0400 Original-Received: from mout.web.de ([212.227.17.11]:56416) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T5fD1-0003Kz-33 for help-gnu-emacs@gnu.org; Sun, 26 Aug 2012 11:57:07 -0400 Original-Received: from [192.168.178.8] ([95.222.201.211]) by smtp.web.de (mrweb003) with ESMTPA (Nemesis) id 0Le4PE-1TQkxH2NMS-00qMii; Sun, 26 Aug 2012 17:57:04 +0200 In-Reply-To: X-Mailer: Apple Mail (2.1084) X-Provags-ID: V02:K0:V+Y2r6pyQyY+5CMAKS07jE4VM1adaWjLWfD3qew7ZuO TNY0Nc0q/euuNJLja3hxDAj2cJo9MmB1B0dIhBrAOoKpT2JC8H Wr0/RzstMSrYfkN8ZolJNrNSjWzRBf8svEBVHuj1MzpRDBaLgo QDngofJFQyVe2nOrobo6FelgCPzBMFkBXQ+uUNsL80V0Fd2xio OVv0FgvPVeZ75ovPH+lDQ== X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 212.227.17.11 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:86523 Archived-At: Am 26.08.2012 um 17:17 schrieb Drew Adams: > I've just posted my version on Emacs Wiki, as font-menus-da.el. But I = will > probably tweak it a bit more today. The output is a list of XLFD names =96 do they enable GNU Emacs 24 to = load these fonts via libfontconfig (and not via the X server), apply = libotf and libm17n-* to get full font support and complex type layout? = If not, than the fontconfig names (and features as if from = fc-list/fc-match) would be a better choice. And another output could be possible, that from this function by Miles = Bader: ;;; ---------------------------------------------------------------- ;;; list-fonts-display via font-config (defun list-fonts-display (&optional matching) "Display a list of font-families available via font-config, in a = new buffer. If the optional argument MATCHING is non-nil, only font families matching that regexp are displayed; interactively, a prefix argument will prompt for the regexp. The name of each font family is displayed using that family, as well as in the default font (to handle the case where a font cannot be used to display its own name)." (interactive (list (and current-prefix-arg (read-string "Display font families matching regexp: ")))) (let (families) (with-temp-buffer (shell-command "fc-list : family" t) (goto-char (point-min)) (while (not (eobp)) (let ((fam (buffer-substring (line-beginning-position) (line-end-position)))) (when (or (null matching) (string-match matching fam)) (push fam families))) (forward-line))) (setq families (sort families (lambda (x y) (string-lessp (downcase x) (downcase = y))))) (let ((buf (get-buffer-create "*Font Families*"))) (with-current-buffer buf (erase-buffer) (dolist (family families) ;; We need to pick one of the comma-separated names to ;; actually use the font; choose the longest one because = some ;; fonts have ambiguous general names as well as specific ;; ones. (let ((family-name (car (sort (split-string family ",") (lambda (x y) (> (length x) (length = y)))))) (nice-family (replace-regexp-in-string "," ", " = family))) (insert (concat (propertize nice-family 'face (list :family = family-name)) " (" nice-family ")")) (newline))) (goto-char (point-min))) (display-buffer buf)))) ;; -------------------------------------------------------- -- Greetings Pete No project was ever completed on time and within budget.=20 =96 Cheops Law