     (setq face  hlt-last-face))
   (apply #'hlt-highlight-regexp-region
          (append (hlt-region-or-buffer-limits)
-                 (list "`\\([^']+\\)'" face (and (interactive-p) t) nil 1))))
+                 (list "`\\([^']+\\)'" face (and (interactive-p)  t) nil 1))))
 
 ;;;###autoload
 (defun hlt-mouse-face-each-line (&optional start end face msg-p)

           (message "Text you type now will have face `%s'." face)
           (facemenu-add-new-face face)
           ;; It is `facemenu-add-face' that either uses region or next insert.
           (facemenu-add-face face (and mark-active start) (and mark-active end))
           (when (and mark-active start end (/= start end))
             (put-text-property start end 'hlt-highlight    face)
             (put-text-property start end 'font-lock-ignore t)))
          (t (put-text-property start end 'face             face)

            hi-face)
        (while (< beg end)
          (when (setq hi-face  (get-text-property beg 'hlt-highlight))
            (when (or (null face)  (eq hi-face face))
              ;; $$$ Really, we should remove only the part of the `face'
              ;;     property that belongs to Highlight, and set the value to be
              ;;     the same as it is, but without hlt-last-face.
