[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/faces.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/faces.el |
Date: |
Mon, 13 Jun 2005 16:47:08 -0400 |
Index: emacs/lisp/faces.el
diff -c emacs/lisp/faces.el:1.316 emacs/lisp/faces.el:1.317
*** emacs/lisp/faces.el:1.316 Sat Jun 11 13:09:31 2005
--- emacs/lisp/faces.el Mon Jun 13 20:47:08 2005
***************
*** 1,6 ****
;;; faces.el --- Lisp faces
! ;; Copyright (C) 1992,1993,1994,1995,1996,1998,1999,2000,2001,2002,2004
;; Free Software Foundation, Inc.
;; Maintainer: FSF
--- 1,6 ----
;;; faces.el --- Lisp faces
! ;; Copyright (C) 1992,1993,1994,1995,1996,1998,1999,2000,2001,2002,2004,2005
;; Free Software Foundation, Inc.
;; Maintainer: FSF
***************
*** 854,859 ****
--- 854,861 ----
Otherwise, return a single face."
(let ((faceprop (or (get-char-property (point) 'read-face-name)
(get-char-property (point) 'face)))
+ (aliasfaces nil)
+ (nonaliasfaces nil)
faces)
;; Make a list of the named faces that the `face' property uses.
(if (and (listp faceprop)
***************
*** 870,875 ****
--- 872,884 ----
(memq (intern-soft (thing-at-point 'symbol)) (face-list)))
(setq faces (list (intern-soft (thing-at-point 'symbol)))))
+ ;; Build up the completion tables.
+ (mapatoms (lambda (s)
+ (if (custom-facep s)
+ (if (get s 'face-alias)
+ (push (symbol-name s) aliasfaces)
+ (push (symbol-name s) nonaliasfaces)))))
+
;; If we only want one, and the default is more than one,
;; discard the unwanted ones now.
(unless multiple
***************
*** 883,889 ****
(if faces (mapconcat 'symbol-name faces ", ")
string-describing-default))
(format "%s: " prompt))
! obarray 'custom-facep t))
;; Canonicalize the output.
(output
(if (equal input "")
--- 892,898 ----
(if faces (mapconcat 'symbol-name faces ", ")
string-describing-default))
(format "%s: " prompt))
! (complete-in-turn nonaliasfaces aliasfaces) nil t))
;; Canonicalize the output.
(output
(if (equal input "")
***************
*** 2289,2293 ****
(provide 'faces)
! ;;; arch-tag: 19a4759f-2963-445f-b004-425b9aadd7d6
;;; faces.el ends here
--- 2298,2302 ----
(provide 'faces)
! ;; arch-tag: 19a4759f-2963-445f-b004-425b9aadd7d6
;;; faces.el ends here
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Juanma Barranquero, 2005/06/01
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Juanma Barranquero, 2005/06/03
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Juri Linkov, 2005/06/06
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Richard M . Stallman, 2005/06/08
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Richard M . Stallman, 2005/06/08
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Eli Zaretskii, 2005/06/11
- [Emacs-diffs] Changes to emacs/lisp/faces.el,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Richard M . Stallman, 2005/06/17
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Miles Bader, 2005/06/20
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Juri Linkov, 2005/06/21
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Miles Bader, 2005/06/21
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Miles Bader, 2005/06/21
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Glenn Morris, 2005/06/22
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Richard M . Stallman, 2005/06/23
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Luc Teirlinck, 2005/06/25
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Juri Linkov, 2005/06/29
- [Emacs-diffs] Changes to emacs/lisp/faces.el, Juri Linkov, 2005/06/30