From: "Andreas Röhler" <andreas.roehler@easy-emacs.de>
To: 54878@debbugs.gnu.org
Subject: bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil
Date: Tue, 12 Apr 2022 10:20:03 +0200 [thread overview]
Message-ID: <28d81cf8-6e8c-dcbf-61fc-c7f928a2a3da@easy-emacs.de> (raw)
[-- Attachment #1: Type: text/plain, Size: 7872 bytes --]
GNU Emacs 29.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 2.24.32,
cairo version 1.16.0) of 2022-04-06
Error from M-x calendar RET, backtrace below.
Caused by custom-file content of
'(calendar-mark-diary-entries-flag t)
'(calendar-view-diary-initially-flag t)
Error from ‘diary-fancy-display’
(with-current-buffer (find-buffer-visiting diary-file)
and get ‘nil’ from ‘(find-buffer-visiting diary-file)’.
Thanks,
Andreas
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
diary-fancy-display()
diary-list-entries((4 12 2022) nil)
diary-view-entries()
calendar-basic-setup(nil)
calendar(nil)
funcall-interactively(calendar nil)
call-interactively(calendar record nil)
(prog1 (call-interactively cmd record-flag keys) (if (and (symbolp
cmd) (get cmd 'byte-obsolete-info) (not (get cmd
'command-execute-obsolete-warned))) (progn (put cmd
'command-execute-obsolete-warned t) (message "%s"
(macroexp--obsolete-warning cmd (get cmd 'byte-obsolete-info) "command")))))
(cond ((arrayp final) (if record-flag (progn (add-to-history
'command-history (list 'execute-kbd-macro final prefixarg) nil t)))
(execute-kbd-macro final prefixarg)) (t (prog1 (call-interactively cmd
record-flag keys) (if (and (symbolp cmd) (get cmd 'byte-obsolete-info)
(not (get cmd 'command-execute-obsolete-warned))) (progn (put cmd
'command-execute-obsolete-warned t) (message "%s"
(macroexp--obsolete-warning cmd (get cmd ...) "command")))))))
(let ((final cmd)) (while (progn (setq final (indirect-function
final)) (if (autoloadp final) (setq final (autoload-do-load final
cmd))))) (cond ((arrayp final) (if record-flag (progn (add-to-history
'command-history (list 'execute-kbd-macro final prefixarg) nil t)))
(execute-kbd-macro final prefixarg)) (t (prog1 (call-interactively cmd
record-flag keys) (if (and (symbolp cmd) (get cmd 'byte-obsolete-info)
(not (get cmd ...))) (progn (put cmd 'command-execute-obsolete-warned t)
(message "%s" (macroexp--obsolete-warning cmd ... "command"))))))))
(if (and (symbolp cmd) (get cmd 'disabled) (or (and (setq query (and
(consp (get cmd ...)) (eq (car ...) 'query))) (not
(command-execute--query cmd))) (and (not query)
disabled-command-function))) (if (not query) (progn (run-hooks
'disabled-command-function))) (let ((final cmd)) (while (progn (setq
final (indirect-function final)) (if (autoloadp final) (setq final
(autoload-do-load final cmd))))) (cond ((arrayp final) (if record-flag
(progn (add-to-history 'command-history (list ... final prefixarg) nil
t))) (execute-kbd-macro final prefixarg)) (t (prog1 (call-interactively
cmd record-flag keys) (if (and (symbolp cmd) (get cmd ...) (not ...))
(progn (put cmd ... t) (message "%s" ...))))))))
(let ((prefixarg (if special nil (prog1 prefix-arg (setq
current-prefix-arg prefix-arg) (setq prefix-arg nil) (if
current-prefix-arg (progn (prefix-command-update)))))) query) (if (and
(symbolp cmd) (get cmd 'disabled) (or (and (setq query (and (consp ...)
(eq ... ...))) (not (command-execute--query cmd))) (and (not query)
disabled-command-function))) (if (not query) (progn (run-hooks
'disabled-command-function))) (let ((final cmd)) (while (progn (setq
final (indirect-function final)) (if (autoloadp final) (setq final
(autoload-do-load final cmd))))) (cond ((arrayp final) (if record-flag
(progn (add-to-history ... ... nil t))) (execute-kbd-macro final
prefixarg)) (t (prog1 (call-interactively cmd record-flag keys) (if (and
... ... ...) (progn ... ...))))))))
command-execute(calendar record)
(let ((prefix-arg prefixarg)) (command-execute function 'record))
(let* (#'(and (stringp command-name) (intern-soft command-name))
(binding (and suggest-key-bindings (not executing-kbd-macro)
(where-is-internal function overriding-local-map t)))
(delay-before-suggest 0) (find-shorter nil)) (if (commandp function) nil
(error "`%s' is not a valid command name" command-name))
(set--this-command-keys (concat "\370" (symbol-name function) "\15"))
(setq this-command function) (setq real-this-command function) (let
((prefix-arg prefixarg)) (command-execute function 'record)) (if
execute-extended-command--binding-timer (progn (cancel-timer
execute-extended-command--binding-timer))) (if (and suggest-key-bindings
(or binding (and extended-command-suggest-shorter typed))) (progn (setq
delay-before-suggest (cond ((= 0 (length ...)) 0) ((numberp
suggest-key-bindings) suggest-key-bindings) (t 2))) (if (and
extended-command-suggest-shorter (not binding) (not executing-kbd-macro)
(symbolp function) (> (length (symbol-name function)) 2)) (progn (setq
find-shorter t))) (if (or binding find-shorter) (progn (setq
execute-extended-command--binding-timer (run-at-time
delay-before-suggest nil #'...)))))))
execute-extended-command(nil "calendar" nil)
funcall-interactively(execute-extended-command nil "calendar" nil)
call-interactively(execute-extended-command nil nil)
(prog1 (call-interactively cmd record-flag keys) (if (and (symbolp
cmd) (get cmd 'byte-obsolete-info) (not (get cmd
'command-execute-obsolete-warned))) (progn (put cmd
'command-execute-obsolete-warned t) (message "%s"
(macroexp--obsolete-warning cmd (get cmd 'byte-obsolete-info) "command")))))
(cond ((arrayp final) (if record-flag (progn (add-to-history
'command-history (list 'execute-kbd-macro final prefixarg) nil t)))
(execute-kbd-macro final prefixarg)) (t (prog1 (call-interactively cmd
record-flag keys) (if (and (symbolp cmd) (get cmd 'byte-obsolete-info)
(not (get cmd 'command-execute-obsolete-warned))) (progn (put cmd
'command-execute-obsolete-warned t) (message "%s"
(macroexp--obsolete-warning cmd (get cmd ...) "command")))))))
(let ((final cmd)) (while (progn (setq final (indirect-function
final)) (if (autoloadp final) (setq final (autoload-do-load final
cmd))))) (cond ((arrayp final) (if record-flag (progn (add-to-history
'command-history (list 'execute-kbd-macro final prefixarg) nil t)))
(execute-kbd-macro final prefixarg)) (t (prog1 (call-interactively cmd
record-flag keys) (if (and (symbolp cmd) (get cmd 'byte-obsolete-info)
(not (get cmd ...))) (progn (put cmd 'command-execute-obsolete-warned t)
(message "%s" (macroexp--obsolete-warning cmd ... "command"))))))))
(if (and (symbolp cmd) (get cmd 'disabled) (or (and (setq query (and
(consp (get cmd ...)) (eq (car ...) 'query))) (not
(command-execute--query cmd))) (and (not query)
disabled-command-function))) (if (not query) (progn (run-hooks
'disabled-command-function))) (let ((final cmd)) (while (progn (setq
final (indirect-function final)) (if (autoloadp final) (setq final
(autoload-do-load final cmd))))) (cond ((arrayp final) (if record-flag
(progn (add-to-history 'command-history (list ... final prefixarg) nil
t))) (execute-kbd-macro final prefixarg)) (t (prog1 (call-interactively
cmd record-flag keys) (if (and (symbolp cmd) (get cmd ...) (not ...))
(progn (put cmd ... t) (message "%s" ...))))))))
(let ((prefixarg (if special nil (prog1 prefix-arg (setq
current-prefix-arg prefix-arg) (setq prefix-arg nil) (if
current-prefix-arg (progn (prefix-command-update)))))) query) (if (and
(symbolp cmd) (get cmd 'disabled) (or (and (setq query (and (consp ...)
(eq ... ...))) (not (command-execute--query cmd))) (and (not query)
disabled-command-function))) (if (not query) (progn (run-hooks
'disabled-command-function))) (let ((final cmd)) (while (progn (setq
final (indirect-function final)) (if (autoloadp final) (setq final
(autoload-do-load final cmd))))) (cond ((arrayp final) (if record-flag
(progn (add-to-history ... ... nil t))) (execute-kbd-macro final
prefixarg)) (t (prog1 (call-interactively cmd record-flag keys) (if (and
... ... ...) (progn ... ...))))))))
command-execute(execute-extended-command)
[-- Attachment #2: Type: text/html, Size: 9048 bytes --]
next reply other threads:[~2022-04-12 8:20 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-04-12 8:20 Andreas Röhler [this message]
2022-04-12 10:19 ` bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil Lars Ingebrigtsen
2022-04-12 19:13 ` Andreas Röhler
2022-04-12 19:32 ` Lars Ingebrigtsen
2022-04-12 19:45 ` Andreas Röhler
2022-04-13 0:09 ` Lars Ingebrigtsen
2022-04-13 5:43 ` Andreas Röhler
2022-04-13 11:54 ` Lars Ingebrigtsen
2022-04-13 14:04 ` Andreas Röhler
2022-04-13 14:27 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=28d81cf8-6e8c-dcbf-61fc-c7f928a2a3da@easy-emacs.de \
--to=andreas.roehler@easy-emacs.de \
--cc=54878@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).