Commit f73ec9e3 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

återskapa keyboard-quit fungerar inte.

parent 61f67162
No preview for this file type
......@@ -487,15 +487,13 @@ 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)
(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))))
(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))
(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