comparison lisp/facemenu.el @ 109409:ff42e5c5f789

Merge from mainline.

109408:4eded71f4215

	    (setcdr lc nil)))))
  (let ((buf (get-buffer-create "*Colors*")))
    (with-current-buffer buf
      (erase-buffer)
      (setq truncate-lines t)
      (list-colors-print list callback)
      (set-buffer-modified-p nil))
    (pop-to-buffer buf))
  (if callback
      (message "Click on a color to select it.")))

(defun list-colors-print (list &optional callback)
  (let ((callback-fn

109409:ff42e5c5f789

	    (setcdr lc nil)))))
  (let ((buf (get-buffer-create "*Colors*")))
    (with-current-buffer buf
      (erase-buffer)
      (setq truncate-lines t)
      ;; Display buffer before generating content to allow
      ;; `list-colors-print' to get the right window-width.
      (pop-to-buffer buf)
      (list-colors-print list callback)
      (set-buffer-modified-p nil)))
  (if callback
      (message "Click on a color to select it.")))

(defun list-colors-print (list &optional callback)
  (let ((callback-fn