Re: how to make next-error work on non-grep non-compilation

[Jim Newton]

here is the stacktrace I get from next-error.
It appears there is no 'message text property on the lines, but isn't this what 
the function compilation-compat-parse-errors does?

Debugger entered--Lisp error: (error "Moved past last grep hit")
  signal(error ("Moved past last grep hit"))
  error("Moved past last %s" "grep hit")
  (or (setq msg (get-text-property pt ...)) (if (setq pt ...) (setq msg ...)) 
(error (if ... "No more %ss yet" "Moved past last %s") compilation-error))
  (while (> n 0) (setq opt pt) (or (setq pt ...) (if ... ... ...)) (or (setq 
msg ...) (if ... ...) (error ... compilation-error)) (or (< ... 
compilation-skip-threshold) (if different-file ...) (if 
compilation-skip-visited ...) (if compilation-skip-to-next-location ...) (setq 
n ...)))
  (let (opt) (while (> n 0) (setq opt pt) (or ... ...) (or ... ... ...) (or ... 
... ... ... ...)))
  (compilation-loop > next-single-property-change 1- (if (get-buffer-process 
...) "No more %ss yet" "Moved past last %s") (point-max))
  (if (>= n 0) (compilation-loop > next-single-property-change 1- (if ... "No 
more %ss yet" "Moved past last %s") (point-max)) (setq pt 
(previous-single-property-change pt ... nil ...)) (compilation-loop < 
previous-single-property-change 1+ "Moved back before first %s" (point-min)))
  (if (zerop n) (unless (or msg ...) (setq pt ...) (unless ... ... ...)) (setq 
last (nth 2 ...)) (if (>= n 0) (compilation-loop > next-single-property-change 
1- ... ...) (setq pt ...) (compilation-loop < previous-single-property-change 
1+ "Moved back before first %s" ...)))
  (let* ((msg ...) (loc ...) last) (if (zerop n) (unless ... ... ...) (setq 
last ...) (if ... ... ... ...)) (goto-char pt) (or msg (error "No %s here" 
compilation-error)))
  compilation-next-error(1 nil #<marker at 343 in *grep*>)
  compilation-next-error-function(1 nil)
  funcall(compilation-next-error-function 1 nil)
  (save-current-buffer (set-buffer next-error-last-buffer) (funcall 
next-error-function (prefix-numeric-value arg) reset) (when next-error-recenter 
(recenter next-error-recenter)) (run-hooks (quote next-error-hook)))
  (with-current-buffer next-error-last-buffer (funcall next-error-function 
(prefix-numeric-value arg) reset) (when next-error-recenter (recenter 
next-error-recenter)) (run-hooks (quote next-error-hook)))
  (progn (with-current-buffer next-error-last-buffer (funcall 
next-error-function ... reset) (when next-error-recenter ...) (run-hooks ...)))
  (if (setq next-error-last-buffer (next-error-find-buffer)) (progn 
(with-current-buffer next-error-last-buffer ... ... ...)))
  (when (setq next-error-last-buffer (next-error-find-buffer)) 
(with-current-buffer next-error-last-buffer (funcall next-error-function ... 
reset) (when next-error-recenter ...) (run-hooks ...)))
  next-error(nil)
  call-interactively(next-error nil nil)