Commit b3f7693c authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

Rewritten kom-compile-bug-report

parent 5a33f387
No preview for this file type
......@@ -903,6 +903,7 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
debugger-old-buffer
(void-variable (current-buffer))))
(repname "*lyskom-bugreport*"))
(lyskom-message (lyskom-get-string 'buggreport-compilestart))
(set-buffer old-buf)
(cond
((eq old-buf (process-buffer lyskom-proc)))
......@@ -919,21 +920,24 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
(princ (lyskom-get-string 'buggreport-internals))
(princ (lyskom-get-string 'buggreport-version))
(print lyskom-clientversion)
(print lyskom-server-info)
(princ (lyskom-get-string 'buggreport-pending-calls))
(print lyskom-pending-calls)
(princ (lyskom-get-string 'buggreport-call-data))
(print lyskom-call-data)
(princ (lyskom-get-string 'buggreport-emacs-version))
(print (emacs-version))
(princ (lyskom-get-string 'buggreport-system-id))
(print system-type)
(princ (lyskom-get-string 'buggreport-ctl-arrow-doc))
(print (condition-case error
(documentation-property 'ctl-arrow 'variable-documentation)
(error)))
(princ (lyskom-get-string 'buggreport-unparsed))
(print (save-excursion
(set-buffer lyskom-unparsed-buffer)
(goto-char (point-min))
(forward-line 10)
(buffer-substring (point-min) (point))))
(princ (lyskom-get-string 'buggreport-reading-list))
(print lyskom-reading-list)
(princ (lyskom-get-string 'buggreport-to-do-list))
(print lyskom-to-do-list)
(princ (lyskom-get-string 'buggreport-command-keys))
(terpri)
(princ (key-description (recent-keys)))
(if (condition-case ()
debugger-old-buffer
(void-variable nil))
......@@ -947,12 +951,28 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
(princ (lyskom-get-string 'buggreport-communications))
(print (save-excursion
(set-buffer lyskom-debug-communications-to-buffer-buffer)
(buffer-substring (point-min) (point-max)))))))
(buffer-substring (point-min) (point-max))))))
(princ (lyskom-get-string 'buggreport-all-kom-variables))
(mapatoms
(function
(lambda (symbol)
(and (boundp symbol)
(string-match "^\\(kom-\\|lyskom-\\)" (symbol-name symbol))
(not (string-match "-cache$\\|^kom-dict$\\|^lyskom-strings$\
\\|-map$\\|^lyskom-commands$"
(symbol-name symbol)))
(progn
(terpri)
(princ (symbol-name symbol))
(princ ":")
(print (symbol-value symbol))))))))
(save-excursion
(set-buffer repname)
(goto-char (point-min))
(replace-regexp "byte-code(\".*\""
(lyskom-get-string 'buggreport-instead-of-byte-comp)))))
(lyskom-get-string 'buggreport-instead-of-byte-comp)))
(lyskom-message (lyskom-get-string 'buggreport-compileend))))
; ;;; ================================================================
......
......@@ -392,6 +392,8 @@ Lyskom-sessionen
(does-not-exist . "Detta kommando finns inte.")
; Only people fixing bugs or recieving bugg-reports should change these:
(buggreport-compilestart . "Compiling...")
(buggreport-compileend . "Compiling...done")
(buggreport-description . "Detta gjorde jag:
(Fyll i dina kommenarer)\n\n\n
N{r du skrivit klart skall du skicka in din buggrapport till
......@@ -403,13 +405,14 @@ Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN.
M{rk kuvertet LysKOM buggrapport.\n\n")
(buggreport-internals . "LysKOMs interna information:\n\n")
(buggreport-version . "lyskom-version:")
(buggreport-pending-calls . "lyskom-pending-calls:")
(buggreport-call-data . "\nlyskom-call-data:")
(buggreport-emacs-version . "emacs-version:")
(buggreport-system-id . "system-id:")
(buggreport-ctl-arrow-doc . "ctrl-doc:")
(buggreport-unparsed . "\nlyskom-unparsed-buffer:")
(buggreport-reading-list . "\nlyskom-reading-list:")
(buggreport-to-do-list . "\nlyskom-to-do-list:")
(buggreport-command-keys . "Nyss tryckta tangenter:")
(buggreport-backtrace . "\n*Backtrace*:\n%#1s\n")
(buggreport-communications . "\nlyskom-debug-communications-to-buffer-buffer:")
(buggreport-all-kom-variables . "\n\nAndra variabler:\n***** *********")
(buggreport-instead-of-byte-comp . "byte-code(\"byte-string\"")
(buggreport-subject . "Bugg-rapport elisp-klienten version %#1s")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment