diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-07-08 01:21:41 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-07-08 01:21:41 +0000 |
| commit | 1ff4ace5850fad676c226c8d2753efee7faed50a (patch) | |
| tree | 60d3bc674b135f784cb91d8f9f99792513b05314 /lisp/facemenu.el | |
| parent | 7598274bda83c1125284a7d8210e3aa9fb9788a4 (diff) | |
| download | emacs-1ff4ace5850fad676c226c8d2753efee7faed50a.tar.gz | |
Move `provide' to the end.
(facemenu-read-color): Don't cons unnecessarily.
Diffstat (limited to 'lisp/facemenu.el')
| -rw-r--r-- | lisp/facemenu.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index ca81ebec67d..37399e0d901 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -86,8 +86,6 @@ ;;; Code: -(provide 'facemenu) - (eval-when-compile (require 'help) (require 'button)) @@ -466,7 +464,7 @@ These special properties include `invisible', `intangible' and `read-only'." "Read a color using the minibuffer." (let ((col (completing-read (or prompt "Color: ") (or facemenu-color-alist - (mapcar 'list (defined-colors))) + (defined-colors)) nil t))) (if (equal "" col) nil @@ -735,4 +733,5 @@ Returns the non-nil value it found, or nil if all were nil." (facemenu-update) +(provide 'facemenu) ;;; facemenu.el ends here |