;;; -*- Mode:LISP; Package:USER; Base:10 -*- 

(defun set-all-quanta (amt)
  (setq si::default-quantum amt)
  (mapc #'(lambda (proc)
	    (send proc :set-quantum amt))
	si::all-processes))

(set-all-quanta 6.)

(defun set-process-priority (process-name value)
  (setq process-name (string process-name))
  (check-type value fixnum)
  (mapc #'(lambda (proc)
	    (let ((name (send proc :name)))
	      (if (and (stringp name)
		       (string-equal name process-name))
		  (progn (send proc :set-priority value)
			 (return-from set-process-priority value)))))
	si::all-processes)
  ())

(defun set-zmail-bkgnd-priority (&optional (pty 0))
  (setq zwei::*ZMAIL-DEFAULT-BACKGROUND-PRIROITY* 0)
  (set-process-priority "Zmail Background" pty))

(set-zmail-bkgnd-priority)

zwei:
(DEFCOM COM-SET-tvFONT "Quietly toggle the current buffer's font between TVFONT and CPTFONT." ()
	(LET* ((FONT (if (eq (TV:FONT-NAME (AREF (SEND (WINDOW-SHEET *WINDOW*) :FONT-MAP) 0))
			     'fonts:tvfont)
			 'fonts:cptfont 'fonts:tvfont)))
	  (unless (BOUNDP FONT)
	    (LOAD (FORMAT NIL "SYS: FONTS; ~A" FONT)
		  :PACKAGE 'FONTS
		  :SET-DEFAULT-PATHNAME NIL
		  :IF-DOES-NOT-EXIST NIL)
	    (OR (BOUNDP FONT) (BARF "~S is not a defined font" FONT)))
	  (SEND *INTERVAL* :SET-ATTRIBUTE :FONTS (list FONT) nil)
	  (REDEFINE-FONTS *WINDOW* (list (CONS (SYMBOL-NAME FONT) (SYMBOL-VALUE FONT))))
	  (UPDATE-FONT-NAME))
	DIS-ALL)

zwei:
(command-store 'com-set-tvfont
	       #\super-t
	       *standard-comtab*)

zwei::
(progn
  (set-comtab *zmacs-comtab* '(#\control-@ com-indent-for-enhancement-suggestive-cts))
  (set-comtab *zmacs-comtab* '(#\control-+ com-indent-for-maintenance-suggestive-cts))
  (set-comtab *zmacs-comtab* '(#\control-$ com-indent-for-local-modification-cts))
  (set-comtab *zmacs-comtab* '(#\control-& com-indent-for-systematic-modification-cts)))