(shr-color-set-minimum-interval): Renamed to add prefix

bug#10732

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2306e82..b9e05c0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-02-07  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * shr-color.el (shr-color-set-minimum-interval): Renamed to add prefix
+       (bug#10732).
+
        * shr.el (shr-insert-document): Add doc string.
        (shr-visit-file): Ditto.
        (shr-remove-trailing-whitespace): New function.

diff --git a/lisp/shr-color.el b/lisp/shr-color.el
index e23ab57..7011034 100644 (file)
--- a/lisp/shr-color.el
+++ b/lisp/shr-color.el
@@ -267,7 +267,8 @@ Like rgb() or hsl()."
      (t
       nil))))
 
-(defun set-minimum-interval (val1 val2 min max interval &optional fixed)
+(defun shr-color-set-minimum-interval (val1 val2 min max interval
+                                           &optional fixed)
   "Set minimum interval between VAL1 and VAL2 to INTERVAL.
 The values are bound by MIN and MAX.
 If FIXED is t, then VAL1 will not be touched."
@@ -341,9 +342,9 @@ color will be adapted to be visible on BG."
                 (>= luminance-distance shr-color-visible-luminance-min))
            (list bg fg)
          ;; Not visible, try to change luminance to make them visible
-         (let ((Ls (set-minimum-interval (car bg-lab) (car fg-lab) 0 100
-                                         shr-color-visible-luminance-min
-                                         fixed-background)))
+         (let ((Ls (shr-color-set-minimum-interval
+                    (car bg-lab) (car fg-lab) 0 100
+                    shr-color-visible-luminance-min fixed-background)))
            (unless fixed-background
              (setcar bg-lab (car Ls)))
            (setcar fg-lab (cadr Ls))