Mercurial > hg > xemacs-beta

comparison lisp/packages/cu-edit-faces.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents
children
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
1 ;;; edit-faces.el -- interactive face editing mode
2
3 ;; Copyright (C) 1997 Jens Lautenbacher
4 ;;
5 ;; This file is part of XEmacs.
6 ;;
7 ;; XEmacs is free software; you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation; either version 2 of the License, or
10 ;; (at your option) any later version.
11 ;;
12 ;; XEmacs is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
16 ;;
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with XEmacs; if not, write to the Free Software
19 ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20
21 ;;; Synched up with: Not in FSF.
22
23 ;;; Just another TTPC (Totally Trivial Piece of Code (TM)). All the
24 ;;; needed functionality for editing faces is already in custom.el. So
25 ;;; why don't use it, you may ask. OK, here I am...
26
27 (require 'custom)
28 (require 'cl)
29
30 ;;;###autoload
31 (defun cu-edit-faces ()
32 (interactive)
33 (let (tmp-list elem)
34 (put 'available-faces 'custom-group nil)
35 (setq tmp-list (sort (face-list)
36 '(lambda (one two)
37 (if (string< (symbol-name one)
38 (symbol-name two)) t
39 nil))))
40 (while (setq elem (pop tmp-list))
41 (custom-add-to-group 'available-faces elem 'custom-face))
42 (message "Please stand by while generating list of faces...")
43 (customize 'available-faces)))
44
45 (provide 'cu-edit-faces)
46
47 ;;; cu-edit-faces.el ends here.