Commit 1ff4ace5 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

Move `provide' to the end.

(facemenu-read-color): Don't cons unnecessarily.
parent 7598274b
...@@ -86,8 +86,6 @@ ...@@ -86,8 +86,6 @@
;;; Code: ;;; Code:
(provide 'facemenu)
(eval-when-compile (eval-when-compile
(require 'help) (require 'help)
(require 'button)) (require 'button))
...@@ -466,7 +464,7 @@ These special properties include `invisible', `intangible' and `read-only'." ...@@ -466,7 +464,7 @@ These special properties include `invisible', `intangible' and `read-only'."
"Read a color using the minibuffer." "Read a color using the minibuffer."
(let ((col (completing-read (or prompt "Color: ") (let ((col (completing-read (or prompt "Color: ")
(or facemenu-color-alist (or facemenu-color-alist
(mapcar 'list (defined-colors))) (defined-colors))
nil t))) nil t)))
(if (equal "" col) (if (equal "" col)
nil nil
...@@ -735,4 +733,5 @@ Returns the non-nil value it found, or nil if all were nil." ...@@ -735,4 +733,5 @@ Returns the non-nil value it found, or nil if all were nil."
(facemenu-update) (facemenu-update)
(provide 'facemenu)
;;; facemenu.el ends here ;;; facemenu.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment