[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil
From: |
Andreas Röhler |
Subject: |
bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil |
Date: |
Tue, 12 Apr 2022 10:20:03 +0200 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101 Thunderbird/91.7.0 |
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)
- bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil,
Andreas Röhler <=
- bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil, Lars Ingebrigtsen, 2022/04/12
- bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil, Andreas Röhler, 2022/04/12
- bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil, Lars Ingebrigtsen, 2022/04/12
- bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil, Andreas Röhler, 2022/04/12
- bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil, Lars Ingebrigtsen, 2022/04/12
- bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil, Andreas Röhler, 2022/04/13
- bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil, Lars Ingebrigtsen, 2022/04/13
- bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil, Andreas Röhler, 2022/04/13
- bug#54878: 29.0.50; diary-fancy-display - with-current-buffer nil, Lars Ingebrigtsen, 2022/04/13