Package: elpa-debian-el
Version: 37.13
Severity: important
I wanted to report a bug against the dpkg-dev package, but that resulted
in a Lisp error before even running reportbug. Below is a backtrace
after loading the debian-bug.el source file.
Downgrading elpa-debian-el to version 37.12 fixes the problem.
,----
| Debugger entered--Lisp error: (wrong-number-of-arguments #f(lambda (process
event package severity subject filename bug-script-temp-file win-config)
:dynbind "This function is the process sentinel for bug script processes.\nWhen
called, if the process has terminated, this function cleans\nup the buffer used
by the process and proceeds to the next step in the\nbug reporting process by
calling `debian-bug-compose-report'. Note that\nthis process sentinel is
different from regular process sentinels in\nthat it requires more arguments.
So, it cannot be assigned to a process\nwith `set-process-sentinel' directly,
but requires some tweaking instead." (if (memq (process-status process) '(exit
signal)) (let* ((bug-script-buffer (process-buffer process))
(bug-script-buffer-empty (= (buffer-size bug-script-buffer) 0))) (if (fboundp
'term-sentinel) (term-sentinel process event)) (if (get-buffer-window
bug-script-buffer) (set-window-configuration win-config)) (if (buffer-name
bug-script-buffer) (if bug-script-buffer-empty (kill-buffer bug-script-buffer)
(bury-buffer bug-script-buffer))) (debian-bug-compose-report package severity
subject filename bug-script-temp-file)))) 9)
| debian-bug-script-sentinel(#<process debian-bug-script> "finished\n"
"dpkg-dev" "normal" "" "foo" nil "/tmp/debian-bug-2H4mUL"
#<window-configuration>)
| (lambda (process event) (debian-bug-script-sentinel process event
"dpkg-dev" "normal" "" "foo" nil "/tmp/debian-bug-2H4mUL"
#<window-configuration>))(#<process debian-bug-script> "finished\n")
| accept-process-output(#<process debian-bug-script> 200)
| (let ((bug-script-buffer (get-buffer-create "*debian-bug-script*"))
(bug-script-temp-file (cond ((fboundp 'make-temp-file) (make-temp-file
"debian-bug-")) ((fboundp 'temp-directory) (make-temp-name (expand-file-name
"debian-bug-" (temp-directory)))) (t (error "Cannot create temporary file"))))
(bug-script-process) (coding-system-for-read 'binary)) (message (concat
"Collecting information about the package." " This may take some time."))
(save-current-buffer (set-buffer bug-script-buffer) 'term (erase-buffer)
(term-mode) (debian-bug--safe-term-exec bug-script-buffer "debian-bug-script"
handler nil (list bug-script bug-script-temp-file)) (setq bug-script-process
(get-buffer-process bug-script-buffer)) (if bug-script-process (progn
(set-process-sentinel bug-script-process (list 'lambda '(process event) (list
'debian-bug-script-sentinel 'process 'event package severity version subject
filename bug-script-temp-file (current-window-configuration))))
(term-char-mode) (if (fboundp 'set-process-query-on-exit-flag)
(set-process-query-on-exit-flag bug-script-process nil))) (message (concat
"Trying to get package related info failed. " "Generated bug report may be
missing some " "information.")))) (accept-process-output bug-script-process
200) (sleep-for 0.05) (if (not (memq (process-status bug-script-process) '(exit
signal))) (switch-to-buffer-other-window bug-script-buffer)))
| (if (and bug-script (debian-bug-file-is-executable handler) (if nil (or
(featurep 'term) (load "term" 'noerror)) (require 'term nil 'noerror))) (let
((bug-script-buffer (get-buffer-create "*debian-bug-script*"))
(bug-script-temp-file (cond ((fboundp 'make-temp-file) (make-temp-file
"debian-bug-")) ((fboundp 'temp-directory) (make-temp-name (expand-file-name
"debian-bug-" ...))) (t (error "Cannot create temporary file"))))
(bug-script-process) (coding-system-for-read 'binary)) (message (concat
"Collecting information about the package." " This may take some time."))
(save-current-buffer (set-buffer bug-script-buffer) 'term (erase-buffer)
(term-mode) (debian-bug--safe-term-exec bug-script-buffer "debian-bug-script"
handler nil (list bug-script bug-script-temp-file)) (setq bug-script-process
(get-buffer-process bug-script-buffer)) (if bug-script-process (progn
(set-process-sentinel bug-script-process (list 'lambda '... (list ... ... ...
package severity version subject filename bug-script-temp-file ...)))
(term-char-mode) (if (fboundp 'set-process-query-on-exit-flag)
(set-process-query-on-exit-flag bug-script-process nil))) (message (concat
"Trying to get package related info failed. " "Generated bug report may be
missing some " "information.")))) (accept-process-output bug-script-process
200) (sleep-for 0.05) (if (not (memq (process-status bug-script-process) '(exit
signal))) (switch-to-buffer-other-window bug-script-buffer)))
(debian-bug-compose-report package severity version subject filename))
| (let ((handler "/usr/share/reportbug/handle_bugscript") (bug-script
(debian-bug-find-bug-script package))) (if (and bug-script
(debian-bug-file-is-executable handler) (if nil (or (featurep 'term) (load
"term" 'noerror)) (require 'term nil 'noerror))) (let ((bug-script-buffer
(get-buffer-create "*debian-bug-script*")) (bug-script-temp-file (cond
((fboundp ...) (make-temp-file "debian-bug-")) ((fboundp ...) (make-temp-name
...)) (t (error "Cannot create temporary file")))) (bug-script-process)
(coding-system-for-read 'binary)) (message (concat "Collecting information
about the package." " This may take some time.")) (save-current-buffer
(set-buffer bug-script-buffer) 'term (erase-buffer) (term-mode)
(debian-bug--safe-term-exec bug-script-buffer "debian-bug-script" handler nil
(list bug-script bug-script-temp-file)) (setq bug-script-process
(get-buffer-process bug-script-buffer)) (if bug-script-process (progn
(set-process-sentinel bug-script-process (list ... ... ...)) (term-char-mode)
(if (fboundp ...) (set-process-query-on-exit-flag bug-script-process nil)))
(message (concat "Trying to get package related info failed. " "Generated bug
report may be missing some " "information.")))) (accept-process-output
bug-script-process 200) (sleep-for 0.05) (if (not (memq (process-status
bug-script-process) '(exit signal))) (switch-to-buffer-other-window
bug-script-buffer))) (debian-bug-compose-report package severity version
subject filename)))
| debian-bug-run-bug-script("dpkg-dev" "normal" "" "foo" nil)
| (let ((severity (let ((wconfig (current-window-configuration)))
(unwind-protect (progn (if debian-bug-display-help (debian-bug-help-severity))
(completing-read "Severity (default normal): " debian-bug-severity-alist nil t
nil nil "normal")) (set-window-configuration wconfig)))) (version (let
((wconfig (current-window-configuration))) (unwind-protect (progn
(debian-bug-help-presubj package) (read-string "Version (optional): "))
(set-window-configuration wconfig)))) (subject (let ((wconfig
(current-window-configuration))) (unwind-protect (progn
(debian-bug-help-presubj package) (read-string "(Very) brief summary of
problem: ")) (set-window-configuration wconfig))))) (debian-bug-run-bug-script
package severity version subject filename))
| (if (string= package "wnpp") (debian-bug-wnpp)
(debian-bug-fill-packages-obarray) (if (and (not (intern-soft package
debian-bug-packages-obarray)) (not (y-or-n-p "Package does not appear to be
installed. Continue? "))) (error "Quitting")) (let ((severity (let ((wconfig
(current-window-configuration))) (unwind-protect (progn (if
debian-bug-display-help ...) (completing-read "Severity (default normal): "
debian-bug-severity-alist nil t nil nil "normal")) (set-window-configuration
wconfig)))) (version (let ((wconfig (current-window-configuration)))
(unwind-protect (progn (debian-bug-help-presubj package) (read-string "Version
(optional): ")) (set-window-configuration wconfig)))) (subject (let ((wconfig
(current-window-configuration))) (unwind-protect (progn
(debian-bug-help-presubj package) (read-string "(Very) brief summary of
problem: ")) (set-window-configuration wconfig))))) (debian-bug-run-bug-script
package severity version subject filename)))
| debian-bug-package()
| (cond ((or (equal 13 type) (equal 13 type) (equal 32 type) (equal 32 type)
(equal 112 type) (equal 80 type)) (debian-bug-package)) ((equal 70 type)
(debian-bug-filename)) (t (message "Sorry, try that again")))
| (let ((type (let ((cursor-in-echo-area t)) (message "Report a bug for a
[P]ackage or [F]ile: (default P) ") (capitalize (read-char-exclusive))))) (cond
((or (equal 13 type) (equal 13 type) (equal 32 type) (equal 32 type) (equal 112
type) (equal 80 type)) (debian-bug-package)) ((equal 70 type)
(debian-bug-filename)) (t (message "Sorry, try that again"))))
| debian-bug()
| funcall-interactively(debian-bug)
| call-interactively(debian-bug record nil)
| command-execute(debian-bug record)
| execute-extended-command(nil "debian-bug" nil)
| funcall-interactively(execute-extended-command nil "debian-bug" nil)
| call-interactively(execute-extended-command nil nil)
| command-execute(execute-extended-command)
`----
-- System Information:
Debian Release: trixie/sid
APT prefers unstable
APT policy: (500, 'unstable'), (101, 'experimental')
Architecture: amd64 (x86_64)
Foreign Architectures: i386
Kernel: Linux 6.1.96-nouveau (SMP w/2 CPU threads; PREEMPT)
Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8), LANGUAGE not set
Shell: /bin/sh linked to /usr/bin/dash
Init: systemd (via /run/systemd/system)
Versions of packages elpa-debian-el depends on:
ii bzip2 1.0.8-5.1
ii dh-elpa-helper 2.0.17.1
ii emacsen-common 3.0.5
ii reportbug 13.0.1
ii xz-utils 5.6.2-2
ii zstd 1.5.6+dfsg-1
Versions of packages elpa-debian-el recommends:
ii emacs 1:29.4+1-3
ii emacs-gtk [emacs] 1:29.4+1-3
ii wget 1.24.5-1
elpa-debian-el suggests no packages.
-- no debconf information
