(require 'munsell-names)
(defun munsell-resolv-color (color)
- (munsell-split color (h-minor h-major v c)
- (munsell-lookup (munsell-round h-minor h-major v c 'round 'round 'round))
+ (munsell-split color (h v c)
+ (munsell-lookup (munsell-round h v c 'round 'round 'round))
(let ((p (assoc color munsell-named-color-alist)))
(if p
(cdr p)