Commit ceda22d2 authored by Linus Tolke's avatar Linus Tolke
Browse files

lyskom-apply-handler återskapar keyboard-quit

parent 370108d1
No preview for this file type
...@@ -487,13 +487,15 @@ PENDING is an entry of the list as described in documentation for the variable ...@@ -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: lyskom-call-data. The car on the list must be a PARSED:
('PARSED RESULT HANDLER HANDLER-DATA)" ('PARSED RESULT HANDLER HANDLER-DATA)"
(setq inhibit-quit nil) (setq inhibit-quit nil)
(condition-case error (let ((did-quit nil))
(if (car (cdr (cdr pending))) (condition-case error
(apply (car (cdr (cdr pending))) ;Handler (if (car (cdr (cdr pending)))
(car (cdr pending)) ;Result (apply (car (cdr (cdr pending))) ;Handler
(car (cdr (cdr (cdr pending)))))) ;Handler-data (car (cdr pending)) ;Result
(quit (beep))) (car (cdr (cdr (cdr pending)))))) ;Handler-data
(setq inhibit-quit t)) (quit (setq did-quit t)))
(setq inhibit-quit t)
(if did-quit (keyboard-quit))))
(defun lyskom-apply-multi-handler (pending result-list) (defun lyskom-apply-multi-handler (pending result-list)
"Apply a handler for a lyskom-collect - lyskom-use construct." "Apply a handler for a lyskom-collect - lyskom-use construct."
......
Supports Markdown
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