   (let ((hits-p  nil))
     (save-excursion
       (goto-char start)
-      (while (and (< start end) (not (eobp)) (re-search-forward regexp end t)
+      (while (and (< start end)  (not (eobp))  (re-search-forward regexp end t)
                   (setq hits-p  t))
         (condition-case nil
             (progn (forward-char 1) (setq start  (1+ (point))))
           (end-of-buffer (setq start  end)))
-        (hlt-highlight-region (match-beginning (or nth 0))
-                              (match-end (or nth 0)) face nil mouse-p)))
+        (hlt-highlight-region (match-beginning (or nth  0))
+                              (match-end (or nth  0)) face nil mouse-p)))
     (when (eq t msg-p)
       (if hits-p
           (message "Highlighting occurrences of `%s' done.  %s" regexp

(defvar hi-lock-mode)
(defvar hlt-act-on-any-face-flag)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;(@* "Menus")

;;; Menu-Bar `Edit' Menu ---------------------------------------------

(define-key-after menu-bar-edit-menu [hlt-copy-props]
  '(menu-item "Copy Text Properties" hlt-copy-props
    :help "Copy text properties at point, for subsequent pasting") 'paste)
(define-key-after menu-bar-edit-menu [hlt-yank-props]
    '(menu-item "Paste Text Properties" hlt-yank-props
      :help "Paste previously copied text properties to text in region"
      :enable (and mark-active (not buffer-read-only)))
    'hlt-copy-props)

;;; Menu-Bar `Edit' > `Region' Menu ----------------------------------

;;    Highlighting commands.
;;
;;    More description below.
 
;;(@> "Index")
;;
;;  Index
