From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.bugs Subject: bug#46577: 28.0.50; Error: "Agenda file ... is not in Org mode" Date: Wed, 17 Feb 2021 00:49:17 +0100 Message-ID: <87o8gjh8ua.fsf@web.de> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="40532"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Lars Ingebrigtsen To: 46577@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Wed Feb 17 00:50:31 2021 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lCA6x-000ATa-Gp for geb-bug-gnu-emacs@m.gmane-mx.org; Wed, 17 Feb 2021 00:50:31 +0100 Original-Received: from localhost ([::1]:39316 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lCA6w-0001Q6-EQ for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 16 Feb 2021 18:50:30 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:52128) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lCA6U-0001Pk-Ds for bug-gnu-emacs@gnu.org; Tue, 16 Feb 2021 18:50:02 -0500 Original-Received: from debbugs.gnu.org ([209.51.188.43]:58690) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lCA6U-0003RA-60 for bug-gnu-emacs@gnu.org; Tue, 16 Feb 2021 18:50:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lCA6U-0006Kn-4V for bug-gnu-emacs@gnu.org; Tue, 16 Feb 2021 18:50:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 16 Feb 2021 23:50:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 46577 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.161351936524282 (code B ref -1); Tue, 16 Feb 2021 23:50:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 16 Feb 2021 23:49:25 +0000 Original-Received: from localhost ([127.0.0.1]:41997 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lCA5t-0006Ja-9q for submit@debbugs.gnu.org; Tue, 16 Feb 2021 18:49:25 -0500 Original-Received: from lists.gnu.org ([209.51.188.17]:40878) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lCA5r-0006JS-9T for submit@debbugs.gnu.org; Tue, 16 Feb 2021 18:49:23 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:52008) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lCA5r-0001Kv-1m for bug-gnu-emacs@gnu.org; Tue, 16 Feb 2021 18:49:23 -0500 Original-Received: from mout.web.de ([212.227.15.14]:52497) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lCA5o-0003N1-OS for bug-gnu-emacs@gnu.org; Tue, 16 Feb 2021 18:49:22 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=web.de; s=dbaedf251592; t=1613519358; bh=88D3FRklFsn++d3UOJfj0iYBnEGli1wg3tOMgf8zDAg=; h=X-UI-Sender-Class:From:To:Cc:Subject:Date; b=N1T7uWsCfsVfpRSgmaO666OvYayr0FEe7HjVU8neNeoX31gGFyapJjQDiAlkDYjzC jIlPCmBiNEXPLl7mDXC8lfNoE3WgGIP7OTbbiHP/RliRJyP6wI+V3UlyFRmiAsxKvT fH+oId1RkeYxxulJdSdRVXB1jGFZ9uF6y3zsKlls= X-UI-Sender-Class: c548c8c5-30a9-4db5-a2e7-cb6cb037b8f9 Original-Received: from drachen.dragon ([94.218.220.60]) by smtp.web.de (mrweb002 [213.165.67.108]) with ESMTPSA (Nemesis) id 0M2us2-1m2Tzk1c0s-00sd5i; Wed, 17 Feb 2021 00:49:18 +0100 X-Provags-ID: V03:K1:kvtJzhL/zd+vinDd/nvLUFdWTWf8/FZW1I6OHu2qZeFPfu3rN8v AaD+O+Ybux9ZjsBNUvJtPQZc4Xpgv3qiv54OtaVO6ztHkqC+Oymz0ER6+DbfAbNjO2VpHVZ GXejlT1GYr0K3zd1cbEQPpXZAEhAGnm0ZjlJHjXPg4OJ8EJWkgcEOoibfHVZmGEX6/BNPw+ Eo8uKqZ5qinqE6Lmyyk+w== X-UI-Out-Filterresults: notjunk:1;V03:K0:Q2Fxcy0J57Y=:vtip7Hj4TmZ0EZea97t6OZ uekRdZ2nFItEDrg2Ii63ZAicSMdGlBucCrf5aOb51I5JstGesZOSm55E5TWAlWRCkwFnm4oYl y6LfbRd3iD95OSWrZuLUkKOsvGhfoefD23bRuKHZPE5ChEI+ICCX2TcqjPWI7y6GTNynEFCdy kahTnlk6c0axa7gTgkiMkIo8f0bFNohvnir06wsPDxXnsQ1T6b/ZChXWRuCjqADm64/MzqRvR FGVNL7SFoEWDovFgcQ/2zZ02hJXooZLoyusY8H0Ia3aJOjoGm8EMfBB9utOTxEi9/pwVF7SXY atGWmEBvLip/gpjLF6H1rsKkH1x/9iLmxK/JDjctAcgrnLqkQWDOnqIyYpeVpprFmg5fNQxIO wSwv4J3gsNAREFSY3LdkF1EiquXIFgPheLl6CMzruhr64EhHpPJg3GH1PPoHKYxGOOVf7wWtS ALiqCiMw+T8+/driEuWOjOUgyGq0VnbguUeO6VtN+WjkxtzEi99i2FUtpgqdQGtT5kxFNsSA+ DvUeEmMKCqcZXNP6Bzl2n86Mki4gG0AxtMPX6kGFexe4L2jcUUXkRBtoHnVKWZgkZtqtI0ORr 2ZIZ9Tx3FpFD4JaNLkLkswTzlcJfhECA71d0bjtPcLIZ1F1Z7s8xpaHMlWxdeRBmcw5bvotDY Rep1KWrdmds4HfZ3PxhPbXhYee0i/hgRmk36HmenHtqdbNo8k2eg08qZmMDOucxqDjTIebx8H VubGmJPRXUh29IkQ4kjpL2bJViA/Vq45jcClrid9goDrXurE43h9FfrCExpRHPJLJexTcRHF Received-SPF: pass client-ip=212.227.15.14; envelope-from=michael_heerdegen@web.de; helo=mout.web.de X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H4=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:200176 Archived-At: Hello, ok, this one is new - two days old maybe? When starting Emacs (with my config) I get: | Debugger entered--Lisp error: (error "Agenda file /home/micha/gnu-emacs/t= odo/todo.org is not in Org mode") | signal(error ("Agenda file /home/micha/gnu-emacs/todo/todo.org is not i= n Org mode")) | error("Agenda file %s is not in Org mode" "/home/micha/gnu-emacs/todo/t= odo.org") | #f(compiled-function (file date &rest args) #)("/home/micha/gnu-emacs/todo/todo.org" (2 17 2021) :deadline :scheduled = :timestamp :sexp) | apply(#f(compiled-function (file date &rest args) #) ("/home/micha/gnu-emacs/todo/todo.org" (2 17 2021) :deadline :sch= eduled :timestamp :sexp)) | (mapcar #'(lambda (entry) (let ((entry-tags (get-text-property 0 'tags = entry))) (cond ((equal "past-scheduled" (get-text-property 0 ... entry)) ni= l) ((member "noalarmclock" entry-tags) nil) ((and (member "alarmclock" entr= y-tags) (not ...)) (org-add-props entry nil 'time-of-day 0)) (t entry)))) (= apply org-agenda-get-day-entries-orig args)) | (delq nil (mapcar #'(lambda (entry) (let ((entry-tags (get-text-propert= y 0 ... entry))) (cond ((equal "past-scheduled" ...) nil) ((member "noalarm= clock" entry-tags) nil) ((and ... ...) (org-add-props entry nil ... 0)) (t = entry)))) (apply org-agenda-get-day-entries-orig args))) | (let ((entries (delq nil (mapcar #'(lambda (entry) (let ... ...)) (appl= y org-agenda-get-day-entries-orig args))))) (let ((--dolist-tail-- entries)= ) (while --dolist-tail-- (let ((e (car --dolist-tail--))) (if (get-text-pro= perty 1 'time-of-day e) (progn (let (...) (put-text-property 0 ... ... ... = txt)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) entries) | org-agenda-get-day-entries("/home/micha/gnu-emacs/todo/todo.org" (2 17 = 2021) :deadline :scheduled :timestamp :sexp) | apply(org-agenda-get-day-entries "/home/micha/gnu-emacs/todo/todo.org" = (2 17 2021) (:deadline :scheduled :timestamp :sexp)) | org-agenda-to-appt(nil (closure ((#:--err) cl-struct-my-register-with-a= nnotation-tags cl-struct-register-backup-tags info-lookup-alist edebug-back= trace-buffer wdired-allow-to-change-permissions cl-struct-my-dired-marked-f= iles-tags company-active-map company-idle-delay @@@my-interned-symbol-that-= no-one-ever-used@@@ my-minibuffer---is-_-mode-map my-recorded-backtrace t) = (entry) (let ((entry-taglist (get-text-property 0 'tags entry)) (location-t= ags '("apolda" "aalen"))) (not (or (cl-intersection (remove (downcase ...) = location-tags) entry-taglist))))) :deadline :scheduled :timestamp :sexp) | apply(org-agenda-to-appt nil (closure ((#:--err) cl-struct-my-register-= with-annotation-tags cl-struct-register-backup-tags info-lookup-alist edebu= g-backtrace-buffer wdired-allow-to-change-permissions cl-struct-my-dired-ma= rked-files-tags company-active-map company-idle-delay @@@my-interned-symbol= -that-no-one-ever-used@@@ my-minibuffer---is-_-mode-map my-recorded-backtra= ce t) (entry) (let ((entry-taglist (get-text-property 0 'tags entry)) (loca= tion-tags '("apolda" "aalen"))) (not (or (cl-intersection (remove (downcase= ...) location-tags) entry-taglist))))) (:deadline :scheduled :timestamp :s= exp)) | (progn (fset 'org-agenda-get-day-entries #:vnew) (fset 'appt-add #:vnew= ) (apply org-agenda-to-appt-function refresh (funcall (or filter-fun #'iden= tity) filter) (funcall (or get-args-fun #'identity) args))) | (unwind-protect (progn (fset 'org-agenda-get-day-entries #:vnew) (fset = 'appt-add #:vnew) (apply org-agenda-to-appt-function refresh (funcall (or f= ilter-fun #'identity) filter) (funcall (or get-args-fun #'identity) args)))= (fset 'org-agenda-get-day-entries #:old) (fset 'appt-add #:old)) | (let* ((#:vnew #'(lambda (time msg warntime) (if (and (stringp warntime= ) (not ...)) (progn (setq warntime ...))) (if (alarm-clock-org-agenda-to-al= arm-clock--time-ok-p time warntime) (progn (let ... ...))))) (#:vnew #'(lam= bda (&rest args) (let ((entries ...)) (let (...) (while --dolist-tail-- ...= )) entries))) (#:old (symbol-function 'org-agenda-get-day-entries)) (#:old = (symbol-function 'appt-add))) (unwind-protect (progn (fset 'org-agenda-get-= day-entries #:vnew) (fset 'appt-add #:vnew) (apply org-agenda-to-appt-funct= ion refresh (funcall (or filter-fun #'identity) filter) (funcall (or get-ar= gs-fun #'identity) args))) (fset 'org-agenda-get-day-entries #:old) (fset '= appt-add #:old))) | (let ((org-agenda-get-day-entries-orig (symbol-function 'org-agenda-get= -day-entries))) (let* ((#:vnew #'(lambda (time msg warntime) (if (and ... .= ..) (progn ...)) (if (alarm-clock-org-agenda-to-alarm-clock--time-ok-p time= warntime) (progn ...)))) (#:vnew #'(lambda (&rest args) (let (...) (let ..= . ...) entries))) (#:old (symbol-function 'org-agenda-get-day-entries)) (#:= old (symbol-function 'appt-add))) (unwind-protect (progn (fset 'org-agenda-= get-day-entries #:vnew) (fset 'appt-add #:vnew) (apply org-agenda-to-appt-f= unction refresh (funcall (or filter-fun #'identity) filter) (funcall (or ge= t-args-fun #'identity) args))) (fset 'org-agenda-get-day-entries #:old) (fs= et 'appt-add #:old)))) | (closure ((predicate) (get-args-fun) (filter-fun) alarm-clock-in-mode-l= ine-mode cl-struct-alarm-clock-tags t) (org-agenda-to-appt-function &option= al refresh filter &rest args) (let ((org-agenda-get-day-entries-orig (symbo= l-function 'org-agenda-get-day-entries))) (let* ((#:vnew #'(lambda ... ... = ...)) (#:vnew #'(lambda ... ...)) (#:old (symbol-function 'org-agenda-get-d= ay-entries)) (#:old (symbol-function 'appt-add))) (unwind-protect (progn (f= set 'org-agenda-get-day-entries #:vnew) (fset 'appt-add #:vnew) (apply org-= agenda-to-appt-function refresh (funcall ... filter) (funcall ... args))) (= fset 'org-agenda-get-day-entries #:old) (fset 'appt-add #:old)))))(org-agen= da-to-appt nil (closure ((#:--err) cl-struct-my-register-with-annotation-ta= gs cl-struct-register-backup-tags info-lookup-alist edebug-backtrace-buffer= wdired-allow-to-change-permissions cl-struct-my-dired-marked-files-tags co= mpany-active-map company-idle-delay @@@my-interned-symbol-that-no-one-ever-= used@@@ my-minibuffer---is-_-mode-map my-recorded-backtrace t) (entry) (let= ((entry-taglist (get-text-property 0 'tags entry)) (location-tags '("apold= a" "aalen"))) (not (or (cl-intersection (remove (downcase ...) location-tag= s) entry-taglist))))) :deadline :scheduled :timestamp :sexp) | apply((closure ((predicate) (get-args-fun) (filter-fun) alarm-clock-in-= mode-line-mode cl-struct-alarm-clock-tags t) (org-agenda-to-appt-function &= optional refresh filter &rest args) (let ((org-agenda-get-day-entries-orig = (symbol-function 'org-agenda-get-day-entries))) (let* ((#:vnew #'(lambda ..= . ... ...)) (#:vnew #'(lambda ... ...)) (#:old (symbol-function 'org-agenda= -get-day-entries)) (#:old (symbol-function 'appt-add))) (unwind-protect (pr= ogn (fset 'org-agenda-get-day-entries #:vnew) (fset 'appt-add #:vnew) (appl= y org-agenda-to-appt-function refresh (funcall ... filter) (funcall ... arg= s))) (fset 'org-agenda-get-day-entries #:old) (fset 'appt-add #:old))))) or= g-agenda-to-appt nil (closure ((#:--err) cl-struct-my-register-with-annotat= ion-tags cl-struct-register-backup-tags info-lookup-alist edebug-backtrace-= buffer wdired-allow-to-change-permissions cl-struct-my-dired-marked-files-t= ags company-active-map company-idle-delay @@@my-interned-symbol-that-no-one= -ever-used@@@ my-minibuffer---is-_-mode-map my-recorded-backtrace t) (entry= ) (let ((entry-taglist (get-text-property 0 'tags entry)) (location-tags '(= "apolda" "aalen"))) (not (or (cl-intersection (remove (downcase ...) locati= on-tags) entry-taglist))))) (:deadline :scheduled :timestamp :sexp)) | org-agenda-to-alarm-clock() | apply(org-agenda-to-alarm-clock nil) | timer-event-handler([t 24621 40944 0 86400 org-agenda-to-alarm-clock ni= l nil 0]) The `org-agenda-to-alarm-clock' is my own stuff, but the error happens in an ordinary `org-agenda-get-day-entries' call. Haven't looked further, haven't studied the changes yet. Does the backtrace ring a bell? What I can say is that bootstrapping doesn't "fix" it. The problem started to appear yesterday after fetching and rebuilding, say, around 28 hours ago. The day before (I build daily) the thing worked. Sorry, I have no recipe, if you need to reproduce this you will at least need an org file with scheduled entries, then you could try to open the org agenda with entries for that file, or try to call `org-agenda-get-day-entries' directly like the appearance in the backtrace. Or tell me when I could try something on my side. TIA, Michael. In GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.24, c= airo version 1.16.0) of 2021-02-17 built on drachen Repository revision: 415330dde314fe53870c246466f6a48aa5cef395 Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12010000 System Description: Debian GNU/Linux bullseye/sid