kom-compile-bug-report justerad på några punkter.

src/async.el

@@ -148,7 +148,9 @@ this function shall be with current-buffer the BUFFER."
 	    (message (lyskom-parse-string)))
 	(lyskom-save-excursion
 	 (set-buffer buffer)
-	 (defvar lyskom-allow-eval nil)
+;^
+	 (setq lyskom-allow-eval nil)
+;v
 	 (cond
 	  ((string= message "info")
 	   (initiate-send-message 'follow nil sender 

src/commands2.el

@@ -908,11 +908,11 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
       (if (condition-case ()
 	      debugger-old-buffer
 	    (void-variable nil))
-	  (progn
-	    (princ (lyskom-get-string 'buggreport-backtrace))
-	    (print (save-excursion
-		     (set-buffer curbuf)
-		     (buffer-substring (point-min) (point-max))))))
+	  (princ (lyskom-format 'buggreport-backtrace
+				(save-excursion
+				  (set-buffer curbuf)
+				  (buffer-substring (point-min) 
+						    (point-max))))))
       (if lyskom-debug-communications-to-buffer
 	  (progn
 	    (princ (lyskom-get-string 'buggreport-communications))
@@ -922,7 +922,7 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
     (save-excursion
       (set-buffer repname)
       (goto-char (point-min))
-      (replace-regexp "byte-code(\\\\\".*\\\\\""
+      (replace-regexp "byte-code(\".*\""
 		      (lyskom-get-string 'buggreport-instead-of-byte-comp)))
     (lyskom-edit-text lyskom-proc
 		      (lyskom-create-misc-list 'recpt 79 'cc-recpt lyskom-pers-no)

src/swedish-strings.el

@@ -315,10 +315,10 @@ Lyskom-sessionen
     (buggreport-unparsed . "\nlyskom-unparsed-buffer:")
     (buggreport-reading-list . "\nlyskom-reading-list:")
     (buggreport-to-do-list . "\nlyskom-to-do-list:")
-    (buggreport-backtrace . "\n*Backtrace*:")
+    (buggreport-backtrace . "\n*Backtrace*:\n%#1s\n")
     (buggreport-communications . "\nlyskom-debug-communications-to-buffer-buffer:")
     (buggreport-instead-of-byte-comp . "byte-code(\"byte-string\"")
-    (buggreport-subject . "Bugg-rapport elisp-klienten version %s%#1s")
+    (buggreport-subject . "Bugg-rapport elisp-klienten version %#1s")
 
 
     (not-logged-in . "Du r inte inloggad.  ")