comparison lisp/facemenu.el @ 46248:345d4d775bf0

Move `provide' to the end. (facemenu-read-color): Don't cons unnecessarily.

46247:2e162cb1a7ac

;;
;; Please send me any other problems, comments or ideas.

;;; Code:

(provide 'facemenu)

(eval-when-compile 
  (require 'help)
  (require 'button))

;;; Provide some binding for startup:

;;;###autoload
(defun facemenu-read-color (&optional prompt)
  "Read a color using the minibuffer."
  (let ((col (completing-read (or prompt "Color: ") 
			      (or facemenu-color-alist
				  (mapcar 'list (defined-colors)))
			      nil t)))
    (if (equal "" col)
	nil
      col)))

    (setq list (cdr list)))
  (car list))

(facemenu-update)

;;; facemenu.el ends here

46248:345d4d775bf0

;;
;; Please send me any other problems, comments or ideas.

;;; Code:

(eval-when-compile 
  (require 'help)
  (require 'button))

;;; Provide some binding for startup:

;;;###autoload
(defun facemenu-read-color (&optional prompt)
  "Read a color using the minibuffer."
  (let ((col (completing-read (or prompt "Color: ") 
			      (or facemenu-color-alist
				  (defined-colors))
			      nil t)))
    (if (equal "" col)
	nil
      col)))

    (setq list (cdr list)))
  (car list))

(facemenu-update)

(provide 'facemenu)
;;; facemenu.el ends here