Function: tpu-set-mode-line

tpu-set-mode-line is a byte-compiled function defined in tpu-edt.el.gz.

Signature

(tpu-set-mode-line FOR-TPU)

Documentation

Set minor-mode-alist for TPU-edt, or reset it to default Emacs.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-set-mode-line (for-tpu)
  "Set `minor-mode-alist' for TPU-edt, or reset it to default Emacs."
  (let ((entries '((tpu-newline-and-indent-p tpu-newline-and-indent-string)
                   (tpu-rectangular-p tpu-rectangle-string)
                   (tpu-direction-string tpu-direction-string)
                   (tpu-mark-flag tpu-mark-flag))))
    (dolist (entry entries)
      (if for-tpu
          (add-to-list 'minor-mode-alist entry)
        (setq minor-mode-alist (remove entry minor-mode-alist))))))