lyskom-apply-handler återskapar keyboard-quit

src/internal.el

@@ -487,13 +487,15 @@ PENDING is an entry of the list as described in documentation for the variable
 lyskom-call-data. The car on the list must be a PARSED:
 	('PARSED RESULT HANDLER HANDLER-DATA)"
   (setq inhibit-quit nil)
-  (condition-case error
-      (if (car (cdr (cdr pending)))
-	  (apply (car (cdr (cdr pending))) ;Handler
-		 (car (cdr pending))	;Result
-		 (car (cdr (cdr (cdr pending)))))) ;Handler-data
-    (quit (beep)))
-  (setq inhibit-quit t))
+  (let ((did-quit nil))
+    (condition-case error
+	(if (car (cdr (cdr pending)))
+	    (apply (car (cdr (cdr pending))) ;Handler
+		   (car (cdr pending))	;Result
+		   (car (cdr (cdr (cdr pending)))))) ;Handler-data
+      (quit (setq did-quit t)))
+    (setq inhibit-quit t)
+    (if did-quit (keyboard-quit))))
 
 (defun lyskom-apply-multi-handler (pending result-list)
   "Apply a handler for a lyskom-collect - lyskom-use construct."