Buggfixes, bug-report, quit-ding

src/Makefile

@@ -24,7 +24,10 @@
 #
 # $Id$
 # $Log$
-# Revision 36.3  1993/05/27 15:22:43  linus
+# Revision 36.4  1993/07/26 19:07:12  linus
+# Buggfixes, bug-report, quit-ding
+#
+# Revision 36.3  1993/05/27  15:22:43  linus
 # install in local/var/elisp
 #
 # Revision 36.2  1993/05/27  13:21:12  linus
@@ -109,6 +112,8 @@ MKDIR = /bin/mkdir
 
 RM = /usr/gnu/bin/rm -vf
 EMACS-BATCH = emacs -batch -l /usr/local/var/elisp/bytecomp
+# for compiling using emacs 19!
+EMACS-BATCH = emacs -batch -l ./compatibility.el
 
 # NOTE: lyskom-rest.el must be the last file in PARTS-EL and SRC-ELC.
 PARTS-EL = komtypes.el clienttypes.el startup.el \

src/commands1.el

@@ -618,7 +618,8 @@ This does lyskom-end-of-command"
 		     (server-info->conf-pres-conf lyskom-server-info))
 		    conf-name ""
 		    'lyskom-set-presentation conf-no)
-  (lyskom-end-of-command))
+  ;; lyskom-end-of-command is done by lyskom-edit-text
+  )
 
 
 (defun lyskom-set-presentation (text-no conf-no)
@@ -823,7 +824,7 @@ CCREP is a list of all recipients that are going to be cc-recipients."
 			    subject "")))
 
     (quit (lyskom-end-of-command)
-	  (ding))))
+	  (signal 'quit "quit in lyskom-comment-recipients"))))
 
 
 ;;; ================================================================

src/commands2.el

@@ -936,7 +936,7 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
 ;;; Author: Linus Tolke
 
 
-(defun kom-compile-bug-report ()
+(defun kom-bug-report ()
   "This command should make it easier to include the correct info in a buggreport"
   (interactive)
   (let* ((curbuf (current-buffer))
@@ -959,6 +959,10 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
     (with-output-to-temp-buffer repname
       (princ (lyskom-get-string 'buggreport-description))
       (princ (lyskom-get-string 'buggreport-internals))
+      (princ (lyskom-get-string 'buggreport-command-keys))
+      (terpri)
+      (princ (key-description (recent-keys)))
+      (terpri)
       (princ (lyskom-get-string 'buggreport-version))
       (print lyskom-clientversion)
       (princ (lyskom-get-string 'buggreport-emacs-version))
@@ -976,9 +980,6 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
 	       (goto-char (point-min))
 	       (forward-line 10)
 	       (buffer-substring (point-min) (point))))
-      (princ (lyskom-get-string 'buggreport-command-keys))
-      (terpri)
-      (princ (key-description (recent-keys)))
       (if (condition-case ()
 	      debugger-old-buffer
 	    (void-variable nil))
@@ -1015,6 +1016,8 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
 		      (lyskom-get-string 'buggreport-instead-of-byte-comp)))
     (lyskom-message "%s" (lyskom-get-string 'buggreport-compileend))))
 
+(fset 'kom-compile-bug-report (symbol-function 'kom-bug-report))
+
 
 ; ;;; ================================================================
 ; ;;;          Status f|r en session - Status session

src/edit-text.el

@@ -88,7 +88,8 @@ Does lyskom-end-of-command."
     (setq lyskom-edit-return-to-configuration config)
     (lyskom-edit-insert-miscs misc-list subject body)
     (lyskom-message "%s" (lyskom-get-string 'press-C-c-C-c)))
-  (set-buffer (process-buffer lyskom-proc)))
+  (set-buffer (process-buffer lyskom-proc))
+  )
 
 
 (defun lyskom-edit-insert-miscs (misc-list subject body)

src/swedish-strings.el

@@ -425,17 +425,27 @@ Ditt allm\344nna meddelande l\366d:
     (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-compilestart . "Skapar buggrapporten...")
+    (buggreport-compileend . "Skapar buggrapporten...klart")
     (buggreport-description . "Detta gjorde jag:
 (Fyll i dina kommentarer)\n\n\n
-N\344r du skrivit klart skall du skicka in din buggrapport till
-LysKOM-utvecklarna. Det sker antingen med email till 
-bug-lyskom@lysator.liu.se eller i Lysators LysKOM till m\366tet
-\"LysKOM; Elispklientens buggrapporter\" eller om inget annat
-fungerar med vanligt brev till:
-Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN.
-M\344rk kuvertet LysKOM buggrapport.\n\n")
+Bland informationen nedan finns ocks\345 en lista p\345 de 100 sist tryckta
+tangenterna i din emacs. Om du nyligen loggat in kan den inneh\345lla ditt
+lyskoml\366senord. Titta igenom den och \344ndra det som \344r ditt l\366senord
+till * * * eller m i t t l \366 s e n eller n\345got annat l\344mpligt.
+
+N\344r du skrivit klart skall du skicka in din buggrapport till LysKOMs
+elispklientutvecklare. Det sker antingen:
+* med email till bug-lyskom@lysator.liu.se
+* i Lysators LysKOM till m\366tet \"LysKOM; Elispklientens buggrapporter\" 
+* med vanligt brev till:
+\tLysator
+\tc/o ISY
+\tLink\366ping University
+\tS-581 83 Linkoping
+\tSWEDEN.
+
+M\344rk kuvertet \"LysKOM buggrapport f\366r elispklienten\".\n\n")
     (buggreport-internals . "LysKOMs interna information:\n\n")
     (buggreport-version . "lyskom-version:")
     (buggreport-emacs-version . "emacs-version:")