Commit 097841d9 authored by David Byers's avatar David Byers
Browse files

Bugfixar, ny strängexpansion i completing-read.el, säkrare hantering av C-g i...

Bugfixar, ny strängexpansion i completing-read.el, säkrare hantering av C-g i edit-text.el, testa quit-flag i blocking-do mfl
parent d4090ac3
Thu Jul 25 11:35:36 1996 David Byers <davby@sen2.ida.liu.se>
* completing-read.el (lyskom-read-conf-internal): Skrare
hantering av C-g. (lyskom-read-conf-internal): Hantera tomma
strngen med ngra specialfall. (lyskom-complete-string): Total
omskrivning fr att f den lite korrektare.
* edit-text.el (lyskom-edit-send-check-recipients): Skrare
hantering av C-g vid mottagarkontroll.
Thu Jul 25 03:01:52 1996 David Kgedal <davidk@lysator.liu.se>
* swedish-strings.el (lyskom-strings): Gjorde om mellanslagen runt
......@@ -25,6 +35,16 @@ Thu Jul 25 03:01:52 1996 David K
lyskom-normally-read-texts lokal. Lgg till lysikom-buffer till
lyskom-buffer-list.
Wed Jul 24 17:44:59 1996 David Byers <davby@sen2.ida.liu.se>
* internal.el (lyskom-apply-handler): Gr let p inhibit-quit isllet.
(lyskom-apply-multi-list-handler): Dito.
(lyskom-apply-multi-handler): Dito.
* services.el (blocking-do): Testa quit-flag ocks. Vid vissa
tillfllen kommer inhibit-quit att vara satt av ngon anledning.
(lyskom-wait-queue): Dito.
Tue Jul 23 11:28:29 1996 David Byers <davby@sen2.ida.liu.se>
* edit-text.el (lyskom-edit-send-check-recipients): Skrev om till
......
This diff is collapsed.
......@@ -533,9 +533,11 @@ text is a member of some recipient of this text."
(lyskom-list-use 'sending
(function
(lambda (x)
(setq author-is-member
(memq nil
(mapcar 'not x))))))
(if (boundp author-is-member)
(setq author-is-member
(memq
nil
(mapcar 'not x)))))))
(lyskom-wait-queue 'sending)
(if (and (null author-is-member)
(lyskom-j-or-n-p
......
......@@ -529,35 +529,32 @@ RUN -> call function. Delete. Not allowed inside COLLECT/USE."
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 ((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)))))
(defun lyskom-apply-multi-handler (pending result-list)
"Apply a handler for a lyskom-collect - lyskom-use construct."
(setq inhibit-quit nil)
(condition-case error
(apply (car (cdr pending)) ;Multi-handler
(nconc result-list
(car (cdr (cdr pending))))) ;Multi-handler-data
(quit (beep)))
(setq inhibit-quit t))
(let ((inhibit-quit nil))
(condition-case error
(apply (car (cdr pending)) ;Multi-handler
(nconc result-list
(car (cdr (cdr pending))))) ;Multi-handler-data
(quit (beep)))))
(defun lyskom-apply-multi-list-handler (pending result-list)
"Apply a handler for a lyskom-collect - lyskom-list-use construct."
(setq inhibit-quit nil)
(condition-case error
(apply (car (cdr pending)) ;Multi-handler
(cons result-list
(car (cdr (cdr pending))))) ;Multi-handler-data
(quit (beep)))
(setq inhibit-quit t))
(let ((inhibit-quit nil))
(condition-case error
(apply (car (cdr pending)) ;Multi-handler
(cons result-list
(car (cdr (cdr pending))))) ;Multi-handler-data
(quit (beep)))))
(defun lyskom-apply-function (pending)
(setcar pending 'HALTED)
......
......@@ -774,7 +774,7 @@ or get-text-stat."
;; (if (input-pending-p)
;; (execute-kbd-macro (read-key-sequence ""))
(accept-process-output nil lyskom-apo-timeout-s lyskom-apo-timeout-ms))
(if lyskom-quit-flag
(if (or lyskom-quit-flag quit-flag)
(progn
(setq lyskom-quit-flag nil)
(lyskom-insert-before-prompt (lyskom-get-string 'interrupted))
......@@ -793,7 +793,7 @@ or get-text-stat."
(while (and (eq lyskom-blocking-return 'not-yet-gotten)
(not lyskom-quit-flag))
(accept-process-output nil lyskom-apo-timeout-s lyskom-apo-timeout-ms))
(if lyskom-quit-flag
(if (or lyskom-quit-flag quit-flag)
(progn
(lyskom-insert-before-prompt (lyskom-get-string 'interrupted))
(signal 'quit nil)))
......
......@@ -544,7 +544,6 @@ to see, set of call."
(run-hooks 'lyskom-mode-hook)
(lyskom-tell-phrases-validate))
(defun lyskom-clear-vars ()
"Set up buffer-local vars."
(let ((proc lyskom-proc)
......
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