Commit ceda22d2 authored by Linus Tolke Y's avatar Linus Tolke Y
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
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."
......
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