andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(read-face-name): Put the code for getting a face name

Browse source 
from the buffer before adding the faces from the `face' property.
Use `completing-read-multiple' instead of `completing-read'.
Require `crm'.  Add default value and post-process the returned
list of faces.
This commit is contained in:
Juri Linkov 2005-07-04 01:03:23 +00:00
parent 62a3378eac
commit 224d108edc
1 changed files with 17 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
lisp/faces.el
View file

@ -869,7 +869,10 @@ Otherwise, return a single face."
(aliasfaces nil)
(nonaliasfaces nil)
faces)
;; Make a list of the named faces that the `face' property uses.
;; Try to get a face name from the buffer.
(if (memq (intern-soft (thing-at-point 'symbol)) (face-list))
(setq faces (list (intern-soft (thing-at-point 'symbol)))))
;; Add the named faces that the `face' property uses.
(if (and (listp faceprop)
;; Don't treat an attribute spec as a list of faces.
(not (keywordp (car faceprop)))
@ -879,10 +882,6 @@ Otherwise, return a single face."
(push f faces)))
(if (symbolp faceprop)
(push faceprop faces)))
;; If there are none, try to get a face name from the buffer.
(if (and (null faces)
(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)
@ -896,22 +895,27 @@ Otherwise, return a single face."
(unless multiple
(if faces
(setq faces (list (car faces)))))
(require 'crm)
(let* ((input
;; Read the input.
(completing-read
(completing-read-multiple
(if (or faces string-describing-default)
(format "%s (default %s): " prompt
(if faces (mapconcat 'symbol-name faces ", ")
(if faces (mapconcat 'symbol-name faces ",")
string-describing-default))
(format "%s: " prompt))
(complete-in-turn nonaliasfaces aliasfaces) nil t))
(complete-in-turn nonaliasfaces aliasfaces)
nil t nil nil
(if faces (mapconcat 'symbol-name faces ","))))
;; Canonicalize the output.
(output
(if (equal input "")
faces
(if (stringp input)
(list (intern input))
input))))
(cond ((or (equal input "") (equal input '("")))
faces)
((stringp input)
(mapcar 'intern (split-string input ", *" t)))
((listp input)
(mapcar 'intern input))
(input))))
;; Return either a list of faces or just one face.
(if multiple
output