From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Jim Newton Newsgroups: gmane.emacs.help Subject: Re: how to make next-error work on non-grep non-compilation Date: Fri, 20 May 2011 04:47:54 -0700 (PDT) Organization: http://groups.google.com Message-ID: References: <488618d5-7787-4c18-876d-622852f33350@k3g2000prl.googlegroups.com> Reply-To: gnu.emacs.help@googlegroups.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1306269353 23025 80.91.229.12 (24 May 2011 20:35:53 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 24 May 2011 20:35:53 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue May 24 22:35:49 2011 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QOyKS-00070t-HX for geh-help-gnu-emacs@m.gmane.org; Tue, 24 May 2011 22:35:48 +0200 Original-Received: from localhost ([::1]:45264 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QOyKR-0001m5-V5 for geh-help-gnu-emacs@m.gmane.org; Tue, 24 May 2011 16:35:47 -0400 Original-Path: usenet.stanford.edu!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 47 Original-NNTP-Posting-Host: 213.131.238.28 Original-X-Trace: posting.google.com 1305892074 25912 127.0.0.1 (20 May 2011 11:47:54 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Fri, 20 May 2011 11:47:54 +0000 (UTC) In-Reply-To: <488618d5-7787-4c18-876d-622852f33350@k3g2000prl.googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=213.131.238.28; posting-account=hcE4OwoAAADycW4UgYxbAF_GOWiPYhXJ User-Agent: G2/1.0 X-Google-Web-Client: true Original-Xref: usenet.stanford.edu gnu.emacs.help:186868 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:81206 Archived-At: 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 (set= q msg ...) (if ... ...) (error ... compilation-error)) (or (< ... compilati= on-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-proces= s ...) "No more %ss yet" "Moved past last %s") (point-max)) (if (>=3D n 0) (compilation-loop > next-single-property-change 1- (if ...= "No more %ss yet" "Moved past last %s") (point-max)) (setq pt (previous-si= ngle-property-change pt ... nil ...)) (compilation-loop < previous-single-p= roperty-change 1+ "Moved back before first %s" (point-min))) (if (zerop n) (unless (or msg ...) (setq pt ...) (unless ... ... ...)) (s= etq last (nth 2 ...)) (if (>=3D n 0) (compilation-loop > next-single-proper= ty-change 1- ... ...) (setq pt ...) (compilation-loop < previous-single-pro= perty-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 #) compilation-next-error-function(1 nil) funcall(compilation-next-error-function 1 nil) (save-current-buffer (set-buffer next-error-last-buffer) (funcall next-er= ror-function (prefix-numeric-value arg) reset) (when next-error-recenter (r= ecenter 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-fu= nction ... reset) (when next-error-recenter ...) (run-hooks ...))) (if (setq next-error-last-buffer (next-error-find-buffer)) (progn (with-c= urrent-buffer next-error-last-buffer ... ... ...))) (when (setq next-error-last-buffer (next-error-find-buffer)) (with-curren= t-buffer next-error-last-buffer (funcall next-error-function ... reset) (wh= en next-error-recenter ...) (run-hooks ...))) next-error(nil) call-interactively(next-error nil nil)