bug#14438: 24.3.50; Honor `hi-lock-auto-select-face' for non-interactive use

[Juri Linkov]

>>       (add-hook 'occur-mode-find-occurrence-hook
>>                 (lambda nil (highlight-regexp
>>                              (find-tag-default-as-regexp))))
>
> You could use
>
>       (add-hook 'occur-mode-find-occurrence-hook
>                 (lambda nil (highlight-regexp
>                              (find-tag-default-as-regexp)
>                            (let ((hi-lock-auto-select-face t))
>                              (hi-lock-read-face-name)))))
>
> like I proposed to do in bug#14427 to get the next face automatically.
>
> BTW, what do you think about bug#14405 that adds a new defcustom
> `read-regexp-defaults-function' that is more user-friendly
> to customize than changing the values of several functions like
> `occur-read-regexp-defaults-function' and
> `hi-lock-read-regexp-defaults-function'?

It seems this report can be closed since `hi-lock-auto-select-face'
works as expected for interactive commands, and `hi-lock-read-face-name'
can be added as the second arg of the `highlight-regexp' call
when used programmatically:

      (add-hook 'occur-mode-find-occurrence-hook
                (lambda nil (highlight-regexp
                              (find-tag-default-as-regexp)
                              (hi-lock-read-face-name))))