Control: tags -1 pending
Hi Sven,
Sven Joachim <svenj...@gmx.de> writes:
> 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
Thanks for your report! Looks like this was an oversight when I tried
to implement specifying optional version when reporting bug against
uninstalled packages. A fix is committed in team repo[1]. I have
prepared a new version on mentors[2] with an RFS[3]. Sponsoring welcome
:)
[1]
https://salsa.debian.org/emacsen-team/debian-el/-/commit/8e41a9b4957b9d56ec6c55ee5d4ce84038d01dd6
[2] https://mentors.debian.net/package/debian-el/
[3] https://bugs.debian.org/1075779
--
Xiyue Deng
