Commits

Anonymous committed aaf3010

2003-11-17 Steve Youngs <sryoungs@bigpond.net.au>

* xemacsbug.el (report-xemacs-bug-packages-list): New.
(report-xemacs-bug): Use it.

Comments (0)

Files changed (2)

+2003-11-17  Steve Youngs  <sryoungs@bigpond.net.au>
+
+	* xemacsbug.el (report-xemacs-bug-packages-list): New.
+	(report-xemacs-bug): Use it.
+
 2003-10-31  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.33 released.
       (define-key (current-local-map) "\C-c\C-i" 'report-xemacs-bug-info)
       (princ (substitute-command-keys report-xemacs-bug-help)) nil) "*Bug Help*"))
 
+(defun report-xemacs-bug-packages-list ()
+  "Insert into the current buffer a list of installed packages."
+  (let ((pkgs packages-package-list))
+    (while pkgs
+      (insert
+       (format "(%s ver: %s upstream: %s)\n"
+	       (nth 0 (car pkgs))
+	       (nth 2 (car pkgs))
+	       (nth 4 (car pkgs))))
+      (setq pkgs (cdr pkgs)))))
+
 ;;;###autoload
 (defun report-xemacs-bug (topic &optional recent-keys)
   "Report a bug in XEmacs.
     ;; Insert a list of installed packages.
     (insert "\n\nInstalled XEmacs Packages:\n"
 	    "-------------------------\n")
-    (cl-prettyprint
-     (symbol-value 'packages-package-list))
+    (report-xemacs-bug-packages-list)
     (insert "\n")
     ;; Insert a list of installed modules.
     (if (fboundp 'list-modules)